general.bas

来自「本书源码主要针对目前流行的FTP、HTTP、E-mail、Telnet、ICMP」· BAS 代码 · 共 23 行

Attribute VB_Name = "Module1"
Option Explicit

Public blnManagingData As Boolean
Public blnNewConnection As Boolean




Public Sub addLog(strEvent, intEventType)

    '象文本框加入信息

    
    With frmMai.txtLog

    .Text = .Text & "! " & Date$ & " " & Time$ & " " & strEvent & vbCrLf
    .SelStart = Len(.Text)

    End With

End Sub