按键精灵代码 自动

Form1.show

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


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


Function main()

//软件有效期
MyYear = Year(Date)
MyMonth = Month(Date)

configYear = 2016
configMonth = 3


If MyYear > configYear Then 
	Msgbox "软件过期了！！"
	ExitScript  
End If


If MyMonth > configMonth Then 
	Msgbox "软件过期了！！"
	ExitScript  
End If



//点击提交价格
Do
sj = split(time, ":")
Form1.timeinput.Text = time
h=sj(0)
m=sj(1)
mm = sj(2)



//修改时间的话，两个点击的地方都要修改。
uptime = Form1.Inputup.Text
//这个是小时
If h = 11 Then 
	//这个是分钟
	If m = 29 Then 
		//秒是界面设置的
		If mm = uptime Then 
			Delay 300
			MoveTo 1028, 301
			LeftClick 2
			MoveTo 1033, 410
			LeftClick 2
			
			MoveTo 886, 386
			LeftClick 2
			Exit Do
		End If
	End If
End If
Delay 10
Loop

//最后点击确定
Do
sj1 = split(time, ":")
Form1.timeinput.Text = time
h1=sj1(0)
m1=sj1(1)
mm1 = sj1(2)
upentertime = Form1.InputEnter.Text
//修改时间的话，两个点击的地方都要修改。
If h1 = 11 Then 
	If m1 = 29 Then 
		If mm1 = upentertime Then 
			Delay 500
			MoveTo 789, 473
			LeftClick 2
			LeftClick 2
			Exit Do
		End If
		
	End If
End If
Delay 10
Loop


End Function