请教专家高手问题，谢谢

[samsam28]

请教专家高手问题了，谢谢
用VB调用winsock与remotehost通信

协议 :tcp/ip 不是UDP
对方的已经做好了所有的程序，在某个port listen进来的数据

要求我用VB做这个小程序
很简单
1 连接
2 发送一个数据<字符串>到remotehost
2 连接断开

我没有用vb做过网络编程
请专家高手指教，谢谢
能提供短小的源代码(从declare开始)更是万分感谢

[dbcontrols]

到http://www.freevbcode.com搜索Mail看看

[tony_jian]

客户端:
Private Sub Form1_Load()
dim a as string
Winsock1.Protocol = sckTCPProtocol
Winsock1.LocalPort = 1050
Winsock1.RemoteHost = ServerSIPS '主机的IP地址或名字
Winsock1.RemotePort = 1050
If Winsock1.State <> connected Then
Winsock1.Close
Else
Winsock1.Connect
End If
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
a=winsock1.getdata '接受字符串
End Sub
服务器端:
Private Sub Form1_Load()
Dim ClientIP As String
Winsock1.Protocol = sckTCPProtocol
Winsock1.LocalPort = 1050
Winsock1.RemotePort = 1050
If Winsock1.State <> connected Then
Winsock1.Close
Else
Winsock1.Listen
End If
End Sub
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
if Winsock1.State<>SckClosed then winsock1.close
winsock1.accept requestID
ClientIP=Winsock1.RemoteHostIP
End Sub
winsock1.senddata "x" ''X为要发送的字符串

[playyuer]

建议用两个 Winsock!
WinsockListen
WinsockWork

Winsock2.Accept requestID

Private Sub Winsock2_DataArrival(ByVal bytesTotal As Long)
Dim Buffer As String
Winsock2.GetData Buffer, vbString
VBA.MsgBox Buffer
End Sub