UserVar AJSZ=DropList{WSAD:1|↑↓←→:2}=1 键位设置
Rem //检测坐标变化
VBSCall GetCursorPos(X1,Y1)
Delay 1
VBSCall GetCursorPos(X2,Y2)
If AJSZ=1
    Gosub //按键方法1
ElseIf AJSZ=2
    Gosub //按键方法2
Else 
    MessageBox "参数错误，请返回修改！"
EndIf 
EndScript 
Sub //按键方法1
    Rem //↖
    If X1>X2 and Y1>Y2
        KeyDown 65,1
        KeyDown 87,1
    EndIf 
    Rem //↑
    If X1=X2 and Y1<Y2
        KeyDown 83,1
    EndIf 
    Rem //↙
    If X1>X2 and Y1<Y2
        KeyDown 65,1
        KeyDown 83,1
    EndIf 
    Rem //↓
    If X1=X2 and Y1>Y2
        KeyDown 87,1
    EndIf 
    Rem //←
    If X1>X2 and Y1=Y2
        KeyDown 65,1
    EndIf 
    Rem //↘
    If X1<X2 and Y1<Y2
        KeyDown 83,1
        KeyDown 68,1
    EndIf 
    Rem //→
    If X1<X2 and Y1=Y2
        KeyDown 68,1
    EndIf 
    Rem //↗
    If X1<X2 and Y1>Y2
        KeyDown 68,1
        KeyDown 87,1
    EndIf 
    Rem //不动时
    If X1=X2 and Y1=Y2
        KeyUp 65,1
        KeyUp 87,1
        KeyUp 68,1
        KeyUp 83,1
        Goto //检测坐标变化
    EndIf 
EndIf 
Return //按键方法1
Sub //按键方法2
    Rem //↖
    If X1>X2 and Y1>Y2
        KeyDown 37,1
        KeyDown 38,1
    EndIf 
    Rem //↑
    If X1=X2 and Y1<Y2
        KeyDown 38,1
    EndIf 
    Rem //↙
    If X1>X2 and Y1<Y2
        KeyDown 37,1
        KeyDown 40,1
    EndIf 
    Rem //↓
    If X1=X2 and Y1>Y2
        KeyDown 40,1
    EndIf 
    Rem //←
    If X1>X2 and Y1=Y2
        KeyDown 37,1
    EndIf 
    Rem //↘
    If X1<X2 and Y1<Y2
        KeyDown 39,1
        KeyDown 40,1
    EndIf 
    Rem //→
    If X1<X2 and Y1=Y2
        KeyDown 39,1
    EndIf 
    Rem //↗
    If X1<X2 and Y1>Y2
        KeyDown 39,1
        KeyDown 38,1
    EndIf 
    Rem //不动时
    If X1=X2 and Y1=Y2
        KeyUp 38,1