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

[A_n_d_r_e_i]

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

[-=Zhenek=-]

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

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

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

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

[SQLHACK]

так добавляем в текст бокс
FrmMain.richtextbox1 = str + vbCrLf + richtextbox1

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

//эта выдает стандартное окно выбора места для сохранения, нужно предварительно поместить CommonDialog компонент на форму.
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

//эта проверяет есть ли файл
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

//эта сохраняет сам файл.
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

[A_n_d_r_e_i]

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