按键精灵源代码整理.doc

1.御剑脚本
Hwnd = Plugin.Window.MousePoint()
Rem XX

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, 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 XX

2. 奶妈挂机加血（自动用蓝药，配合奶妈7秒叶子）
Hwnd = Plugin.Window.MousePoint()
Call Plugin.Window.Size(Hwnd, 900, 600)
Call Plugin.Window.Move(Hwnd, 4, 143)
Rem XX
IfColor 325,208,"163CDB",0 Then
Else
Call Plugin.Bkgnd.KeyPress(Hwnd, 50)
End If
IfColor 257,208,"163CDB",0 Then
Else
Delay 1000
Call Plugin.Bkgnd.KeyPress(Hwnd, 51)
Delay 1000
Call Plugin.Bkgnd.KeyPress(Hwnd, 52)
End If
IfColor 163,222,"9C841A",0 Then
Else
Call Plugin.Bkgnd.KeyPress(Hwnd, 53)
End If
IfColor 77,226,"453A10",0 Then
Else

'==========以下是按键精灵录制的内容==========（这个是控制鼠标去点掉宠物附体回蓝的，属于前台的）
Delay 291
MoveTo 374, 506
Delay 125
MoveTo 375, 504
Delay 33
MoveTo 375, 503
Delay 50
MoveTo 377, 501
Delay 36
MoveTo 381, 500
Delay 49
MoveTo 385, 498
Delay 40
MoveTo 386, 498
Delay 163
MoveTo 388, 497
Delay 9
MoveTo 389, 497
Delay 7
MoveTo 390, 497
Delay 50
MoveTo 394, 496
Delay 51
MoveTo 397, 495
MoveTo 398, 494
Delay 30
KeyDown "1", 1
Delay 19
MoveTo 402, 493
Delay 43
MoveTo 405, 491
Delay 40
MoveTo 410, 486
Delay 1
KeyUp "1", 1
Delay 61
MoveTo 430, 471
Delay 55
MoveTo 459, 431
Delay 8
MoveTo 463, 423
Delay 7
MoveTo 468, 414
Delay 55
MoveTo 503, 331
Delay 47
MoveTo 531, 287
Delay 1
MoveTo 535, 282
Delay 54
MoveTo 551, 261
Delay 12
MoveTo 553, 259
MoveTo 556, 257
Delay 55
MoveTo 564, 251
Delay 36
MoveTo 572, 246
Delay 43
MoveTo 583, 240
Delay 38
MoveTo 589, 235
Delay 37
MoveTo 593, 233
Delay 30
MoveTo 597, 230
Delay 47
MoveTo 602, 226
Delay 1
MoveTo 605, 223
Delay 32
MoveTo 608, 219
Delay 36
MoveTo 611, 215
Delay 38
MoveTo 614, 211
Delay 39
MoveTo 615, 208
Delay 143
MoveTo 616, 207
Delay 332
RightDown 1
Delay 14
RightDown 1
Delay 53
RightClick 1
Delay 1
RightClick 1
Delay 68
MoveTo 617, 206
Delay 66
MoveTo 621, 202
Delay 58
MoveTo 624, 199
Delay 40
MoveTo 625, 197
Delay 10
MoveTo 626, 197
Delay 77
MoveTo 627, 196
Delay 51
MoveTo 627, 195
Delay 30
MoveTo 627, 194
Delay 67
MoveTo 627, 193
Delay 1325
RightDown 1
Delay 8
RightDown 1
Delay 109
RightClick 1
Delay 1
RightClick 1
Delay 1362
MoveTo 628, 194
Delay 113
MoveTo 628, 195
Delay 42
MoveTo 628, 196
Delay 25
MoveTo 628, 198
Delay 1
KeyDown "2", 1
Delay 1
Delay 48
MoveTo 631, 206
Delay 1
MoveTo 631, 207
Delay 46
MoveTo 637, 219
Delay 37
MoveTo 637, 220
Delay 1
KeyUp "2", 1
Delay 1
MoveTo 640, 229
Delay 77
MoveTo 647, 243
Delay 46
MoveTo 648, 247
Delay 63
MoveTo 648, 249
Delay 30
MoveTo 648, 250
Delay 77
MoveTo 648, 251
Delay 134
MoveTo 650, 252
Delay 44
MoveTo 656, 256
Delay 38
MoveTo 674, 269
Delay 32
MoveTo 704, 295
Delay 27
MoveTo 745, 326
Delay 70
MoveTo 954, 476
Delay 11
MoveTo 978, 490
Delay 2
MoveTo 1000, 504
Delay 283
MoveTo 1113, 582
Delay 51
MoveTo 1099, 584
Delay 50
MoveTo 1084, 582
'==========以上是按键精灵录制的内容==========
End If
Goto XX

3. 奶妈7秒叶子
Hwnd = Plugin.Window.MousePoint()
Rem AA
Call Plugin.Bkgnd.KeyPress(Hwnd, 49)
Delay 14000
Goto AA

4. 奶妈无限群加
Hwnd = Plugin.Window.MousePoint()
Rem xx
Call Plugin.Bkgnd.KeyPress(Hwnd, 49)
Call Plugin.Bkgnd.LeftClick(Hwnd, 450-dx, 380-dy)
Delay 1000
Goto xx

5. 剑半后台挂机，自动回宗派躲验证（怪物血条得露出来才行，其他的按键是后台操作）
Hwnd = Plugin.Window.MousePoint()
Call Plugin.Window.Size(Hwnd, 800, 500)
Call Plugin.Window.Move(Hwnd, 0, 140)
Rem 重置时间
Dim t1
t1=now
Rem XX
IfColor 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)
Else
Call Plugin.Bkgnd.KeyPress(Hwnd, 68)
Call Plugin.Bkgnd.KeyPress(Hwnd, 9)
Delay 500
End If
IfColor 215,206,"1332B1",0 Then
Goto XX
Else
if 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 XX

6. 奶妈半后台打怪
Hwnd = Plugin.Window.MousePoint()
Call Plugin.Window.Size(Hwnd, 800, 500)
Call Plugin.Window.Move(Hwnd, 480, 0)
Rem 重置时间
Dim t1
t1=now
Rem XX
IfColor 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, 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, 55)
Call Plugin.Bkgnd.KeyPress(Hwnd, 53)
Else
Call Plugin.Bkgnd.KeyPress(Hwnd, 68)
Call Plugin.Bkgnd.KeyPress(Hwnd, 9)
Delay 500
End If
IfColor 695,66,"1332B1",0 Then
Goto XX
Else
if datediff("n",t1,now)>=35 then
Delay 1011
Call Plugin.Bkgnd.KeyPress(Hwnd, 48)
Delay 5011
IfColor 695,66,"1332B1",0 Then
Goto XX
Else
Delay 1000
Call Plugin.Bkgnd.KeyPress(Hwnd, 48)
Delay 80011
MoveTo 1236, 621
Delay 2011
LeftClick 1
Delay 2011
MoveTo 896, 331
Delay 2011
LeftClick 1
Delay 150051
MoveTo 876, 567
Delay 1011
LeftClick 1
Delay 70011
MoveTo 1030, 484
Delay 10011
LeftClick 1
Delay 2000
Goto 重置时间
End If
Else
End If
End If
Goto XX