请问这里要怎么用"sleep"?PrivateTypePOINTAPIxAsLongyAsLongEndTypePrivateDeclareFunctionGetCursorPosLib"user32"(lpPointAsPOINTAPI)AsLongPrivateSubCommand1Click()DimpAsPOINTAPIGetCursorPospX1=p.xY1=p.yDoWhilei<10G

Question

请问这里要怎么用"sleep"?
Private Type POINTAPI
x As Long
y As Long
End Type
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Sub Command1_Click()
Dim p As POINTAPI
GetCursorPos p
X1 = p.x
Y1 = p.y
Do While i < 10
GetCursorPos p
X2 = p.x
Y2 = p.y
If X1 = X2 And Y1 = Y2 Then
MsgBox ("123")
i = i + 1
Else
MsgBox ("321")
i = i + 1
GetCursorPos p
X1 = p.x
Y1 = p.y
End If
Loop
End Sub
------------------------------------------------------------------
我要在倒数第六行和倒数第七行之间 也就是"i = i + 1"和"GetCursorPos p"之间插入30秒的延迟 用sleep怎么写啊
直接写 "sleep 30000" 提示"子程序或函数未定义"

Answer 1

你用了sleep之后,这30秒,你的程序会跟死掉一样..你确定要这样吗
sleep的声明
Private Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)