按键精灵脚本代码

Event Form1.Label1.Click

End Event

Event Form1.Button1.Click
uptimetext = Form1.InputEnter.Text
Form1.InputEnter.Enabled = False
Form1.Button1.Enabled = False
e= BeginThread (main ())
End Event


Event Form1.Button2.Click
StopThread e
Form1.InputEnter.Enabled = True
Form1.Button1.Enabled = True
End Event


Function main()
Do
sj = split(time, ":")
h=sj(0)
m=sj(1)
mm = sj(2)
uptimetext = Form1.InputEnter.Text
Form1.Inputup.Text=uptimetext
If h = 19 Then 
	If m = 28 Then 
		If mm = uptimetext Then 
			MoveTo 100, 100
			Exit Do
		End If
		
	End If
End If

Delay 10
Loop
End Function