按键精灵脚本代码

最新推荐文章于 2024-08-02 08:29:13 发布

kc专栏

最新推荐文章于 2024-08-02 08:29:13 发布

阅读量9.2k

点赞数 2

本文链接：https://blog.csdn.net/kc58236582/article/details/50373964

版权

按键精灵脚本专栏收录该内容

2 篇文章 0 订阅

订阅专栏

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