按键精灵画螺旋形源码

运行环境：分辨率：1920x1080 色深：32位 操作系统：Windows 7 Home Basic 按键精灵版本：9.51.11790

@xiaoyan9894 2013/4/19

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 "结束，谢谢使用"