扫二维码与项目经理沟通
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
Threading.Thread.Sleep(500)这句是线程停止等待的，在这500毫秒的时间里你的任何动作都是不响应的，理论上再SendKeys.Send(TextBox2.Text)这段时间内你可以动作，但是send是毫秒级完成的，你还没有来得及响应就进入了下一次的循环，所以跟卡死类似
创新互联建站是一家以网络技术公司，为中小企业提供网站维护、网站设计制作、成都做网站、网站备案、服务器租用、域名注册、软件开发、微信小程序等企业互联网相关业务，是一家有着丰富的互联网运营推广经验的科技公司，有着多年的网站建站经验，致力于帮助中小企业在互联网让打出自已的品牌和口碑，让企业在互联网上打开一个面向全国乃至全球的业务窗口：建站咨询电话：18982081108
解决方法：通过timer定时器延时
Imports System.Threading
Thread.Sleep(1000)’延迟1秒
2.PauseWait(1000)’延迟1秒
Public Sub PauseWait(ByVal HowLong As Long)
Dim tick As Long
tick = My.Computer.Clock.TickCount
Do
My.Application.DoEvents()
Loop Until tick + HowLong My.Computer.Clock.TickCount
End Sub
可以利用Timer时钟控件实现，这样做的好处是无需等待，释放CPU时间去做别的事
第一个for完成对delay_time参数的控制，即共循环多少次内部循环
第二个for（内部循环），完成对j从0到199的控制，共循环200次。
翻译成汇编就是：
(R0为传递参数)
DELAY:
MOV R1,#200
DJNZ R1,$
DJNZ R0,DELAY
RET
Dim b As Boolean = My.Computer.Network.Ping("192.168.1.1", 1000) '返回ping结果，true表示通，false表示不通，1000表示1000毫秒内返回结果
If b = True Then '指定时间内ping通
Shell("cmd /c ping 192.168.1.1 C:\time.txt") '在C盘time.txt文件中保存ping的结果
Else '超时
MsgBox("999") '弹出999提示
End If
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
微信二维码
移动版官网