我想用WINSOCK控件输出内容后，再自动点击一个按钮，但是不成功？

来源：百度知道 编辑：UC知道 时间：2024/06/17 20:44:41
Private Sub Command1_Click()
Winsock1.LocalPort = 0
Winsock1.RemoteHost = "192.168.0.0"
Winsock1.RemotePort = "6000"
Winsock1.Connect
Dim tt As String

tt = "disp ldn=123456789;"

Winsock1.SendData tt

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)

Dim ljy As String

Winsock1.GetData ljy
RichTextBox1.Text = RichTextBox1.Text + ljy

If Winsock1.State = 7 Then
Sleep 500
DoEvents

Command3_Click

我想等到richtextbox的内容显示完毕后，自动点击command3 但是一直执行command3_click ，请高手指教，我怎么才能只执行一次command3_click呢？？？？？？？

造成这种现象的原因是：
你发送 "disp ldn=123456789;"之后，另一端不止向你发送一次数据，所以他发点，你收点，就产生了一次单击事件。
如果是另一端发送数据比较大，你可以进行判断。
如果是另一端多次发送数据，那么应该有传送结束标志。
bytesTotal 是你将接收的东西的总字节。