Форум АНТИЧАТ - ну-ка кодеры.....

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)

- Болталка (https://forum.antichat.xyz/forumdisplay.php?f=46)

- - ну-ка кодеры..... (https://forum.antichat.xyz/showthread.php?t=180882)

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

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

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

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

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

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

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

Код:

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

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