743
社区成员
发帖
与我相关
我的任务
分享vb中用Winsock扫描端口
Public Sub TimeOut(Duration As Double)
' standard timeout sub, causes a short pause in the code
Dim StartTime As Double, x As Integer
StartTime = Timer
Do While Timer - StartTime < Duration
x = DoEvents()
Loop
End Sub
提示实时错误28堆栈空间溢出错误代码x = DoEvents()请问如何改
' standard timeout sub, causes a short pause in the code
Dim StartTime As Double, x As Integer
StartTime = Timer
Do While Timer - StartTime < Duration
x = DoEvents()
Loop
End Sub
提示实时错误28堆栈空间溢出错误代码x = DoEvents()请问如何改
...全文
请发表友善的回复…
发表回复
KillAllCoder 2010-09-30
- 打赏
- 举报
StartTime = Time
去掉一个r
去掉一个r
