//初始化的工作 Dim hWnd Dim ax,ay,bx,by set TiShiObj = createobject("WScript.Shell") Plugin File.DeleteFile("../qmacro.ini.bak") Plugin File.MoveFile("../qmacro.ini","../qmacro.ini.bak") //鼠标移到屏幕正中并保存位置,这样可以显示较长时间的鼠标移动轨迹 YiDongSuDu=3 Rem ==========以下是按键精灵录制的内容========== MoveTo 549,611 Delay 16 MoveTo 539,597 MoveTo 519,571 Delay 15 MoveTo 487,537 Delay 16 MoveTo 463,502 MoveTo 430,466 Delay 16 MoveTo 400,432 Delay 15 MoveTo 376,397 Delay 16 MoveTo 356,364 Delay 16 MoveTo 345,341 MoveTo 337,321 Delay 15 MoveTo 331,304 Delay 16 MoveTo 328,292 Delay 15 MoveTo 326,284 Delay 16 MoveTo 325,281 MoveTo 323,276 Delay 16 MoveTo 322,272 Delay 15 MoveTo 321,270 Delay 16 MoveTo 319,265 Delay 16 MoveTo 315,259 MoveTo 314,252 Delay 15 MoveTo 313,249 MoveTo 310,246 Delay 16 MoveTo 305,241 Delay 15 MoveTo 304,238 Delay 16 MoveTo 299,234 MoveTo 299,233 Delay 16 MoveTo 298,231 Delay 15 MoveTo 297,222 Delay 16 MoveTo 293,212 MoveTo 293,203 Delay 16 MoveTo 293,196 Delay 15 MoveTo 293,182 Delay 16 MoveTo 293,167 MoveTo 293,162 Delay 15 MoveTo 293,144 Delay 16 MoveTo 293,136 Delay 16 MoveTo 293,130 MoveTo 293,128 Delay 15 MoveTo 293,124 Delay 16 MoveTo 293,120 MoveTo 293,117 Delay 16 MoveTo 293,112 Delay 15 MoveTo 293,109 MoveTo 294,106 Delay 16 MoveTo 294,103 Delay 15 MoveTo 294,101 Delay 16 MoveTo 294,99 Delay 16 MoveTo 294,98 Delay 31 MoveTo 294,97 MoveTo 294,96 Delay 16 MoveTo 294,95 Delay 15