VB 延遲10秒按下F10鍵 代碼問題

已音樂播放器為例 完全沒問題

創(chuàng)新互聯(lián)公司從2013年開始，是專業(yè)互聯(lián)網(wǎng)技術(shù)服務(wù)公司，擁有項(xiàng)目網(wǎng)站設(shè)計(jì)制作、網(wǎng)站制作網(wǎng)站策劃，項(xiàng)目實(shí)施與項(xiàng)目整合能力。我們以讓每一個(gè)夢(mèng)想脫穎而出為使命，1280元保山做網(wǎng)站,已為上家服務(wù),為保山各地企業(yè)和個(gè)人服務(wù),聯(lián)系電話:18980820575

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Timer1_Timer()

Dim fwd As Long

fwd = FindWindow(vbNullString, "XXX")

If fwd = 0 Then

Shell "D:\Program Files\TTPlayer\TTPlayer.exe", 1

DoEvents

Sleep 10000

DoEvents

SendKeys "{F5}" '播放鍵

Timer1.Enabled = False

End If

End Sub

Private Sub Form_Load()

Timer1.Interval = 1000

Timer1.Enabled = True

End Sub

如何正確理解VB.NET延時(shí)函數(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

VB.NET的幾種延時(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

vb 關(guān)于時(shí)間延遲

'表示注釋阿。。赫赫

我的意思是最后一個(gè)循環(huán)能夠控制剩下的20分鐘

Do While Timer loopfinish '00:20

'out of loop at 00:20

Loop

=================================

你的理解也對(duì) , 雖然分鐘和秒有些差別，不過理解上是一樣的

這后面還有兩句代碼 ， 可能在你的那種情況下就有用了

'假如delaytime = 30 * 60 = 30 分鐘 * 60 秒

Static Sub delayloop(delaytime)

Const secondsinday = 86400

'假如Timer 是0:00 前10分鐘

loopfinish = Timer + delaytime ' 20*60 + 86400

If loopfinish secondsinday Then

loopfinish = loopfinish - secondsinday '20 * 60

Do While Timer loopfinish

'out of loop at 0:00

Loop

End If

Do While Timer loopfinish '00:20

'out of loop at 00:20

Loop

End Sub