ICQ通讯程序

【文件属性】：

文件名称：ICQ通讯程序

文件大小：419KB

文件格式：RAR

更新时间：2015-03-25 09:44:37

WINSOCK

Please note that every command sent from either program has a "/" in front of it. From the server: '<> Recieved Data Buffer <> UserCommand = UserInfo(Index).Data & UserCommand If InStr(1, UserCommand, "`") Then Do While InStr(StrtPos + 1, UserCommand, "`") > 0 StrtPos = InStr(StrtPos + 1, UserCommand, "`") Loop UserInfo(Index).Data = Mid(UserCommand, StrtPos + 3, (Len(UserCommand) - StrtPos) - 2) UserCommand = Mid(UserCommand, 1, StrtPos - 1) UserCommand = Replace(UserCommand, "`", "") Else UserInfo(Index).Data = UserInfo(Index).Data & UserCommand Exit Sub End If '<> Recieved Data Buffer <> From the client: '<> Recieved Data Buffer <> ServerCommand = UserInfo.Data & ServerCommand If Len(ServerCommand) > 32000 Then ServerCommand = "" UserInfo.Data = "" Exit Sub End If If InStr(1, ServerCommand, "`") Then Do While InStr(StrtPos + 1, ServerCommand, "`") > 0 StrtPos = InStr(StrtPos + 1, ServerCommand, "`") Loop UserInfo.Data = Mid(ServerCommand, StrtPos + 3, (Len(ServerCommand) - StrtPos) - 2) ServerCommand = Mid(ServerCommand, 1, StrtPos - 1) ServerCommand = Replace(ServerCommand, "`", "") Else UserInfo.Data = UserInfo.Data & ServerCommand Exit Sub End If '<> Recieved Data Buffer <> From both: Public Function Send(Index As Integer, Data As String) On Error Resume Next frmMain.sckMain(Index).SendData Data & "`" End Function

【文件预览】：
ICQ通讯程序
----www.cnzz.cn()
--------Client.zip(344KB)
--------Server.zip(17KB)
--------ReadMe.txt(2KB)
--------Server()
----使用说明.CHM(49KB)