RestoreMousePos Delay StringDelay KeyDown "Ctrl", 1 KeyPress "End", 1 KeyUp "Ctrl", 1 SayString "有没有看晕呢?呵呵。其实我演示了我模拟鼠标的基本能力,那就是" KeyPress "Enter", 1 SayString "鼠标点击、鼠标移动、鼠标相对移动和保存/恢复鼠标位置,当然中间还加了一些""延时""" Delay StringDelay KeyPress "Enter", 1 KeyPress "Enter", 1 SayString "好了,基本的本领介绍完了,你可以使用我的编辑功能制作这些动作,全是界面操作,非常非常简单,快去试试吧!" Delay StringDelay Call 脚本结束() //脚本结束 Sub 脚本结束() MessageBox "脚本演示结束,最好的脚本永远是您自己制作的。 :-)" EndScript End Sub //例子:关闭当前窗口 //说明:Windows里面按下alt+f4即可关闭当前窗口,模拟这个操作 Sub GuanBiChuangKou() KeyDown "Alt", 1 KeyPress "F4", 1 KeyUp "Alt", 1 End Sub //例子:用鼠标画一个圆 Sub 画圆() r=300:x0=512:y0=384:x=0:y=0:n=0 While n<3.1415926*2 x=x0+r*cos(n) y=y0-r*sin(n) MoveTo x,y Delay 20 n=n+0.03 Wend End Sub