VB Socket通信_VB6服务端于客户端通讯源代码分享

Dim sock As Winsock

Private Sub Command1_Click()

    sock.SendData (Text1.Text)

End Sub

Private Sub Form_Load()

    Set sock = New Winsock

    sock.Protocol = sckUDPProtocol

    sock.RemoteHost = sock.LocalIP

    sock.RemotePort = 3000

    sock.Bind

End Sub

Private Sub Form_Unload(Cancel As Integer)

    sock.Close

End Sub