如何用VB实现模拟客户端向服务器端发送数据？？

[leimingpc]

服务器端已经有了
现在是想做一个能模拟客户端向服务器端发送数据报文的小工具
只要能发送数据过去
服务器端能收到并进行处理就成
不用理会服务器返回的处理结果

[波导终结者]

串口？网络？念力？

[leimingpc]

呵呵
不好意思
是TCP/IP协议…………

[波导终结者]

用winsock啊

[leimingpc]

恩
用了
源码如下：
Private Sub Command1_Click()
Winsock1.Connect
Dim tmp As String
tmp = "
For i = 0 To 1000
DoEvents
Next
If Winsock1.State = 7 Then
Winsock1.SendData tmp
End If
End Sub
Private Sub Command2_Click()
Winsock1.Connect
Dim tmp As String
tmp = "
For i = 0 To 1000
DoEvents
Next
If Winsock1.State = 7 Then
Winsock1.SendData tmp
End If
End Sub
Private Sub Command3_Click()
Winsock1.Connect
Dim tmp As String
tmp = " "
For i = 0 To 1000
DoEvents
Next
If Winsock1.State = 7 Then
Winsock1.SendData tmp
End If
End Sub
Private Sub Command4_Click()
Winsock1.Connect
Dim tmp As String
tmp = ""
For i = 0 To 1000
DoEvents
Next
If Winsock1.State = 7 Then
Winsock1.SendData tmp
End If
End Sub
Private Sub Form_Load()
Winsock1.RemoteHost = ""
Winsock1.RemotePort =
'Winsock1.Connect
End Sub
Private Sub Form_Unload(Cancel As Integer)
Winsock1.Close
End Sub
Private Sub Winsock1_Close()
Winsock1.Close
End Sub
Private Sub Command5_Click()
End

End Sub

[leimingpc]

IP和端口都定义了
但是发送过去的数据服务器端却当做无效的报文给抛了
请问代码有什么问题吗？？

[leimingpc]

另外
我想加一个发送的次数定义
应该在哪加？？

[leimingpc]

如果要批量发送的话用一个winsock够用吗？？？
用不用定义timeout时间？？
是否要开多两个线程？？
如果要开多两个线程的话该如何添加？？

[思考]

winsock