Question

vb 实时错误40006

Private Sub Command1_Click()

Dim workno As String
Dim serverip As String
Dim serverport As Integer

workno = Text3.Text

serverip = Text4.Text
serverport = Text5.Text
Winsock1.RemoteHost = serverip
Winsock1.RemotePort = serverport
Winsock1.Connect

Winsock1.SendData workno '显示错误的行
End Sub

End Sub
我试过把两步分开，第一个连接，再写一个sub发送workno，就可以正确的发送了，不知道为什么

Answer 1

你有两个END SUB

追问

问题不在两个end sub，我写的程序没这个问题，copy上来搞错了

追答

哦，那可能是还没有连接好，下面程序就直接发送了，你加个Sleep等个1秒试试。