大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
已音乐播放器为例 完全没问题
创新互联公司从2013年开始,是专业互联网技术服务公司,拥有项目网站设计制作、网站制作网站策划,项目实施与项目整合能力。我们以让每一个梦想脱颖而出为使命,1280元保山做网站,已为上家服务,为保山各地企业和个人服务,联系电话: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
第一个for完成对delay_time参数的控制,即共循环多少次内部循环
第二个for(内部循环),完成对j从0到199的控制,共循环200次。
翻译成汇编就是:
(R0为传递参数)
DELAY:
MOV R1,#200
DJNZ R1,$
DJNZ R0,DELAY
RET
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
'表示注释阿。。赫赫
我的意思是最后一个循环能够控制剩下的20分钟
Do While Timer loopfinish '00:20
'out of loop at 00:20
Loop
=================================
你的理解也对 , 虽然分钟和秒有些差别,不过理解上是一样的
这后面还有两句代码 , 可能在你的那种情况下就有用了
'假如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