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)=客户区高度
Rem 主程序
x=53+MyArray(0)
y=423+MyArray(1)
While x<750+MyArray(0)
    //up
    VBSCall FindPic(x,y,x+63,y+63,"up.bmp",0.9,intX,intY)
    If intX>0
        KeyPress 38,1
    EndIf 
    //downn
    VBSCall FindPic(x,y,x+63,y+63,"down.bmp",0.9,intX,intY)
    If intX>0
        KeyPress 40,1
    EndIf 
    //left
    VBSCall FindPic(x,y,x+63,y+63,"left.bmp",0.9,intX,intY)
    If intX>0
        KeyPress 37,1
    EndIf 
    //right
    VBSCall FindPic(x,y,x+63,y+63,"right.bmp",0.9,intX,intY)
    If intX>0
        KeyPress 39,1
    EndIf 
    //++
    x=x+63
EndWhile 
Goto 主程序