按键精灵画螺旋形源码

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

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 "结束,谢谢使用"
相关文件下载地址
©下载资源版权归作者所有;本站所有资源均来源于网络,仅供学习使用,请支持正版!

发表回复

您的邮箱地址不会被公开。必填项已用 * 标注