admin 发表于 2009-12-9 21:26:46

一段按键精灵跳舞的脚本源码


General]
Description=跳舞色
BeginHotkey=222
BeginHotkeyMod=0
PauseHotkey=0
PauseHotkeyMod=0
StopHotkey=186
StopHotkeyMod=0
RunOnce=1
EnableWindow=
Enable=1
AutoRun=0

Type=0
Number=1

SetupOCXFile=

Content=

VBS dim i
//循环开始标记
Rem 开始
Delay 32
//找开始键
MoveTo 697,291
IfColor 569,146,c9e2f6,0
    LeftClick 1
EndIf
//找上下左右
i =0
Rem 找
While i <9
    //空格
    IfColor 722,494,e0b27c,0
      IfColor 507,519,ffffff,0
            KeyPress 32,1
      EndIf
    EndIf
    //上
    IfColor i*64+249,528,a5f2fd,2
      IfColor i*64+261,528,a6f1fd,2
            IfColor i*64+255,542,3787b3,2
                KeyPress 38,1
                i = i + 1
                Goto 找
            EndIf
      EndIf
    EndIf
    //下
    IfColor i*64+249,535,3787b3,2
      IfColor i*64+261,535,3787b3,2
            IfColor i*64+255,522,e8fcff,2
                KeyPress 40,1
                i = i + 1
                Goto 找
            EndIf
      EndIf
    EndIf
    //左
    IfColor i*64+251,526,c1f6fe,2
      IfColor i*64+251,538,3787b3,2
            IfColor i*64+266,532,4ab6d7,2
                KeyPress 37,1
                i = i + 1
                Goto 找
            EndIf
      EndIf
    EndIf
    //右
    IfColor i*64+259,526,c0f6fe,2
      IfColor i*64+259,538,3787b3,2
            IfColor i*64+245,532,4ab6d7,2
                KeyPress 39,1
                i = i + 1
                Goto 找
            EndIf
      EndIf
    EndIf
    //红右
    IfColor i*64+259,526,0000fe,2
      IfColor i*64+259,538,0000b3,2
            IfColor i*64+245,532,0000d7,2
                KeyPress 37,1
                i = i + 1
                Goto 找
            EndIf
      EndIf
    EndIf
    //红上
    IfColor i*64+249,528,0000fd,2
      IfColor i*64+261,528,0000fd,2
            IfColor i*64+255,542,0000b3,2
                KeyPress 40,1
                i = i + 1
                Goto 找
            EndIf
      EndIf
    EndIf
    //红下
    IfColor i*64+249,535,0000b3,2
      IfColor i*64+261,535,0000b3,2
            IfColor i*64+255,522,0000ff,2
                KeyPress 38,1
                i = i + 1
                Goto 找
            EndIf
      EndIf
    EndIf
    //红左
    IfColor i*64+251,526,0000fe,2
      IfColor i*64+251,538,0000b3,2
            IfColor i*64+266,532,0000d7,2
                KeyPress 39,1
                i = i + 1
                Goto 找
            EndIf
      EndIf
    EndIf
    i = i + 1
EndWhile
//空格
IfColor 722,494,e0b27c,2
    IfColor 507,519,ffffff,0
      KeyPress 32,1
    EndIf
EndIf
//找结束
IfColor 765,139,0c0ccb,0
    MoveTo 765,139
    LeftClick 1
    Delay 1000
EndIf
VBSCall FindPic(756,129,782,153,"guan.bmp",0.9,intX,intY)
If intX>0
    MoveTo 769,141
    LeftClick 1
    Delay 1000
EndIf
VBSCall FindPic(549,169,592,189,"kaishi.bmp",0.9,intX,intY)
If intX>0
    MoveTo 567,179
    LeftClick 1
EndIf

页: [1]
查看完整版本: 一段按键精灵跳舞的脚本源码