Dim a，b,x,y，n
MessageBox "单击确定键打开画图软件"
Delay 500
RunApp "mspaint.exe"
Delay 500
//最大化
KeyDown "Alt", 1
KeyPress "Space", 1
KeyUp "Alt", 1
KeyPress "X", 1
Delay 500
a = 920
b=530
    n=inputbox("输入旋转圈数","准备",n)
messagebox"按下确定键开始画图(直到出现结束窗口，不要移动鼠标）"
Delay 500
MoveTo a, b
Delay 20
LeftDown 1
Delay 20
x = 1
y=0
For n
MoveTo a+5*x, b+5*y
    Delay 50
    y=x
MoveTo a+5*x, b+5*y
    Delay 50
    x=-x
    MoveTo a+5*x, b+5*y
        Delay 50
        y=x
    MoveTo a+5*x, b+5*y
        Delay 50
x=-(x+1)
        MoveTo a+5*x, b+5*y
        Delay 50
Next
LeftUp 1
MessageBox "结束，谢谢使用"