代码如下,思路是输入框输入时和分、延迟这三个参数,然后到时间了就启动子程序a,打开笔记本,语法没毛病,但是运行起来一点反应都没有
While true
NowTime=Time
if Hour(NowTime)=Form1.InputBox1.Text and Minute(NowTime) =Form1.InputBox2.Text then//日期:2010.10.07
call a()
end if
wend
sub a()
Call Lib.系统.结束进程("notepad.exe")
Delay Form1.InputBox3.Text
RunApp "notepad.exe"
end sub
While true
NowTime=Time
if Hour(NowTime)=Form1.InputBox1.Text and Minute(NowTime) =Form1.InputBox2.Text then//日期:2010.10.07
call a()
end if
wend
sub a()
Call Lib.系统.结束进程("notepad.exe")
Delay Form1.InputBox3.Text
RunApp "notepad.exe"
end sub