一段按键精灵的脚本

Dim x1
Dim x2
Dim x3
Dim x4
x1 = "1"
x2 = "0"
x3 = "0"
x4 = "0"

Dim a
Dim a1
Dim a2
Dim a3
Dim a4
a1 = 0
a2 = 0
a3 = 0
a4 = 0
a = 2015

For 10
a=a+1
a1 = a \ 1000
a2 = (a mod 1000) \ 100
a3 = (a mod 100) \ 10
a4 = a mod 10
x1 = CStr(a1)
x2 = CStr(a2)
x3 = CStr(a3)
x4 = CStr(a4)
'==========以下是按键精灵录制的内容==========
MoveTo 125, 89
Delay 100
LeftClick 1
'==========================
MoveTo 359, 357
Delay 1000
LeftClick 1
KeyDown "BackSpace", 1
Delay 10
KeyUp "BackSpace", 1
Delay 10
KeyDown "BackSpace", 1
Delay 10
KeyUp "BackSpace", 1
Delay 10
KeyDown "BackSpace", 1
Delay 10
KeyUp "BackSpace", 1
Delay 10
KeyDown "BackSpace", 1
Delay 10
KeyUp "BackSpace", 1
Delay 10
KeyDown x1, 1
Delay 10
KeyUp x1, 1
Delay 10
KeyDown x2, 1
Delay 10
KeyUp x2, 1
Delay 10
KeyDown x3, 1
Delay 10
KeyUp x3, 1
Delay 10
KeyDown x4, 1
Delay 10
KeyUp x4, 1
Delay 500
'==========================
MoveTo 678, 34
Delay 100
LeftClick 1
'==========================
MoveTo 400, 414
Delay 100
LeftClick 1
'==========================
MoveTo 371, 269
Delay 100
LeftClick 1

'==========================

MoveTo 500, 429
Delay 500

'=Dim c
'=c = GetPixelColor(683, 436)
IfColor 683, 436, "C8D0D4", 1 Then
'====If c <> "C8D0D4" Then

MessageBox c
goto endsearch
Else
End If

LeftClick 1
'==========================

MoveTo 616, 9
Delay 100
LeftClick 1

'==========以上是按键精灵录制的内容==========

 
Next

rem  endsearch