第一個(gè)for完成對(duì)delay_time參數(shù)的控制,即共循環(huán)多少次內(nèi)部循環(huán)
創(chuàng)新互聯(lián)-專業(yè)網(wǎng)站定制、快速模板網(wǎng)站建設(shè)、高性價(jià)比嵐皋網(wǎng)站開發(fā)、企業(yè)建站全套包干低至880元,成熟完善的模板庫(kù),直接使用。一站式嵐皋網(wǎng)站制作公司更省心,省錢,快速模板網(wǎng)站建設(shè)找我們,業(yè)務(wù)覆蓋嵐皋地區(qū)。費(fèi)用合理售后完善,十年實(shí)體公司更值得信賴。
第二個(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
Threading.Thread.Sleep(500)這句是線程停止等待的,在這500毫秒的時(shí)間里你的任何動(dòng)作都是不響應(yīng)的,理論上再SendKeys.Send(TextBox2.Text)這段時(shí)間內(nèi)你可以動(dòng)作,但是send是毫秒級(jí)完成的,你還沒(méi)有來(lái)得及響應(yīng)就進(jìn)入了下一次的循環(huán),所以跟卡死類似
解決方法:通過(guò)timer定時(shí)器延時(shí)
學(xué)習(xí)一下后臺(tái)線程,
看一下3個(gè)timer類,
實(shí)在想簡(jiǎn)單,就在UI線程里用timer控件去實(shí)現(xiàn)
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