mdlsendall.bas

vb代码集,收集许多VB网络编程代码

Attribute VB_Name = "mdlSendAll"
Public returnmf As String
Public MFCon As Long
Public Datasend As String
Public allmf As Long
Public amf As Long
Public SrvNum(900) As String
Public Alias(900) As String
Public AliasOk(900) As String
Public helpmf As Long

Public Sub SendAll()
    allmf = frmTelnetTalk.List3.List(amf)
    SrvNum(allmf) = SrvNum(allmf) + Datasend & returnmf
    amf = amf + 1
    If amf = frmTelnetTalk.List3.ListCount Then
        frmTelnetTalk.Timer1.Enabled = False
        amf = 0
        Datasend = ""
    End If
End Sub

Public Sub Help()
    frmTelnetTalk.wnsServer(helpmf).SendData "Created by Michael O Fisher." & returnmf & returnmf
    frmTelnetTalk.wnsServer(helpmf).SendData """F1"" or ""/h"" will retrieve help info." & returnmf
    frmTelnetTalk.wnsServer(helpmf).SendData """F2"" or ""/r"" will retrieve messages." & returnmf
    frmTelnetTalk.wnsServer(helpmf).SendData """F4"" or ""/exit"" will kill your connection." & returnmf
    frmTelnetTalk.wnsServer(helpmf).SendData """/who"" will tell you who is chatting." & returnmf
    frmTelnetTalk.wnsServer(helpmf).SendData "Pressing the ""Enter"" Key will transmit the sentence." & returnmf & returnmf
End Sub