口信息
//跳舞次数
sum=0
max=5
off=0
//空格速度微调（50-70之间 机器速度越慢 数值越小）
speed=65
Dim HUA
//申明变量是个好习惯
HUA=""
//定义变量
Plugin hwnd=Window.Foreground()
//调用插件得到当前窗口句柄，结果返回给变量hwnd
Plugin wtext=Window.GetText(hwnd)
//调用插件根据窗口句柄得到当前窗口标题，结果返回给变量wtext
Plugin wclass=Window.GetClass(hwnd)
//调用插件根据窗口句柄得到当前窗口类，结果返回给变量wclass
Plugin path=Window.GetExePath(hwnd)
//调用插件根据窗口句柄得到当前窗口的路径，结果返回给变量path
Plugin rect=Window.GetClientRect(hwnd)
//调用插件根据窗口句柄得到当前客户区坐标数据，结果返回给变量rect
Plugin wrect=Window.GetWindowRect(hwnd)
//调用插件根据窗口句柄得到当前窗口坐标数据，结果返回给变量wrect
MyArray = Split(rect, "|", -1, 1)
//以"|"这个条件来分割字符串rect，结果返回数组MyArray()
//MyArray(0)=客户区左上角X坐标
//MyArray(1)=客户区左上角Y坐标
//MyArray(2)=客户区宽度
//MyArray(3)=客户区高度
//判断游戏分辨率
Area=MyArray(2)*MyArray(3)
If Area<>480000
    MessageBox "请将游戏分辨率调整为800*600，谢谢。"
    EndScript 
EndIf 
//主程序
Rem 主程序
If sum>=max
    If off=1
        Plugin Msg.ShowScrTXT(10,10,500,500,"                           准备自动关机 按 F12取消","ff0000")
        Delay 1000
        Plugin Msg.ShowScrTXT(10,10,500,500,"                           倒计时5秒 按 F12取消","ff0000")
        Delay 1000
        Plugin Msg.ShowScrTXT(10,10,500,500,"                           倒计时4秒 按 F12取消","ff0000")
        Delay 1000
        Plugin Msg.ShowScrTXT(10,10,500,500,"                           倒计时3秒 按 F12取消","ff0000")
        Delay 1000
        Plugin Msg.ShowScrTXT(10,10,500,500,"                           倒计时2秒 按 F12取消","ff0000")
        Delay 1000
        Plugin Msg.ShowScrTXT(10,10,500,500,"                           倒计时1秒 按 F12取消","ff0000")
        Delay 1000
        //关机计算机(关机)
        Call Plugin.Sys.ExitOS(1）
    EndIf 
    MessageBox "已经跳了次数了呦。"
    EndScript 
    Plugin Msg.ShowScrTXT(10,10,500,500," ","ffff00")
EndIf 
sum=sum+1
MoveTo 531+MyArray(0),119+MyArray(1)
Delay 100
LeftClick 1
Delay 100
MoveTo 543+MyArray(0),197+MyArray(1)
Delay 100
LeftClick 1
Delay 100
MoveTo 458+MyArray(0),152+MyArray(1)
Delay 100
LeftClick 1
Goto 跳舞
//跳舞程序
Rem 跳舞
x=53+MyArray(0)
y=423+MyArray(1)
While x<750+MyArray(0)
    //up
    VBSCall FindPic(x,y,x+63,y+63,"Attachment:\up.bmp",0.9,intX,intY)
    If intX>0
        KeyPress 38,1
    EndIf 
    //downn
    VBSCall FindPic(x,y,x+63,y+63,"Attachment:\down.bmp",0.9,intX,intY)
    If intX>0
        KeyPress 40,1
    EndIf 
    //left
    VBSCall FindPic(x,y,x+63,y+63,"Attachment:\left.bmp",0.9,intX,intY)
    If intX>0
        KeyPress 37,1
    EndIf 
    //right
    VBSCall FindPic(x,y,x+63,y+63,"Attachment:\right.bmp",0.9,intX,intY)
    If intX>0
        KeyPress 39,1
    EndIf 
    IfColor 31+x,29+y,0000E5,2
        //rup
        VBSCall FindPic(x,y,x+63,y+63,"Attachment:\rup.bmp",0.8,intX,intY)
        If intX>0