Threading.Thread.Sleep(500)這句是線程停止等待的,在這500毫秒的時(shí)間里你的任何動(dòng)作都是不響應(yīng)的,理論上再SendKeys.Send(TextBox2.Text)這段時(shí)間內(nèi)你可以動(dòng)作,但是send是毫秒級(jí)完成的,你還沒有來(lái)得及響應(yīng)就進(jìn)入了下一次的循環(huán),所以跟卡死類似
創(chuàng)新互聯(lián)建站是一家以網(wǎng)絡(luò)技術(shù)公司,為中小企業(yè)提供網(wǎng)站維護(hù)、網(wǎng)站設(shè)計(jì)制作、成都做網(wǎng)站、網(wǎng)站備案、服務(wù)器租用、域名注冊(cè)、軟件開發(fā)、微信小程序等企業(yè)互聯(lián)網(wǎng)相關(guān)業(yè)務(wù),是一家有著豐富的互聯(lián)網(wǎng)運(yùn)營(yíng)推廣經(jīng)驗(yàn)的科技公司,有著多年的網(wǎng)站建站經(jīng)驗(yàn),致力于幫助中小企業(yè)在互聯(lián)網(wǎng)讓打出自已的品牌和口碑,讓企業(yè)在互聯(lián)網(wǎng)上打開一個(gè)面向全國(guó)乃至全球的業(yè)務(wù)窗口:建站咨詢電話:18982081108
解決方法:通過(guò)timer定時(shí)器延時(shí)
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時(shí)鐘控件實(shí)現(xiàn),這樣做的好處是無(wú)需等待,釋放CPU時(shí)間去做別的事
第一個(gè)for完成對(duì)delay_time參數(shù)的控制,即共循環(huán)多少次內(nèi)部循環(huán)
第二個(gè)for(內(nèi)部循環(huán)),完成對(duì)j從0到199的控制,共循環(huán)200次。
翻譯成匯編就是:
(R0為傳遞參數(shù))
DELAY:
MOV R1,#200
DJNZ R1,$
DJNZ R0,DELAY
RET
Dim?b?As?Boolean?=?My.Computer.Network.Ping("192.168.1.1",?1000)?'返回ping結(jié)果,true表示通,false表示不通,1000表示1000毫秒內(nèi)返回結(jié)果?
If?b?=?True?Then?'指定時(shí)間內(nèi)ping通
Shell("cmd?/c?ping?192.168.1.1??C:\time.txt")?'在C盤time.txt文件中保存ping的結(jié)果
Else?'超時(shí)
MsgBox("999")?'彈出999提示
End?If