ну-ка кодеры.....

....памахите
как выводить лог работы программы в RichTextBox и позволить потом сохранить? компилятор Visual Basic 6.0
плиз, с меня +++ просто срочно надо, нигде не встречал

 

Выводить лог ты можешь сам типа

richtextbox1.text = richtextbox1.text + "JKJK" &vbnewline

сохранить тож легко.
могу дать код на vb.net на 6 уже не помню.

п.с не тот раздел иди в программировнаие + гугл

 

так добавляем в текст бокс

Code:

FrmMain.richtextbox1 = str + vbCrLf + richtextbox1

а это функции для сохранения

//эта выдает стандартное окно выбора места для сохранения, нужно предварительно поместить CommonDialog компонент на форму.

Code:

Public Function SaveFile(IntDir As String, Ext As String) As String
Dim FileName As String

On Error Resume Next
With FrmMain.DlgOpen
    .CancelError = False
    .DefaultExt = Ext
    .Filter = "." + Ext
    .DialogTitle = "Select file..."
    If IntDir <> "" Then
        .InitDir = IntDir
    Else
        .InitDir = ("c:\")
    End If
    .FileName = FileName
    .ShowSave
SaveFile = .FileName

End With
End Function

//эта проверяет есть ли файл

Code:

Public Function ExistFile(ByVal strFileName As String) As Boolean
ExistFile = False
On Error GoTo ExistFile_Err

If strFileName = "" Then Exit Function
If Dir(strFileName) <> "" Then
    ExistFile = True
Else
    ExistFile = False
End If
Exit Function

ExistFile_Err:
    //что то тут делаешь
End Function

//эта сохраняет сам файл.

Code:

Public Function my_Save(file_path As String)
Dim WordList_File As Integer

WordList_File = FreeFile
Open (file_path) For Output As WordList_File
            Print #WordList_File, FrmMain.richtextbox1
Close WordList_File
WordList_File = 0
End Function

 

еще:
Private Sub Command1_Click()
Call send_message ' отправляем сообщение
Sleep (Text9.Text) 'засыпаем на некоторое время, указаное в текстовой форме
End Sub
а теперь к делу, нужно чтобы после 5 отпр. сообщений, поисходил дисконнект, потом была задержка (n) секунд, указаных в текстовой форме ввода, потом коннект и т.д.(цикл)
но как это реализовать
бля...