怎样使用winsock控件发送两个数据，中间间隔1秒

[jacklee19822001]

winsock控件用于网络发送指令到客户端
希望发送两条指令，中间间隔1秒
WinSock1.SendData Cmd1
'间隔1秒
WinSock1.SendData cmd2

如果使用sleep后
第一次senddata时，客户端收不到任何东西，等到发送第二条指令时，客户端一下子收到了2条指令

不知道怎么解决这个问题
这到底是怎么回事？
高手能告诉我解决方案么？

[jacklee19822001]

无人关心？？:-(

[yj5354]

'加一个Timer 控件,设定Timer1.Interval = 1000
'代码如下:
Dim cmd(1) As String
Private Sub Timer1_Timer()
Static i As Integer
sendD i
i = i + 1
If i > 2 Then Timer1.Enabled = False: i = 0
End Sub

Private Sub sendD(i As Integer)
WinSock1.SendData cmd(i)
End Sub

Private Sub Command1_Click()
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub

[terrywolf]

顶一下，浮上来

[VirtualDesktop]

用个timer不可以么？

[zyg0]

doevents

[ZOU_SEAFARER]

WinSock1.SendData Cmd1
'间隔1秒
'自己写一个函数,WAIT
call wait1000

WinSock1.SendData cmd2
Option Explicit
Private Declare Function GetTickCount Lib "kernel32" () As Long


Public Sub wait1000()
Dim StartNum As Long
Dim EndNum As Long
StartNum = GetTickCount
DoEvents
LL: EndNum = GetTickCount
DoEvents
If EndNum - StartNum >= 1000 Then
Exit Sub
Else
GoTo LL
End If

End Sub

[terrywolf]

LZ赶紧出来给分啊，别忘了给我一份啊！

[fj182]

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Declare Function GetTickCount Lib "kernel32" () As Long

Private Sub Command1_Click()

Winsock1.SendData cmd1
DoEvents
Wait 1000
Winsock1.SendData cmd2
DoEvents

End Sub

Public Sub Wait(ByVal dwMilliseconds As Long)

Dim t As Long

t = GetTickCount()

Do While (GetTickCount() < t + dwMilliseconds)
Sleep 1
Loop

End Sub