按键精灵源代码整理.doc

1.御剑脚本Hwnd = Plugin.Window.MousePoint()Rem XXCall Plugin.Bkgnd.KeyPress(Hwnd, 51)Call Plugin.Bkgnd.KeyPress(Hwnd, 51)Call Plugin.Bkgnd.KeyPress(Hwnd, 51)Call Plugin.Bkgnd.KeyPress(Hwnd, 51)Call Plugin.Bkgnd.KeyPress(Hwnd, 51)Call Plugin.Bkgnd.KeyPress(Hwnd, 51)Call Plugin.Bkgnd.KeyPress(Hwnd, 50)Call Plugin.Bkgnd.KeyPress(Hwnd, 50)Call Plugin.Bkgnd.KeyPress(Hwnd, 50)Call Plugin.Bkgnd.KeyPress(Hwnd, 52)Call Plugin.Bkgnd.KeyPress(Hwnd, 53)Goto XX2. 奶妈挂机加血（自动用蓝药，配合奶妈7秒叶子）Hwnd = Plugin.Window.MousePoint()Call Plugin.Window.Size(Hwnd, 900, 600)Call Plugin.Window.Move(Hwnd, 4, 143)Rem XXIfColor 325,208,163CDB,0 ThenElseCall Plugin.Bkgnd.KeyPress(Hwnd, 50)End IfIfColor 257,208,163CDB,0 ThenElse Delay 1000Call Plugin.Bkgnd.KeyPress(Hwnd, 51) Delay 1000 Call Plugin.Bkgnd.KeyPress(Hwnd, 52)End IfIfColor 163,222,9C841A,0 ThenElseCall Plugin.Bkgnd.KeyPress(Hwnd, 53)End IfIfColor 77,226,453A10,0 ThenElse=以下是按键精灵录制的内容=（这个是控制鼠标去点掉宠物附体回蓝的，属于前台的）Delay 291MoveTo 374, 506Delay 125MoveTo 375, 504Delay 33MoveTo 375, 503Delay 50MoveTo 377, 501Delay 36MoveTo 381, 500Delay 49MoveTo 385, 498Delay 40MoveTo 386, 498Delay 163MoveTo 388, 497Delay 9MoveTo 389, 497Delay 7MoveTo 390, 497Delay 50MoveTo 394, 496Delay 51MoveTo 397, 495MoveTo 398, 494Delay 30KeyDown 1, 1Delay 19MoveTo 402, 493Delay 43MoveTo 405, 491Delay 40MoveTo 410, 486Delay 1KeyUp 1, 1Delay 61MoveTo 430, 471Delay 55MoveTo 459, 431Delay 8MoveTo 463, 423Delay 7MoveTo 468, 414Delay 55MoveTo 503, 331Delay 47MoveTo 531, 287Delay 1MoveTo 535, 282Delay 54MoveTo 551, 261Delay 12MoveTo 553, 259MoveTo 556, 257Delay 55MoveTo 564, 251Delay 36MoveTo 572, 246Delay 43MoveTo 583, 240Delay 38MoveTo 589, 235Delay 37MoveTo 593, 233Delay 30MoveTo 597, 230Delay 47MoveTo 602, 226Delay 1MoveTo 605, 223Delay 32MoveTo 608, 219Delay 36MoveTo 611, 215Delay 38MoveTo 614, 211Delay 39MoveTo 615, 208Delay 143MoveTo 616, 207Delay 332RightDown 1Delay 14RightDown 1Delay 53RightClick 1Delay 1RightClick 1Delay 68MoveTo 617, 206Delay 66MoveTo 621, 202Delay 58MoveTo 624, 199Delay 40MoveTo 625, 197Delay 10MoveTo 626, 197Delay 77MoveTo 627, 196Delay 51MoveTo 627, 195Delay 30MoveTo 627, 194Delay 67MoveTo 627, 193Delay 1325RightDown 1Delay 8RightDown 1Delay 109RightClick 1Delay 1RightClick 1Delay 1362MoveTo 628, 194Delay 113MoveTo 628, 195Delay 42MoveTo 628, 196Delay 25MoveTo 628, 198Delay 1KeyDown 2, 1Delay 1Delay 48MoveTo 631, 206Delay 1MoveTo 631, 207Delay 46MoveTo 637, 219Delay 37MoveTo 637, 220Delay 1KeyUp 2, 1Delay 1MoveTo 640, 229Delay 77MoveTo 647, 243Delay 46MoveTo 648, 247Delay 63MoveTo 648, 249Delay 30MoveTo 648, 250Delay 77MoveTo 648, 251Delay 134MoveTo 650, 252Delay 44MoveTo 656, 256Delay 38MoveTo 674, 269Delay 32MoveTo 704, 295Delay 27MoveTo 745, 326Delay 70MoveTo 954, 476Delay 11MoveTo 978, 490Delay 2MoveTo 1000, 504Delay 283MoveTo 1113, 582Delay 51MoveTo 1099, 584Delay 50MoveTo 1084, 582=以上是按键精灵录制的内容=End IfGoto XX3. 奶妈7秒叶子Hwnd = Plugin.Window.MousePoint()Rem AACall Plugin.Bkgnd.KeyPress(Hwnd, 49)Delay 14000Goto AA4. 奶妈无限群加Hwnd = Plugin.Window.MousePoint()Rem xxCall Plugin.Bkgnd.KeyPress(Hwnd, 49)Call Plugin.Bkgnd.LeftClick(Hwnd, 450-dx, 380-dy)Delay 1000Goto xx5. 剑半后台挂机，自动回宗派躲验证（怪物血条得露出来才行，其他的按键是后台操作）Hwnd = Plugin.Window.MousePoint()Call Plugin.Window.Size(Hwnd, 800, 500)Call Plugin.Window.Move(Hwnd, 0, 140)Rem 重置时间Dim t1t1=nowRem XXIfColor 215,206,1332B1,0 Then Call Plugin.Bkgnd.KeyPress(Hwnd, 49)Call Plugin.Bkgnd.KeyPress(Hwnd, 50) Call Plugin.Bkgnd.KeyPress(Hwnd, 51) Call Plugin.Bkgnd.KeyPress(Hwnd, 51) Call Plugin.Bkgnd.KeyPress(Hwnd, 52) Call Plugin.Bkgnd.KeyPress(Hwnd, 53)Call Plugin.Bkgnd.KeyPress(Hwnd, 50) Call Plugin.Bkgnd.KeyPress(Hwnd, 51) Call Plugin.Bkgnd.KeyPress(Hwnd, 51) Call Plugin.Bkgnd.KeyPress(Hwnd, 52) Call Plugin.Bkgnd.KeyPress(Hwnd, 53) Call Plugin.Bkgnd.KeyPress(Hwnd, 56)Call Plugin.Bkgnd.KeyPress(Hwnd, 50) Call Plugin.Bkgnd.KeyPress(Hwnd, 51) Call Plugin.Bkgnd.KeyPress(Hwnd, 51) Call Plugin.Bkgnd.KeyPress(Hwnd, 52) Call Plugin.Bkgnd.KeyPress(Hwnd, 53) Call Plugin.Bkgnd.KeyPress(Hwnd, 54)Call Plugin.Bkgnd.KeyPress(Hwnd, 50) Call Plugin.Bkgnd.KeyPress(Hwnd, 51) Call Plugin.Bkgnd.KeyPress(Hwnd, 51) Call Plugin.Bkgnd.KeyPress(Hwnd, 52) Call Plugin.Bkgnd.KeyPress(Hwnd, 53) Call Plugin.Bkgnd.KeyPress(Hwnd, 56)Call Plugin.Bkgnd.KeyPress(Hwnd, 50) Call Plugin.Bkgnd.KeyPress(Hwnd, 51) Call Plugin.Bkgnd.KeyPress(Hwnd, 51) Call Plugin.Bkgnd.KeyPress(Hwnd, 52) Call Plugin.Bkgnd.KeyPress(Hwnd, 53) Call Plugin.Bkgnd.KeyPress(Hwnd, 56)Call Plugin.Bkgnd.KeyPress(Hwnd, 50) Call Plugin.Bkgnd.KeyPress(Hwnd, 51) Call Plugin.Bkgnd.KeyPress(Hwnd, 51) Call Plugin.Bkgnd.KeyPress(Hwnd, 52) Call Plugin.Bkgnd.KeyPress(Hwnd, 53) Call Plugin.Bkgnd.KeyPress(Hwnd, 56)Call Plugin.Bkgnd.KeyPress(Hwnd, 50) Call Plugin.Bkgnd.KeyPress(Hwnd, 51) Call Plugin.Bkgnd.KeyPress(Hwnd, 51) Call Plugin.Bkgnd.KeyPress(Hwnd, 52) Call Plugin.Bkgnd.KeyPress(Hwnd, 53) Call Plugin.Bkgnd.KeyPress(Hwnd, 56)Call Plugin.Bkgnd.KeyPress(Hwnd, 50) Call Plugin.Bkgnd.KeyPress(Hwnd, 51) Call Plugin.Bkgnd.KeyPress(Hwnd, 51) Call Plugin.Bkgnd.KeyPress(Hwnd, 52) Call Plugin.Bkgnd.KeyPress(Hwnd, 53) Call Plugin.Bkgnd.KeyPress(Hwnd, 56)Call Plugin.Bkgnd.KeyPress(Hwnd, 50) Call Plugin.Bkgnd.KeyPress(Hwnd, 51) Call Plugin.Bkgnd.KeyPress(Hwnd, 51) Call Plugin.Bkgnd.KeyPress(Hwnd, 52) Call Plugin.Bkgnd.KeyPress(Hwnd, 53)Call Plugin.Bkgnd.KeyPress(Hwnd, 50) Call Plugin.Bkgnd.KeyPress(Hwnd, 51) Call Plugin.Bkgnd.KeyPress(Hwnd, 51) Call Plugin.Bkgnd.KeyPress(Hwnd, 52) Call Plugin.Bkgnd.KeyPress(Hwnd, 53)Call Plugin.Bkgnd.KeyPress(Hwnd, 50) Call Plugin.Bkgnd.KeyPress(Hwnd, 51) Call Plugin.Bkgnd.KeyPress(Hwnd, 51) Call Plugin.Bkgnd.KeyPress(Hwnd, 52) Call Plugin.Bkgnd.KeyPress(Hwnd, 53)Call Plugin.Bkgnd.KeyPress(Hwnd, 50) Call Plugin.Bkgnd.KeyPress(Hwnd, 51) Call Plugin.Bkgnd.KeyPress(Hwnd, 51) Call Plugin.Bkgnd.KeyPress(Hwnd, 52) Call Plugin.Bkgnd.KeyPress(Hwnd, 53) Call Plugin.Bkgnd.KeyPress(Hwnd, 54) Call Plugin.Bkgnd.KeyPress(Hwnd, 55)ElseCall Plugin.Bkgnd.KeyPress(Hwnd, 68) Call Plugin.Bkgnd.KeyPress(Hwnd, 9) Delay 500End IfIfColor 215,206,1332B1,0 ThenGoto XX Elseif datediff(n,t1,now)=35 then（35分钟自动回宗派） Delay 1000 Call Plugin.Bkgnd.KeyPress(Hwnd, 57) Delay 5000 IfColor 215,206,1332B1,0 Then Goto XX Else Delay 1000 Call Plugin.Bkgnd.KeyPress(Hwnd, 57) Delay 80000 MoveTo 757, 759 Delay 2000 LeftClick 1 Delay 2000 MoveTo 422, 471 Delay 2000 LeftClick 1 Delay 150000 MoveTo 399, 700 Delay 1000 LeftClick 1 Delay 70000 MoveTo 542, 620 Delay 15000 LeftClick 1 Delay 1000 Goto 重置时间 End If Else Goto XX End If End If Goto XX6. 奶妈半后台打怪Hwnd = Plugin.Window.MousePoint()Call Plugin.Window.Size(Hwnd, 800, 500)Call Plugin.Window.Move(Hwnd, 480, 0)Rem 重置时间Dim t1t1=nowRem XXIfColor 695,66,1332B1,0 Then Call Plugin.Bkgnd.KeyPress(Hwnd, 49) Call Plugin.Bkgnd.KeyPress(Hwnd, 50) Call Plugin.Bkgnd.KeyPress(Hwnd, 51) Call Plugin.Bkgnd.KeyPress(Hwnd, 52) Call Plugin.Bkgnd.KeyPress(Hwnd, 53) Call Plugin.Bkgnd.KeyPress(Hwnd, 53) Call Plugin.Bkgnd.KeyPress(Hwnd, 53) Call Plugin.Bkgnd.KeyPress(Hwnd, 53) Call Plugin.Bkgnd.KeyPress(Hwnd, 53) Call Plugin.Bkgnd.KeyPress(Hwnd, 54) Call Plugin.Bkgnd.KeyPress(Hwnd, 49) Call Plugin.Bkgnd.KeyPress(Hwnd, 50) Call Plugin.Bkgnd.KeyPress(Hwnd, 51) Call Plugin.Bkgnd.KeyPress(Hwnd, 52) Call Plugin.Bkgnd.KeyPress(Hwnd, 53) Call Plugin.Bkgnd.KeyPress(Hwnd, 53) Call Plugin.Bkgnd.KeyPress(Hwnd, 53) Call Plugin.Bkgnd.KeyPress(Hwnd, 53) Call Plugin.Bkgnd.KeyPress(Hwnd, 53) Call Plugin.Bkgnd.KeyPress(Hwnd, 53) Call Plugin.Bkgnd.KeyPress(Hwnd, 50) Call Plugin.Bkgnd.KeyPress(Hwnd, 51) Call Plugin.Bkgnd.KeyPress(Hwnd, 52) Call Plugin.Bkgnd.KeyPress(Hwnd, 53) Call Plugin.Bkgnd.KeyPress(Hwnd, 53) Call Plugin.Bkgnd.KeyPress(Hwnd, 53) Call Plugin.Bkgnd.KeyPress(Hwnd, 49) Call Plugin.Bkgnd.KeyPress(Hwnd, 50) Call Plugin.Bkgnd.KeyPress(Hwnd, 51) Call Plugin.Bkgnd.KeyPress(Hwnd, 52) Call Plugin.Bkgnd.KeyPress(Hwnd, 53) Call Plugin.Bkgnd.KeyPress(Hwnd, 53) Call Plugin.Bkgnd.KeyPress(Hwnd, 53) Call Plugin.Bkgnd.KeyPress(Hwnd, 53) Call Plugin.Bkgnd.KeyPress(Hwnd, 53) Call Plugin.Bkgnd.KeyPress(Hwnd, 53) Call Plugin.Bkgnd.KeyPress(Hwnd, 53) Call Plugin.Bkgnd.KeyPress(Hwnd, 54) Call Plugin.Bkgnd.KeyPress(Hwnd, 49) Call Plugin.Bkgnd.KeyPress(Hwnd, 50) Call Plugin.Bkgnd.KeyPress(Hwnd, 51) Call Plugin.Bkgnd.KeyPress(Hwnd, 52) Call Plugin.Bkgnd.KeyPress(Hwnd, 53) Call Plugin.Bkgnd.KeyPress(Hwnd, 53) Call Plugin.Bkgnd.KeyPress(Hwnd, 53) Call Plugin.Bkgnd.KeyPress(Hwnd, 53) Call Plugin.Bkgnd.KeyPress(Hwnd, 53) Call Plugin.Bkgnd.KeyPress(Hwnd, 53) Call Plugin.Bkgnd.KeyPress(Hwnd, 4