DNF2020年全新脚本展示第三部分
1.2020年全新DNF脚本部分代码展示第三部分
Function 根特北门boss专杀
Call LB.KeyDown(40)
Delay 800
Call LB.KeyUp(40)
Delay 200
Call LB.KeyDown(39)
Delay 60
Call LB.KeyUp(39)
Delay 60
Call LB.KeyDown(39)
Delay 750
Call LB.KeyUp(39)
KeyPress "Y", 1
KeyPress "Y", 1
KeyPress "Y", 1
End Function
Function 根特北门图一过图
Do
Delay 500
Call LB.KeyDown(39)
Call LB.KeyDown(40)
Delay 1000
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Delay 1500
Call LB.FindPic(934,65,953,84, "Attachment:\人物图标.bmp","000000",0.85,0,intX,intY)
If intX > 0 And intY > 0 Then
Else
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Exit Do
End If
Call LB.KeyDown(37)
Delay 60
Call LB.KeyUp(37)
Delay 60
Call LB.KeyDown(37)
Delay 1000
Call LB.KeyDown(38)
Call LB.KeyUp(37)
Delay 2000
Call LB.KeyUp(38)
Call LB.KeyDown(39)
Delay 60
Call LB.KeyUp(39)
Delay 60
Call LB.KeyDown(39)
Delay 200
Call LB.KeyDown(38)
Delay 2000
Call LB.KeyUp(38)
Call LB.KeyDown(40)
Delay 300
Call LB.KeyUp(40)
Call LB.KeyDown(38)
Delay 1200
Call LB.KeyUp(38)
KeyPress "X", 1
KeyPress "X", 1
If Form1.CheckBox9.Value = 1 Then
Delay 1500
End If
Delay 500
Call LB.KeyDown(39)
Delay 300
Call LB.KeyDown(39)
Call LB.KeyDown(40)
Delay 1300
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Delay 1500
Call LB.FindPic(934,65,953,84, "Attachment:\人物图标.bmp","000000",0.85,0,intX,intY)
If intX > 0 And intY > 0 Then
Else
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Exit Do
End If
Loop
End Function
Function 根特北门图二过图
Do
Call LB.KeyDown(40)
Delay 1500
Call LB.KeyUp(40)
Delay 300
Call LB.KeyDown(39)
Delay 60
Call LB.KeyUp(39)
Delay 60
Call LB.KeyDown(39)
Delay 300
Call LB.KeyDown(38)
Delay 3000
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Delay 1500
Call LB.FindPic(950,64,971,86, "Attachment:\人物图标.bmp","000000",0.85,0,intX,intY)
If intX > 0 And intY > 0 Then
KeyPress "X", 1
If Form1.CheckBox9.Value = 1 Then
Delay 1500
End If
Else
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Exit Do
End If
Call LB.KeyDown(37)
Delay 60
Call LB.KeyUp(37)
Delay 60
Call LB.KeyDown(37)
Delay 1000
Call LB.KeyDown(38)
Call LB.KeyUp(37)
Delay 2000
Call LB.KeyUp(38)
Call LB.KeyDown(39)
Delay 60
Call LB.KeyUp(39)
Delay 60
Call LB.KeyDown(39)
Delay 300
Call LB.KeyDown(38)
Delay 1200
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Delay 1500
Call LB.FindPic(950,64,971,86, "Attachment:\人物图标.bmp","000000",0.85,0,intX,intY)
If intX > 0 And intY > 0 Then
KeyPress "X", 1
If Form1.CheckBox9.Value = 1 Then
Delay 1500
End If
Else
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Exit Do
End If
Loop
End Function
Function 根特北门图三过图
Do
Call LB.KeyDown(40)
Delay 1000
Call LB.KeyUp(40)
Delay 300
Call LB.KeyDown(37)
Delay 60
Call LB.KeyUp(37)
Delay 60
Call LB.KeyDown(37)
Delay 300
Call LB.KeyDown(39)
Delay 60
Call LB.KeyUp(39)
Delay 60
Call LB.KeyDown(39)
Delay 700
Call LB.KeyDown(38)
Delay 4000
KeyPress "X", 1
KeyPress "X", 1
If Form1.CheckBox9.Value = 1 Then
Delay 1500
End If
Delay 500
Call LB.KeyUp(38)
Call LB.KeyDown(39)
Call LB.KeyDown(40)
Delay 1000
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Delay 1500
Call LB.FindPic(970,65,989,83, "Attachment:\人物图标.bmp","000000",0.85,0,intX,intY)
If intX > 0 And intY > 0 Then
Else
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Exit Do
End If
Call LB.KeyDown(37)
Delay 60
Call LB.KeyUp(37)
Delay 60
Call LB.KeyDown(37)
Delay 1000
Call LB.KeyDown(38)
Call LB.KeyUp(37)
Delay 2000
Call LB.KeyUp(38)
Delay 1500
Call LB.FindPic(970,65,989,83, "Attachment:\人物图标.bmp","000000",0.85,0,intX,intY)
If intX > 0 And intY > 0 Then
Else
TracePrint "过图三成功"
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Exit Do
End If
Loop
End Function
Function 根特北门图四过图
Call LB.KeyDown(40)
Delay 200
Call LB.KeyUp(40)
Do
Call LB.KeyDown(39)
Delay 60
Call LB.KeyUp(39)
Delay 60
Call LB.KeyDown(39)
Delay 4000
Call LB.KeyUp(39)
Delay 300
Call LB.KeyDown(37)
Delay 60
Call LB.KeyUp(37)
Delay 60
Call LB.KeyDown(37)
Delay 100
Call LB.KeyDown(38)
Delay 1500
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
KeyPress "X", 1
If Form1.CheckBox9.Value = 1 Then
Delay 1500
End If
Delay 1500
Call LB.FindPic(986,46,1008,66, "Attachment:\人物图标.bmp","000000",0.85,0,intX,intY)
If intX > 0 And intY > 0 Then
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Exit Do
End If
Loop
End Function
Function 根特北门图五过图
Do
Call LB.KeyDown(38)
Delay 900
Call LB.KeyDown(39)
Delay 60
Call LB.KeyUp(39)
Delay 60
Call LB.KeyDown(39)
Delay 2500
Call LB.KeyUp(39)
Delay 300
KeyPress "X", 1
KeyPress "X", 1
If Form1.CheckBox9.Value = 1 Then
Delay 1500
End If
Delay 500
Call LB.KeyUp(38)
Call LB.KeyDown(39)
Call LB.KeyDown(40)
Delay 1000
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Delay 1500
Call LB.FindPic(988,47,1007,65, "Attachment:\人物图标.bmp","000000",0.85,0,intX,intY)
If intX > 0 And intY > 0 Then
Else
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Exit Do
End If
Delay 900
Call LB.KeyDown(40)
Delay 2500
Call LB.KeyUp(40)
Call LB.KeyDown(39)
Delay 60
Call LB.KeyUp(39)
Delay 60
Call LB.KeyDown(39)
Delay 2500
Call LB.KeyUp(39)
Delay 900
Call LB.KeyDown(38)
Call LB.KeyDown(37)
Delay 2800
Call LB.KeyUp(38)
Call LB.KeyUp(37)
Delay 300
Delay 60
Call LB.KeyUp(37)
Delay 60
Call LB.KeyDown(37)
Delay 2500
Call LB.KeyUp(37)
Loop
End Function
Function 根特北门图六过图
Do
Delay 500
Call LB.KeyDown(37)
Call LB.KeyDown(40)
Delay 1500
Call LB.KeyUp(37)
Call LB.KeyUp(40)
Delay 300
Call LB.KeyDown(39)
Delay 60
Call LB.KeyUp(39)
Delay 60
Call LB.KeyDown(39)
Delay 300
Call LB.KeyDown(38)
Delay 2500
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Delay 300
Call LB.KeyDown(39)
KeyPress "X", 1
KeyPress "X", 1
If Form1.CheckBox9.Value = 1 Then
Delay 1500
End If
Delay 500
Call LB.KeyDown(40)
Delay 1000
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Delay 1500
Call LB.FindPic(1006,47,1025,66, "Attachment:\人物图标.bmp","000000",0.85,0,intX,intY)
If intX > 0 And intY > 0 Then
Else
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Exit Do
End If
Call LB.KeyDown(37)
Delay 1000
Call LB.KeyUp(37)
Delay 300
Call LB.KeyDown(38)
Delay 2500
Call LB.KeyUp(38)
Delay 300
Call LB.KeyDown(39)
Delay 2500
KeyPress "X", 1
If Form1.CheckBox9.Value = 1 Then
Delay 1500
End If
Delay 300
Call LB.KeyDown(40)
Delay 1000
Call LB.KeyUp(40)
Call LB.KeyUp(39)
Loop
End Function
Function 根特北门图七过图
Do
Delay 500
Call LB.KeyDown(38)
Delay 1000
Call LB.KeyUp(38)
Delay 500
Call LB.KeyDown(39)
Delay 60
Call LB.KeyUp(39)
Delay 60
Call LB.KeyDown(39)
Delay 500
Call LB.KeyDown(40)
Delay 2500
Call LB.KeyUp(40)
Call LB.KeyUp(39)
Delay 300
Call LB.KeyDown(38)
Delay 1200
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Delay 1500
Call LB.FindPic(1024,47,1042,65, "Attachment:\人物图标.bmp","000000",0.85,0,intX,intY)
If intX > 0 And intY > 0 Then
Else
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Exit Do
End If
Call LB.KeyDown(37)
Delay 60
Call LB.KeyUp(37)
Delay 60
Call LB.KeyDown(37)
Delay 200
Call LB.KeyDown(38)
Call LB.KeyUp(37)
Delay 2000
Call LB.KeyUp(38)
Loop
End Function
Function 根特北门图八过图
Do
Delay 500
Call LB.KeyDown(39)
Delay 60
Call LB.KeyUp(39)
Delay 60
Call LB.KeyDown(39)
Delay 60
Call LB.KeyDown(40)
Delay 2000
Call LB.KeyUp(40)
Call LB.KeyUp(39)
Delay 500
Call LB.KeyDown(37)
Delay 100
Call LB.KeyUp(37)
Call LB.KeyDown(38)
Delay 1800
Call LB.KeyUp(38)
Delay 200
Call LB.KeyDown(39)
Delay 60
Call LB.KeyUp(39)
Delay 60
Call LB.KeyDown(39)
Delay 60
Call LB.KeyDown(40)
Delay 1500
KeyPress "X", 1
KeyPress "X", 1
If Form1.CheckBox9.Value = 1 Then
Delay 1500
End If
Call LB.KeyDown(37)
Delay 1200
Call LB.KeyUp(37)
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Delay 1500
Call LB.FindPic(1042,47,1061,66, "Attachment:\人物图标.bmp","000000",0.85,0,intX,intY)
If intX > 0 And intY > 0 Then
Else
是否路口 = "真"
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Exit Do
End If
Loop
End Function
Function 判断根特北门进图
次数 = 0
Do
Call LB.FindStr(851,0,1036,35, "根特北门", "ccc1a7-000000", 1.0, intX, intY)
If intX > 0 And intY > 0 Then
Call 启动同步
Call 风法BUFF
Exit Do
Else
Delay 1000
次数 = 次数 + 1
If 次数 >= 60 Then
Call 启动同步
Call LB.KeyDown(37)
Delay 600
Call LB.KeyUp(37)
Delay 300
Call LB.KeyDown(39)
Call 选择根特副本
End If
End If
Loop
End Function
Function 判断能源熔炉进图
次数 = 0
Do
Call LB.FindStr(851,0,1036,35, "能源熔炉", "ccc1a7-000000", 1.0, intX, intY)
If intX > 0 And intY > 0 Then
Call 启动同步
Call 风法BUFF
Exit Do
Else
Delay 1000
次数 = 次数 + 1
If 次数 >= 60 Then
Call 启动同步
Call LB.KeyDown(37)
Delay 600
Call LB.KeyUp(37)
Delay 300
Call LB.KeyDown(39)
Call 选择能源熔炉副本
End If
End If
Loop
End Function
Function 选择根特副本
Do
Call LB.FindStr(809,523,943,587, "返回城镇", "ddc593-000000", 1.0, intX, intY)
If intX > 0 And intY > 0 Then
Call LB.KeyUp(37)
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Exit Do
End If
Loop
Delay 1500
If Form1.CheckBox6.Value = 1 Then
副本 = "根特北门"
End If
If Form1.CheckBox1.Value = 1 Then
副本难度 = "普通级"
End If
If Form1.CheckBox2.Value = 1 Then
副本难度 = "冒险级"
End If
If Form1.CheckBox3.Value = 1 Then
副本难度 = "勇士级"
End If
If Form1.CheckBox4.Value = 1 Then
副本难度 = "王者级"
End If
If Form1.CheckBox5.Value = 1 Then
副本难度 = "噩梦级"
End If
Do
Call LB.FindStr(806,433,974,527, "根特北门", "ddc593-000000", 1.0, intX, intY)
If intX > 0 And intY > 0 Then
Select Case 副本难度
Case "普通级"
For 5
Call LB.KeyPress(37)
Delay 100
Next
Case "冒险级"
For 5
Call LB.KeyPress(37)
Delay 100
Next
For 1
Call LB.KeyPress(39)
Delay 100
Next
Case "勇士级"
For 5
Call LB.KeyPress(37)
Delay 100
Next
For 2
Call LB.KeyPress(39)
Delay 100
Next
Case "王者级"
For 5
Call LB.KeyPress(37)
Delay 100
Next
For 3
Call LB.KeyPress(39)
Delay 100
Next
Case "噩梦级"
For 5
Call LB.KeyPress(37)
Delay 100
Next
For 4
Call LB.KeyPress(39)
Delay 100
Next
End Select
KeyPress "Space", 1
KeyPress "Space", 1
Exit Do
Else
Call LB.KeyPress(38)
Delay 500
End If
Loop
End Function
Function 走到根特副本门
Call LB.KeyDown(40)
Delay 2500
Call LB.KeyUp(40)
Call LB.KeyDown(37)
Delay 1500
Call LB.KeyDown(38)
Do
Call LB.FindStr(809,523,943,587, "返回城镇", "ddc593-000000", 1.0, intX, intY)
If intX > 0 And intY > 0 Then
Call LB.KeyUp(37)
Call LB.KeyUp(38)
Exit Do
End If
Loop
End Function
Sub 检测线程()
Call 注册LB
超时 = 0
Do
If 超时 >= 300 Then
Call Plugin.Msg.Tips("超时")
Call 清理进程
游戏存在 = "假"
Delay 3000
RestartScript
Else
Delay 10000
超时 = 超时 + 10
End If
If 游戏存在 = "真" Then
Window1 = Plugin.Window.Find("地下城与勇士","地下城与勇士")
If Form1.CheckBox15.Value = 1 Then
Window1 = Plugin.Window.IsWindow(窗口1hwnd)
Window2 = Plugin.Window.IsWindow(窗口2hwnd)
If Window1 = 1 And Window2 = 1 Then
Else
Call Plugin.Msg.Tips("游戏窗口消失")
Call 清理进程
Delay 3000
RestartScript
End If
Else
If Window1 > 0 Then
Else
Call Plugin.Msg.Tips("游戏窗口消失")
Call 清理进程
Delay 3000
RestartScript
End If
End If
End If
Call LB.FindStr(1072,23,1395,122, "制裁", "ff3232-000000|ffffff-000000", 1.0, intX, intY)
If intX > 0 And intY > 0 Then
EndScript
End If
If Form1.CheckBox15.Value = 1 Then
Call LB.FindStr(1606,457,1920,553, "制裁", "ff3232-000000|ffffff-000000", 1.0, intX, intY)
If intX > 0 And intY > 0 Then
EndScript
End If
End If
Call LB.FindStr(0,0,1920,1080, "网络中断", "ffffff-000000", 1.0, intX, intY)
If intX > 0 And intY > 0 Then
Call Plugin.Msg.Tips("网络中断")
Call 清理进程
Delay 3000
RestartScript
End If
If 账号刷完 = "真" Then
Exit Do
End If
Loop
End Sub
Function 窗口1入库
超时 = 200
Call 切换到1号
Call 切换到1号
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Do
Call LB.FindStr(281, 79, 805, 524, "选择角色", "e6c89b-000000", 1.0, intX, intY)
If intX > 0 And intY > 0 Then
Call 移动单击(intX + 10, intY)
Call MoveTo(0, 0)
Delay 3000
Else
KeyPress "Esc", 1
Delay 500
End If
Call LB.FindStr(51,76,828,500,"Lv","d1b994-000000",1.0,intX,intY)
If intX > 0 And intY > 0 Then
Delay 3000
Call 窗口1进入游戏
Exit Do
End If
Loop
Call 移动单击(277, 359)
Call 移动单击(277,359)
Do
Call LB.FindStr(489,106,575,155,"格","e6c89b-000000",1.0,intX,intY)
If intX > 0 And intY > 0 Then
For 2
Call 移动单击(417,126)
Next
Call LB.FindStr(305,80,592,490,"存入","ddc593-000000",1.0,intX,intY)
If intX > 0 And intY > 0 Then
Call 移动单击(intX,intY)
Delay 300
Call 移动单击(intX,intY)
Delay 300
Call 移动单击(intX,intY)
Delay 300
End If
Call LB.FindStr(305,80,592,490,"(A)","dec694-000000",1.0,intX,intY)
If intX > 0 And intY > 0 Then
Call 移动单击(intX,intY)
Delay 300
End If
For 3
KeyPress "Enter", 1
Delay 200
Next
Delay 300
Exit Do
Else
Call 切换到1号
Call 移动单击(486,360)
Delay 1000
End If
Loop
End Function
Function 窗口2入库
If Form1.CheckBox15.Value = 1 Then
超时 = 200
Call 切换到2号
Call 切换到2号
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Do
Call LB.FindStr(819,559,1328,953, "选择角色", "e6c89b-000000", 1.0, intX, intY)
If intX > 0 And intY > 0 Then
Call 移动单击(intX + 10, intY)
Call MoveTo(0, 0)
Delay 3000
Else
KeyPress "Esc", 1
Delay 500
End If
Call LB.FindStr(577,503,1363,952,"Lv","d1b994-000000",1.0,intX,intY)
If intX > 0 And intY > 0 Then
Delay 3000
Call 窗口2进入游戏
Exit Do
End If
Loop
Call 移动单击(804,800)
Call 移动单击(804,800)
Do
Call LB.FindStr(1029,546,1103,580,"格","e6c89b-000000",1.0,intX,intY)
If intX > 0 And intY > 0 Then
For 2
Call 移动单击(952,563)
Next
Call LB.FindStr(842,514,1128,909,"存入","ddc593-000000",1.0,intX,intY)
If intX > 0 And intY > 0 Then
Call 移动单击(intX,intY)
Delay 300
Call 移动单击(intX,intY)
Delay 300
Call 移动单击(intX,intY)
Delay 300
End If
Call LB.FindStr(842,514,1128,909,"(A)","dec694-000000",1.0,intX,intY)
If intX > 0 And intY > 0 Then
Call 移动单击(intX,intY)
Delay 300
End If
For 3
KeyPress "Enter", 1
Delay 200
Next
Delay 300
Exit Do
Else
Call 切换到2号
Call 移动单击(1024,793)
Delay 1000
End If
Loop
End If
End Function
Function 窗口1切换角色
Call 关闭同步
Call 切换到1号
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
次数 = 0
Do
Call LB.FindStr(281, 79, 805, 524, "选择角色", "e6c89b-000000", 1.0, intX, intY)
If intX > 0 And intY > 0 Then
Call 移动单击(intX + 10, intY)
Call MoveTo(0, 0)
Delay 3000
Else
KeyPress "Esc", 1
Delay 500
End If
Call LB.FindStr(51,76,828,500,"Lv","d1b994-000000",1.0,intX,intY)
If intX > 0 And intY > 0 Then
Call 切换到1号
Delay 2000
Call LB.KeyPress(39)
Delay 300
Call 窗口1进入游戏
Exit Do
End If
Loop
End Function
Function 窗口2切换角色
If Form1.CheckBox15.Value = 1 Then
Call 切换到2号
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
次数 = 0
Do
Call LB.FindStr(819,559,1328,953, "选择角色", "e6c89b-000000", 1.0, intX, intY)
If intX > 0 And intY > 0 Then
Call 移动单击(intX + 10, intY)
Call MoveTo(0, 0)
Delay 3000
Else
KeyPress "Esc", 1
Delay 500
End If
Call LB.FindStr(577,503,1363,952,"Lv","d1b994-000000",1.0,intX,intY)
If intX > 0 And intY > 0 Then
Call 切换到2号
Delay 2000
Call LB.KeyPress(39)
Delay 300
Call 窗口2进入游戏
Exit Do
End If
Loop
End If
End Function
Function 黄金翻拍
Call LB.FindPic(110,259,970,560, "Attachment:\黄金.bmp","000000",0.7,0,intX,intY)
If intX > 0 And intY > 0 Then
Call 切换到1号
KeyPress "5", 1
KeyPress "5", 1
End If
End Function
Function 黄金翻拍1
Call LB.FindPic(683,764,1015,993, "Attachment:\黄金.bmp","000000",0.7,0,intX,intY)
If intX > 0 And intY > 0 Then
Call 切换到2号
KeyPress "5", 1
KeyPress "5", 1
Call 切换到1号
End If
End Function
Function BOSS物品拾取
Call 切换到1号
For 35
KeyPress "X", 1
Delay 30
Next
End Function
Function 窗口1出售物品
Call 切换到1号
Call 移动单击(195, 514)
Call 移动单击(195, 514)
Call 移动单击(632, 275)
Call 移动单击(632, 275)
Call 移动单击(833, 485 + 30)
Delay 500
For i = 0 To 7
Call MoveTo(620 + i * 30, 302)
Delay 300
Call LB.FindStr(9, 0, 1068, 600, "金币", "ffffff-000000", 1.0, intX, intY)
If intX > 0 And intY > 0 Then
Call 移动单击(620 + i * 30, 302)
Call 移动单击(620 + i * 30, 302)
Else
Exit For
End If
Next
Call 移动单击(436,387)
Call 移动单击(436,387)
KeyPress "Esc", 1
End Function
Function 窗口2出售物品
If Form1.CheckBox15.Value = 1 Then
Call 切换到2号
Call 移动单击(730, 950)
Call 移动单击(730, 950)
Call 移动单击(1164, 709)
Call 移动单击(1164, 709)
Call 移动单击(1366, 919 + 30)
Delay 500
For i = 0 To 7
Call MoveTo(1154 + i * 30,737)
Delay 300
Call LB.FindStr(530,434,1603,1035, "金币", "ffffff-000000", 1.0, intX, intY)
If intX > 0 And intY > 0 Then
Call 移动单击(1154 + i * 30,737)
Call 移动单击(1154 + i * 30,737)
Else
Exit For
End If
Next
Call 移动单击(969, 823)
Call 移动单击(969, 823)
KeyPress "Esc", 1
End If
End Function
Function 窗口1聚物
Call 切换到1号
For 4
Delay 80
KeyPress "J", 1
Delay 80
KeyPress "J", 1
Delay 80
KeyPress "Space", 1
Delay 80
KeyPress "Space", 1
Delay 80
KeyPress "Space", 1
Next
End Function
Function 窗口2聚物
If Form1.CheckBox15.Value = 1 Then
Call 切换到2号
For 4
Delay 80
KeyPress "J", 1
Delay 80
KeyPress "J", 1
Delay 80
KeyPress "Space", 1
Delay 80
KeyPress "Space", 1
Delay 80
KeyPress "Space", 1
Next
End If
End Function
Function 释放小技能
If Form1.CheckBox12.Value = 1 Then
Call LB.FindPic(753,559,786,597, "Attachment:\风法小技能5.bmp","000000",0.7,0,intX,intY)
If intX > 0 And intY > 0 Then
KeyPress "F", 1
Delay 500
Exit Function
End If
Call LB.FindPic(721,524,762,565, "Attachment:\风法小技能2.bmp","000000",0.7,0,intX,intY)
If intX > 0 And intY > 0 Then
KeyPress "E", 1
Delay 500
Exit Function
End If
Call LB.FindPic(659,527,698,565, "Attachment:\风法小技能1.bmp","000000",0.7,0,intX,intY)
If intX > 0 And intY > 0 Then
KeyPress "Q", 1
Delay 500
Exit Function
End If
Call LB.FindPic(721,555,761,597, "Attachment:\风法小技能4.bmp","000000",0.7,0,intX,intY)
If intX > 0 And intY > 0 Then
KeyPress "D", 1
Delay 500
Exit Function
End If
End If
If Form1.CheckBox7.Value = 1 Then
Call LB.FindPic(753,559,786,597, "Attachment:\风法小技能5.bmp","000000",0.7,0,intX,intY)
If intX > 0 And intY > 0 Then
KeyPress "F", 1
Delay 500
Exit Function
End If
Call LB.FindPic(658,555,698,596, "Attachment:\风法小技能3.bmp","000000",0.7,0,intX,intY)
If intX > 0 And intY > 0 Then
KeyPress "A", 1
Delay 500
Exit Function
End If
Call LB.FindPic(721,524,762,565, "Attachment:\风法小技能2.bmp","000000",0.7,0,intX,intY)
If intX > 0 And intY > 0 Then
KeyPress "E", 1
Delay 500
Exit Function
End If
Call LB.FindPic(659,527,698,565, "Attachment:\风法小技能1.bmp","000000",0.7,0,intX,intY)
If intX > 0 And intY > 0 Then
KeyPress "Q", 1
Delay 500
Exit Function
End If
Call LB.FindPic(721,555,761,597, "Attachment:\风法小技能4.bmp","000000",0.7,0,intX,intY)
If intX > 0 And intY > 0 Then
KeyPress "D", 1
Delay 500
Exit Function
End If
End If
If Form1.CheckBox9.Value = 1 Then
Call LB.FindPic(665,531,694,559, "Attachment:\召唤小技能1.bmp","000000",0.7,0,intX,intY)
If intX > 0 And intY > 0 Then
KeyPress "Q", 1
End If
Call LB.FindPic(694,529,724,562, "Attachment:\召唤小技能2.bmp","000000",0.7,0,intX,intY)
If intX > 0 And intY > 0 Then
KeyPress "W", 1
End If
Call LB.FindPic(726,531,754,561, "Attachment:\召唤小技能3.bmp","000000",0.7,0,intX,intY)
If intX > 0 And intY > 0 Then
KeyPress "E", 1
End If
Call LB.FindPic(755,530,789,561, "Attachment:\召唤小技能4.bmp","000000",0.7,0,intX,intY)
If intX > 0 And intY > 0 Then
KeyPress "R", 1
End If
Call LB.FindPic(663,558,698,594, "Attachment:\召唤小技能5.bmp","000000",0.7,0,intX,intY)
If intX > 0 And intY > 0 Then
KeyPress "A", 1
End If
Call LB.FindPic(694,562,728,590, "Attachment:\召唤小技能6.bmp","000000",0.7,0,intX,intY)
If intX > 0 And intY > 0 Then
KeyPress "S", 1
End If
Call LB.FindPic(723,561,758,593, "Attachment:\召唤小技能7.bmp","000000",0.7,0,intX,intY)
If intX > 0 And intY > 0 Then
KeyPress "D", 1
End If
Call LB.FindPic(756,559,786,592, "Attachment:\召唤小技能8.bmp","000000",0.7,0,intX,intY)
If intX > 0 And intY > 0 Then
KeyPress "F", 1
End If
Call LB.FindPic(786,563,816,592, "Attachment:\召唤小技能9.bmp","000000",0.7,0,intX,intY)
If intX > 0 And intY > 0 Then
KeyPress "G", 1
End If
Call LB.FindPic(814,562,847,593, "Attachment:\召唤小技能10.bmp","000000",0.7,0,intX,intY)
If intX > 0 And intY > 0 Then
KeyPress "H", 1
End If
End If
If Form1.CheckBox11.Value = 1 Then
Call LB.FindPic(665,531,694,559, "Attachment:\修罗小技能1.bmp","000000",0.7,0,intX,intY)
If intX > 0 And intY > 0 Then
KeyPress "Q", 1
Delay 500
Exit Function
End If
Call LB.FindPic(726,531,754,561, "Attachment:\修罗小技能2.bmp","000000",0.7,0,intX,intY)
If intX > 0 And intY > 0 Then
KeyPress "E", 1
Delay 500
Exit Function
End If
Call LB.FindPic(663,558,698,594, "Attachment:\修罗小技能3.bmp","000000",0.7,0,intX,intY)
If intX > 0 And intY > 0 Then
KeyPress "A", 1
Delay 500
Exit Function
End If
Call LB.FindPic(723,561,758,593, "Attachment:\修罗小技能4.bmp","000000",0.7,0,intX,intY)
If intX > 0 And intY > 0 Then
KeyPress "D", 1
Delay 500
Exit Function
End If
Call LB.FindPic(756,559,786,592, "Attachment:\修罗小技能5.bmp","000000",0.7,0,intX,intY)
If intX > 0 And intY > 0 Then
KeyPress "F", 1
Delay 500
Exit Function
End If
End If
End Function
Function 特伦斯图八定点技能
KeyPress "H", 1
KeyPress "H", 1
End Function
Function 特伦斯图七定点技能
Call LB.KeyDown(37)
Delay 500
Call LB.KeyUp(37)
KeyPress "S", 1
KeyPress "S", 1
End Function
Function 特伦斯boss专杀
If Form1.CheckBox9.Value = 1 Then
If 向下 = "真" Then
Call LB.KeyDown(39)
Delay 1200
Call LB.KeyUp(39)
Else
Call LB.KeyDown(40)
Call LB.KeyDown(37)
Delay 1000
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Call LB.KeyPress(39)
Delay 100
End If
KeyPress "Y", 1
KeyPress "Y", 1
KeyPress "Y", 1
KeyPress "Y", 1
ElseIf Form1.CheckBox7.Value = 1 Then
If Form1.CheckBox16.Value = 1 Then
If 向下 = "真" Then
Call LB.KeyDown(39)
Delay 600
Call LB.KeyUp(39)
Else
Call LB.KeyDown(40)
Delay 800
Call LB.KeyUp(40)
Call LB.KeyPress(39)
End If
KeyPress "W", 1
KeyPress "W", 1
KeyPress "W", 1
KeyPress "W", 1
Else
If 向下 = "真" Then
Call LB.KeyDown(39)
Delay 1200
Call LB.KeyUp(39)
Else
Call LB.KeyDown(40)
Delay 800
Call LB.KeyUp(40)
Call LB.KeyPress(39)
End If
KeyPress "Y", 1
KeyPress "Y", 1
KeyPress "Y", 1
KeyPress "Y", 1
End If
ElseIf Form1.CheckBox11.Value = 1 Then
If 向下 = "真" Then
Call LB.KeyDown(39)
Delay 1200
Call LB.KeyUp(39)
Else
Call LB.KeyDown(40)
Call LB.KeyDown(37)
Delay 1000
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Call LB.KeyPress(39)
Delay 100
End If
KeyPress "Y", 1
KeyPress "Y", 1
KeyPress "Y", 1
KeyPress "Y", 1
End If
End Function
Function 特伦斯图六定点技能
Call LB.KeyDown(37)
Delay 60
Call LB.KeyUp(37)
Delay 60
Call LB.KeyDown(37)
Delay 100
Call LB.KeyDown(40)
Delay 100
Call LB.KeyUp(40)
Delay 600
Call LB.KeyUp(37)
Delay 100
If Form1.CheckBox15.Value = 1 Then
KeyPress "R", 1
KeyPress "R", 1
Delay 3000
End If
End Function
Function 特伦斯图六定点技能1
Call LB.KeyDown(37)
Delay 60
Call LB.KeyUp(37)
Delay 60
Call LB.KeyDown(37)
Delay 100
Call LB.KeyDown(40)
Delay 50
Call LB.KeyUp(40)
Delay 600
Call LB.KeyUp(37)
Delay 100
If Form1.CheckBox16.Value = 1 Then
KeyPress "Y", 1
KeyPress "Y", 1
End If
End Function
Function 特伦斯图五定点技能1
Delay 100
If Form1.CheckBox15.Value = 1 Then
KeyPress "R", 1
KeyPress "R", 1
Delay 2000
Else
KeyPress "R", 1
KeyPress "R", 1
End If
End Function
Function 特伦斯图五定点技能
Delay 100
If Form1.CheckBox15.Value = 1 Then
Call 关闭同步
KeyPress "R", 1
KeyPress "R", 1
Delay 2000
Call 启动同步
Else
KeyPress "R", 1
KeyPress "R", 1
End If
KeyPress "S", 1
KeyPress "S", 1
End Function
Function 特伦斯图四定点技能
Call LB.KeyDown(40)
Delay 700
Delay 100
Call LB.KeyDown(37)
Delay 60
Call LB.KeyUp(37)
Delay 60
Call LB.KeyDown(37)
Delay 300
Call LB.KeyUp(37)
Call LB.KeyUp(40)
Delay 200
Call LB.KeyDown(39)
Delay 60
Call LB.KeyUp(39)
Call LB.KeyPress(39)
Delay 100
KeyPress "Q", 1
Delay 200
Call LB.KeyDown(39)
Delay 60
Call LB.KeyUp(39)
Delay 60
Call LB.KeyDown(39)
Delay 300
Call LB.KeyDown(38)
Delay 800
Call LB.KeyUp(38)
Delay 100
Call LB.KeyUp(39)
End Function
Function 特伦斯图三定点技能
Delay 100
Call LB.KeyDown(39)
Delay 60
Call LB.KeyUp(39)
Delay 60
Call LB.KeyDown(39)
Delay 650
Call LB.KeyUp(39)
KeyPress "S", 1
Delay 1000
KeyPress "H", 1
End Function
Function 特伦斯图二定点技能
Call LB.KeyDown(40)
Delay 600
Call LB.KeyUp(40)
Delay 100
Call LB.KeyDown(37)
Delay 60
Call LB.KeyUp(37)
Delay 60
Call LB.KeyDown(37)
Delay 600
Call LB.KeyUp(37)
Delay 100
Call LB.KeyDown(39)
Delay 60
Call LB.KeyUp(39)
Delay 60
Call LB.KeyDown(39)
Delay 300
Call LB.KeyDown(38)
Delay 600
Call LB.KeyUp(39)
Call LB.KeyUp(38)
KeyPress "W", 1
KeyPress "W", 1
End Function
Function 确定特伦斯人物图内位置
Do
Call LB.FindPic(988,49,1009,66, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)
If intX > 0 And intY > 0 Then
图内角色位置 = 1
Call 启动同步
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Exit Do
Else
Call LB.FindPic(988,49,1009,66, "Attachment:\雪人头.bmp","000000",0.83,0,intX,intY)
If intX > 0 And intY > 0 Then
Call LB.FindPic(985,48,1063,104, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)
If intX > 0 And intY > 0 Then
Else
图内角色位置 = 1
Call 启动同步
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Exit Do
End If
End If
End If
Call LB.FindPic(1007,48,1024,64, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)
If intX > 0 And intY > 0 Then
图内角色位置 = 2
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Exit Do
Else
Call LB.FindPic(1007,48,1024,64, "Attachment:\雪人头.bmp","000000",0.83,0,intX,intY)
If intX > 0 And intY > 0 Then
Call LB.FindPic(985,48,1063,104, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)
If intX > 0 And intY > 0 Then
Else
图内角色位置 = 2
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Exit Do
End If
End If
End If
Call LB.FindPic(1024,47,1043,65, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)
If intX > 0 And intY > 0 Then
图内角色位置 = 3
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Exit Do
Else
Call LB.FindPic(1024,47,1043,65, "Attachment:\雪人头.bmp","000000",0.83,0,intX,intY)
If intX > 0 And intY > 0 Then
Call LB.FindPic(985,48,1063,104, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)
If intX > 0 And intY > 0 Then
Else
图内角色位置 = 3
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Exit Do
End If
End If
End If
Call LB.FindPic(1044,48,1061,67, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)
If intX > 0 And intY > 0 Then
图内角色位置 = 4
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Exit Do
Else
Call LB.FindPic(1044,48,1061,67, "Attachment:\雪人头.bmp","000000",0.83,0,intX,intY)
If intX > 0 And intY > 0 Then
Call LB.FindPic(985,48,1063,104, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)
If intX > 0 And intY > 0 Then
Else
图内角色位置 = 4
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Exit Do
End If
End If
End If
Call LB.FindPic(1043,67,1061,84, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)
If intX > 0 And intY > 0 Then
图内角色位置 = 5
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Exit Do
Else
Call LB.FindPic(1043,67,1061,84, "Attachment:\雪人头.bmp","000000",0.83,0,intX,intY)
If intX > 0 And intY > 0 Then
Call LB.FindPic(985,48,1063,104, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)
If intX > 0 And intY > 0 Then
Else
图内角色位置 = 5
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Exit Do
End If
End If
End If
Call LB.FindPic(1024,65,1043,83, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)
If intX > 0 And intY > 0 Then
是否路口 = "真"
图内角色位置 = 6
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Exit Do
Else
Call LB.FindPic(1024,65,1043,83, "Attachment:\雪人头.bmp","000000",0.83,0,intX,intY)
If intX > 0 And intY > 0 Then
Call LB.FindPic(985,48,1063,104, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)
If intX > 0 And intY > 0 Then
是否路口 = "假"
Else
是否路口 = "真"
图内角色位置 = 6
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Exit Do
End If
End If
End If
Call LB.FindPic(1007,66,1024,86, "Attachment:\人物图标.bmp","000000",0.8,0,intX,intY)
If intX > 0 And intY > 0 Then
是否路口 = "假"
图内角色位置 = 7
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Exit Do
Else
Call LB.FindPic(1007,66,1024,86, "Attachment:\雪人头.bmp","000000",0.83,0,intX,intY)
If intX > 0 And intY > 0 Then
Call LB.FindPic(985,48,1063,104, "Attachment:\人物图标.bmp","000000",0.8,0,intX,intY)
If intX > 0 And intY > 0 Then
Else
是否路口 = "假"
图内角色位置 = 7
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Exit Do
End If
End If
End If
Call LB.FindPic(1007,82,1025,101, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)
If intX > 0 And intY > 0 Then
是否路口 = "真"
图内角色位置 = 8
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Exit Do
Else
Call LB.FindPic(1007,82,1025,101, "Attachment:\雪人头.bmp","000000",0.83,0,intX,intY)
If intX > 0 And intY > 0 Then
Call LB.FindPic(985,48,1063,104, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)
If intX > 0 And intY > 0 Then
Else
是否路口 = "真"
图内角色位置 = 8
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Exit Do
End If
End If
End If
If 是否路口 = "真" Then
Call LB.FindPic(985,48,1063,104, "Attachment:\牛头1.bmp","000000",0.9,0,intX,intY)
If intX > 0 And intY > 0 Then
Call LB.FindPic(985,48,1063,104, "Attachment:\人物图标.bmp","000000",0.8,0,intX,intY)
If intX > 0 And intY > 0 Then
Else
是否路口 = "假"
图内角色位置 = "真"
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Exit Do
End If
End If
End If
Loop
End Function
Function 确定特伦斯人物图内位置1
Do
Call LB.FindPic(988,49,1009,66, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)
If intX > 0 And intY > 0 Then
图内角色位置 = 1
Call 启动同步
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Exit Do
Else
Call LB.FindPic(988,49,1009,66, "Attachment:\雪人头.bmp","000000",0.83,0,intX,intY)
If intX > 0 And intY > 0 Then
Call LB.FindPic(985,48,1063,104, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)
If intX > 0 And intY > 0 Then
Else
图内角色位置 = 1
Call 启动同步
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Exit Do
End If
End If
End If
Call LB.FindPic(1007,48,1024,64, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)
If intX > 0 And intY > 0 Then
图内角色位置 = 2
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Exit Do
Else
Call LB.FindPic(1007,48,1024,64, "Attachment:\雪人头.bmp","000000",0.83,0,intX,intY)
If intX > 0 And intY > 0 Then
Call LB.FindPic(985,48,1063,104, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)
If intX > 0 And intY > 0 Then
Else
图内角色位置 = 2
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Exit Do
End If
End If
End If
Call LB.FindPic(1024,47,1043,65, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)
If intX > 0 And intY > 0 Then
图内角色位置 = 3
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Exit Do
Else
Call LB.FindPic(1024,47,1043,65, "Attachment:\雪人头.bmp","000000",0.83,0,intX,intY)
If intX > 0 And intY > 0 Then
Call LB.FindPic(985,48,1063,104, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)
If intX > 0 And intY > 0 Then
Else
图内角色位置 = 3
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Exit Do
End If
End If
End If
Call LB.FindPic(1044,48,1061,67, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)
If intX > 0 And intY > 0 Then
图内角色位置 = 4
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Exit Do
Else
Call LB.FindPic(1044,48,1061,67, "Attachment:\雪人头.bmp","000000",0.83,0,intX,intY)
If intX > 0 And intY > 0 Then
Call LB.FindPic(985,48,1063,104, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)
If intX > 0 And intY > 0 Then
Else
图内角色位置 = 4
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Exit Do
End If
End If
End If
Call LB.FindPic(1043,67,1061,84, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)
If intX > 0 And intY > 0 Then
图内角色位置 = 5
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Exit Do
Else
Call LB.FindPic(1043,67,1061,84, "Attachment:\雪人头.bmp","000000",0.83,0,intX,intY)
If intX > 0 And intY > 0 Then
Call LB.FindPic(985,48,1063,104, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)
If intX > 0 And intY > 0 Then
Else
图内角色位置 = 5
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Exit Do
End If
End If
End If
Call LB.FindPic(1024,65,1043,83, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)
If intX > 0 And intY > 0 Then
图内角色位置 = 6
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
是否路口 = "真"
Exit Do
Else
Call LB.FindPic(1024,65,1043,83, "Attachment:\雪人头.bmp","000000",0.83,0,intX,intY)
If intX > 0 And intY > 0 Then
Call LB.FindPic(985,48,1063,104, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)
If intX > 0 And intY > 0 Then
Else
图内角色位置 = 6
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
是否路口 = "真"
Exit Do
End If
End If
End If
Call LB.FindPic(1007,66,1024,86, "Attachment:\人物图标.bmp","000000",0.8,0,intX,intY)
If intX > 0 And intY > 0 Then
图内角色位置 = 7
是否路口 = "假"
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Exit Do
Else
Call LB.FindPic(1007,66,1024,86, "Attachment:\雪人头.bmp","000000",0.83,0,intX,intY)
If intX > 0 And intY > 0 Then
Call LB.FindPic(985,48,1063,104, "Attachment:\人物图标.bmp","000000",0.8,0,intX,intY)
If intX > 0 And intY > 0 Then
Else
图内角色位置 = 7
是否路口 = "假"
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Exit Do
End If
End If
End If
Call LB.FindPic(1007,82,1025,101, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)
If intX > 0 And intY > 0 Then
图内角色位置 = 8
是否路口 = "真"
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Exit Do
Else
Call LB.FindPic(1007,82,1025,101, "Attachment:\雪人头.bmp","000000",0.83,0,intX,intY)
If intX > 0 And intY > 0 Then
Call LB.FindPic(985,48,1063,104, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)
If intX > 0 And intY > 0 Then
Else
图内角色位置 = 8
是否路口 = "真"
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Exit Do
End If
End If
End If
If 是否路口 = "真" Then
Call LB.FindPic(985,48,1063,104, "Attachment:\牛头1.bmp","000000",0.9,0,intX,intY)
If intX > 0 And intY > 0 Then
Call LB.FindPic(985,48,1063,104, "Attachment:\人物图标.bmp","000000",0.9,0,intX,intY)
If intX > 0 And intY > 0 Then
Else
TracePrint "boss"
图内角色位置 = "真"
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Exit Do
End If
End If
End If
Loop
End Function
Function 确定特伦斯人物图内位置2
Do
Call LB.FindPic(1524,484,1538,499, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)
If intX > 0 And intY > 0 Then
图内角色位置 = 1
Call 启动同步
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Exit Do
Else
Call LB.FindPic(1524,484,1538,499, "Attachment:\雪人头.bmp","000000",0.83,0,intX,intY)
If intX > 0 And intY > 0 Then
Call LB.FindPic(1521,484,1594,539, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)
If intX > 0 And intY > 0 Then
Else
图内角色位置 = 1
Call 启动同步
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Exit Do
End If
End If
End If
Call LB.FindPic(1541,484,1556,499, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)
If intX > 0 And intY > 0 Then
图内角色位置 = 2
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Exit Do
Else
Call LB.FindPic(1541,484,1556,499, "Attachment:\雪人头.bmp","000000",0.83,0,intX,intY)
If intX > 0 And intY > 0 Then
Call LB.FindPic(1521,484,1594,539, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)
If intX > 0 And intY > 0 Then
Else
图内角色位置 = 2
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Exit Do
End If
End If
End If
Call LB.FindPic(1558,483,1576,500, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)
If intX > 0 And intY > 0 Then
图内角色位置 = 3
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Exit Do
Else
Call LB.FindPic(1558,483,1576,500, "Attachment:\雪人头.bmp","000000",0.83,0,intX,intY)
If intX > 0 And intY > 0 Then
Call LB.FindPic(1521,484,1594,539, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)
If intX > 0 And intY > 0 Then
Else
图内角色位置 = 3
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Exit Do
End If
End If
End If
Call LB.FindPic(1575,483,1593,499, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)
If intX > 0 And intY > 0 Then
图内角色位置 = 4
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Exit Do
Else
Call LB.FindPic(1575,483,1593,499, "Attachment:\雪人头.bmp","000000",0.83,0,intX,intY)
If intX > 0 And intY > 0 Then
Call LB.FindPic(1521,484,1594,539, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)
If intX > 0 And intY > 0 Then
Else
图内角色位置 = 4
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Exit Do
End If
End If
End If
Call LB.FindPic(1576,502,1594,518, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)
If intX > 0 And intY > 0 Then
图内角色位置 = 5
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Exit Do
Else
Call LB.FindPic(1576,502,1594,518, "Attachment:\雪人头.bmp","000000",0.83,0,intX,intY)
If intX > 0 And intY > 0 Then
Call LB.FindPic(1521,484,1594,539, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)
If intX > 0 And intY > 0 Then
Else
图内角色位置 = 5
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Exit Do
End If
End If
End If
Call LB.FindPic(1557,500,1576,520, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)
If intX > 0 And intY > 0 Then
是否路口 = "真"
图内角色位置 = 6
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Exit Do
Else
Call LB.FindPic(1557,500,1576,520, "Attachment:\雪人头.bmp","000000",0.83,0,intX,intY)
If intX > 0 And intY > 0 Then
Call LB.FindPic(1521,484,1594,539, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)
If intX > 0 And intY > 0 Then
Else
是否路口 = "真"
图内角色位置 = 6
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Exit Do
End If
End If
End If
Call LB.FindPic(1540,502,1557,519, "Attachment:\人物图标.bmp","000000",0.8,0,intX,intY)
If intX > 0 And intY > 0 Then
是否路口 = "假"
图内角色位置 = 7
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Exit Do
Else
Call LB.FindPic(1540,502,1557,519, "Attachment:\雪人头.bmp","000000",0.83,0,intX,intY)
If intX > 0 And intY > 0 Then
Call LB.FindPic(1521,484,1594,539, "Attachment:\人物图标.bmp","000000",0.8,0,intX,intY)
If intX > 0 And intY > 0 Then
Else
是否路口 = "假"
图内角色位置 = 7
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Exit Do
End If
End If
End If
Call LB.FindPic(1541,519,1557,535, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)
If intX > 0 And intY > 0 Then
是否路口 = "真"
图内角色位置 = 8
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Exit Do
Else
Call LB.FindPic(1541,519,1557,535, "Attachment:\雪人头.bmp","000000",0.83,0,intX,intY)
If intX > 0 And intY > 0 Then
Call LB.FindPic(1541,519,1557,535, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)
If intX > 0 And intY > 0 Then
Else
是否路口 = "真"
图内角色位置 = 8
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Exit Do
End If
End If
End If
If 是否路口 = "真" Then
Call LB.FindPic(1557,519,1575,536, "Attachment:\牛头1.bmp","000000",0.9,0,intX,intY)
If intX > 0 And intY > 0 Then
Call LB.FindPic(1541,519,1557,535, "Attachment:\人物图标.bmp","000000",0.8,0,intX,intY)
If intX > 0 And intY > 0 Then
Else
是否路口 = "假"
TracePrint "boss"
图内角色位置 = "真"
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Exit Do
End If
End If
End If
Loop
End Function
Function 确定特伦斯当前房间是否开门
Select Case 图内角色位置
Case 1
超时 = 200
Delay 500
KeyPress "E", 1
Delay 500
KeyPress "Q", 1
Delay 500
KeyPress "F", 1
Delay 500
KeyPress "D", 1
Delay 500
Call LB.KeyDown(40)
Delay 300
Call LB.KeyDown(40)
Delay 200
Call LB.KeyDown(39)
Delay 80
Call LB.KeyUp(39)
Delay 80
Call LB.KeyDown(39)
Delay 1600
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyDown(37)
Delay 100
Call LB.KeyUp(37)
Do
Call LB.FindPic(879,179,1067,467, "Attachment:\图一门提示.bmp|Attachment:\图一门提示0.bmp|Attachment:\图一门提示1.bmp|Attachment:\图一门提示2.bmp|Attachment:\特伦斯图一开门.bmp","000000",0.85,0,intX,intY)
If intX > 0 And intY > 0 Then
Call 特伦斯图一过图
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Exit Do
Else
Call 释放小技能
End If
Loop
Case 2
超时 = 200
Call 特伦斯图二定点技能
Do
Call LB.FindPic(1024,47,1042,65, "Attachment:\特伦斯开门提示0.bmp|Attachment:\特伦斯开门提示1.bmp","000000",0.85,0,intX,intY)
If intX > 0 And intY > 0 Then
Call 特伦斯图二过图
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Exit Do
Else
Call 释放小技能
End If
Call LB.FindPic(989,49,1005,63, "Attachment:\特伦斯开门提示001.bmp","000000",0.85,0,intX,intY)
If intX > 0 And intY > 0 Then
Call 特伦斯图二过图
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Exit Do
Else
Call 释放小技能
End If
Loop
Case 3
超时 = 200
Call 特伦斯图三定点技能
Do
Call LB.FindPic(1042,47,1061,65, "Attachment:\特伦斯开门提示0.bmp|Attachment:\特伦斯开门提示1.bmp","000000",0.85,0,intX,intY)
If intX > 0 And intY > 0 Then
Call 特伦斯图三过图
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Exit Do
Else
Call 释放小技能
End If
Call LB.FindPic(1008,49,1024,63, "Attachment:\特伦斯开门提示2.bmp","000000",0.85,0,intX,intY)
If intX > 0 And intY > 0 Then
Call 特伦斯图三过图
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Exit Do
Else
Call 释放小技能
End If
Loop
Case 4
超时 = 200
Call 特伦斯图四定点技能
Do
Call LB.FindPic(1043,66,1060,82, "Attachment:\特伦斯开门提示0.bmp|Attachment:\特伦斯开门提示1.bmp","000000",0.85,0,intX,intY)
If intX > 0 And intY > 0 Then
Call 特伦斯图四过图
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Exit Do
Else
If Form1.CheckBox9.Value = 1 Then
ElseIf Form1.CheckBox7.Value = 1 Then
Call 释放小技能
ElseIf Form1.CheckBox11.Value = 1 Then
Call 释放小技能
End If
End If
Call LB.FindPic(1025,46,1043,63, "Attachment:\特伦斯开门提示2.bmp","000000",0.85,0,intX,intY)
If intX > 0 And intY > 0 Then
Call 特伦斯图四过图
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Exit Do
Else
If Form1.CheckBox9.Value = 1 Then
ElseIf Form1.CheckBox7.Value = 1 Then
Call 释放小技能
ElseIf Form1.CheckBox11.Value = 1 Then
Call 释放小技能
End If
End If
Loop
Case 5
超时 = 200
Call LB.KeyDown(40)
Delay 800
Call LB.KeyUp(40)
Call 特伦斯图五定点技能
Do
Call LB.FindPic(1042,49,1059,67, "Attachment:\特伦斯开门提示002.bmp","000000",0.85,0,intX,intY)
If intX > 0 And intY > 0 Then
Call 特伦斯图五过图
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Exit Do
Else
If Form1.CheckBox9.Value = 1 Then
ElseIf Form1.CheckBox7.Value = 1 Then
Call 释放小技能
ElseIf Form1.CheckBox11.Value = 1 Then
Call 释放小技能
End If
End If
Call LB.FindPic(1025,65,1041,83, "Attachment:\特伦斯开门提示0.bmp|Attachment:\特伦斯开门提示1.bmp","000000",0.85,0,intX,intY)
If intX > 0 And intY > 0 Then
Call 特伦斯图五过图
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Exit Do
Else
If Form1.CheckBox9.Value = 1 Then
ElseIf Form1.CheckBox7.Value = 1 Then
Call 释放小技能
ElseIf Form1.CheckBox11.Value = 1 Then
Call 释放小技能
End If
End If
Loop
Case 6
超时 = 200
If Form1.CheckBox9.Value = 1 Then
KeyPress "Y", 1
Delay 2000
End If
Call 特伦斯图六定点技能
Do
Call LB.FindPic(1040,60,1060,90, "Attachment:\特伦斯开门提示003.bmp","000000",0.8,0,intX,intY)
If intX > 0 And intY > 0 Then
If Form1.CheckBox18.Value = 1 Then
Delay 3000
End If
Call 特伦斯图六过图
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
向下 = "假"
Exit Do
Else
If Form1.CheckBox9.Value = 1 Then
ElseIf Form1.CheckBox7.Value = 1 Then
KeyPress "W", 1
Call 释放小技能
ElseIf Form1.CheckBox11.Value = 1 Then
KeyPress "W", 1
Call 释放小技能
End If
End If
Call LB.FindPic(1006,65,1025,83, "Attachment:\特伦斯开门提示0.bmp|Attachment:\特伦斯开门提示1.bmp","000000",0.8,0,intX,intY)
If intX > 0 And intY > 0 Then
If Form1.CheckBox18.Value = 1 Then
Delay 3000
End If
Call 特伦斯图六过图
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
向下 = "假"
Exit Do
Else
If Form1.CheckBox9.Value = 1 Then
ElseIf Form1.CheckBox7.Value = 1 Then
KeyPress "W", 1
Call 释放小技能
ElseIf Form1.CheckBox11.Value = 1 Then
KeyPress "W", 1
Call 释放小技能
End If
End If
Loop
Case "真"
超时 = 200
If Form1.CheckBox18.Value = 1 Then
Else
Call 特伦斯boss专杀
End If
Do
If Form1.CheckBox18.Value = 1 Then
Call LB.FindPic(428,0,667,170, "Attachment:\奖励.bmp", "000000", 0.9, 0, intX, intY)
If intX > 0 And intY > 0 Then
超时 = 200
Delay 1000
Call 窗口1聚物
Call 黄金翻拍
Call 切换到1号
Call BOSS物品拾取
Delay 5000
Exit Do
End If
Else
Call LB.FindPic(428,0,667,170, "Attachment:\奖励.bmp", "000000", 0.9, 0, intX, intY)
If intX > 0 And intY > 0 Then
超时 = 200
Delay 1500
Call 黄金翻拍
Call 窗口1聚物
If Form1.CheckBox14.Value = 1 Then
Else
Call 窗口2聚物
End If
Call 切换到1号
Call BOSS物品拾取
End If
Call LB.FindStr(891,8,1044,166, "F10", "e6c89b-000000", 1.0, intX, intY)
If intX > 0 And intY > 0 Then
BOSS = "真"
切换下个角色 = 0
退出副本 = ""
Exit Do
Else
KeyPress "W", 1
KeyPress "G", 1
KeyPress "H", 1
Call 释放小技能
End If
Call LB.FindStr(891,8,1044,166, "F10", "808080-000000", 1.0, intX, intY)
If intX > 0 And intY > 0 Then
Plugin.Msg.Tips "刷图完毕"
BOSS = "真"
切换下个角色 = 1
退出副本 = "真"
Exit Do
End If
End If
Loop
刷图次数 = 刷图次数 + 1
通关次数 = 通关次数 + 1
Delay 1000
KeyPress "I", 1
Delay 300
KeyPress "I", 1
Delay 300
KeyPress "I", 1
Delay 300
If Form1.CheckBox14.Value = 1 Then
Else
Call 关闭同步
End If
Delay 500
Call 窗口1出售物品
If Form1.CheckBox14.Value = 1 Then
Else
Call 窗口2出售物品
End If
Call 切换到1号
Plugin.Msg.Tips "通关次数" & 通关次数
超时 = 200
If Form1.CheckBox14.Value = 1 Then
If 退出副本 = "真" Then
Delay 1000
Call 移动单击(932, 146)
Call 移动单击(932, 146)
Call 移动单击(932,146)
切换下个角色 = 1
Else
退出副本 = ""
Delay 1000
Call 移动单击(934, 83)
Call 移动单击(934, 83)
Call 移动单击(934, 83)
End If
Else
If 退出副本 = "真" Then
Delay 1000
Call 移动单击(932, 146)
Call 移动单击(932, 146)
Call 移动单击(932,146)
切换下个角色 = 1
Else
退出副本 = ""
If 刷图次数 >= 7 Then
Call 移动单击(932, 146)
Call 移动单击(932, 146)
Call 移动单击(932, 146)
Delay 6000
Plugin.Msg.Tips "刷图次数" & 刷图次数
Plugin.Msg.Tips "执行躲避深渊"
Call 切换到1号赛利亚
Call 切换到2号赛利亚
Else
Delay 1000
Call 移动单击(934, 83)
Call 移动单击(934, 83)
Call 移动单击(934, 83)
End If
End If
End If
Case 7
超时 = 200
Call 特伦斯图七定点技能
Do
Call LB.FindPic(1022,65,1043,84, "Attachment:\特伦斯开门提示004.bmp","000000",0.83,0,intX,intY)
If intX > 0 And intY > 0 Then
Call 特伦斯图七过图
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
向下 = "真"
Exit Do
Else
Call 释放小技能
End If
Call LB.FindPic(1006,82,1024,101, "Attachment:\特伦斯开门提示0.bmp|Attachment:\特伦斯开门提示1.bmp","000000",0.83,0,intX,intY)
If intX > 0 And intY > 0 Then
Call 特伦斯图七过图
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
向下 = "真"
Exit Do
Else
Call 释放小技能
End If
Loop
Case 8
超时 = 200
Call 特伦斯图八定点技能
Do
color1 = LB.GetColor(1015,72)
Delay 30
color2 = LB.GetColor(1015,72)
If color1 <> "000000" And color2 <> "000000" Then
If color1 <> color2 Then
Delay 500
Call 特伦斯图八过图
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
向下 = "真"
Exit Do
Else
Call 释放小技能
End If
End If
Loop
End Select
End Function
Function 确定特伦斯当前房间是否开门1
Select Case 图内角色位置
Case 1
超时 = 200
Delay 500
KeyPress "E", 1
Delay 500
KeyPress "Q", 1
Delay 500
KeyPress "F", 1
Delay 500
KeyPress "D", 1
Delay 500
Call LB.KeyDown(40)
Delay 300
Call LB.KeyDown(40)
Delay 200
Call LB.KeyDown(39)
Delay 80
Call LB.KeyUp(39)
Delay 80
Call LB.KeyDown(39)
Delay 1600
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyDown(37)
Delay 100
Call LB.KeyUp(37)
Do
Call LB.FindPic(879,179,1067,467, "Attachment:\图一门提示.bmp|Attachment:\图一门提示0.bmp|Attachment:\图一门提示1.bmp|Attachment:\图一门提示2.bmp|Attachment:\特伦斯图一开门.bmp","000000",0.85,0,intX,intY)
If intX > 0 And intY > 0 Then
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Exit Do
Else
Call 释放小技能
End If
Loop
Case 2
超时 = 200
Call 特伦斯图二定点技能
Do
Call LB.FindPic(1024,47,1042,65, "Attachment:\特伦斯开门提示0.bmp|Attachment:\特伦斯开门提示1.bmp","000000",0.85,0,intX,intY)
If intX > 0 And intY > 0 Then
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Exit Do
Else
Call 释放小技能
End If
Call LB.FindPic(989,49,1005,63, "Attachment:\特伦斯开门提示001.bmp","000000",0.85,0,intX,intY)
If intX > 0 And intY > 0 Then
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Exit Do
Else
Call 释放小技能
End If
Loop
Case 3
超时 = 200
Call 特伦斯图三定点技能
Do
Call LB.FindPic(1042,47,1061,65, "Attachment:\特伦斯开门提示0.bmp|Attachment:\特伦斯开门提示1.bmp","000000",0.85,0,intX,intY)
If intX > 0 And intY > 0 Then
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Exit Do
Else
Call 释放小技能
End If
Call LB.FindPic(1008,49,1024,63, "Attachment:\特伦斯开门提示2.bmp","000000",0.85,0,intX,intY)
If intX > 0 And intY > 0 Then
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Exit Do
Else
Call 释放小技能
End If
Loop
Case 4
超时 = 200
Call 特伦斯图四定点技能
次数 = 0
Do
Call LB.FindPic(1043,66,1060,82, "Attachment:\特伦斯开门提示0.bmp|Attachment:\特伦斯开门提示1.bmp","000000",0.85,0,intX,intY)
If intX > 0 And intY > 0 Then
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Exit Do
Else
If Form1.CheckBox9.Value = 1 Then
ElseIf Form1.CheckBox7.Value = 1 Then
Call 释放小技能
次数 = 次数 + 1
ElseIf Form1.CheckBox11.Value = 1 Then
Call 释放小技能
次数 = 次数 + 1
End If
End If
Call LB.FindPic(1025,46,1043,63, "Attachment:\特伦斯开门提示2.bmp","000000",0.85,0,intX,intY)
If intX > 0 And intY > 0 Then
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Exit Do
Else
If Form1.CheckBox9.Value = 1 Then
ElseIf Form1.CheckBox7.Value = 1 Then
Call 释放小技能
次数 = 次数 + 1
ElseIf Form1.CheckBox11.Value = 1 Then
Call 释放小技能
次数 = 次数 + 1
End If
End If
If 次数 > 1000 Then
Call LB.KeyDown(39)
Delay 60
Call LB.KeyUp(39)
次数 =0
End If
Loop
Case 5
超时 = 200
Call LB.KeyDown(40)
Delay 800
Call LB.KeyUp(40)
Call 特伦斯图五定点技能1
Do
Call LB.FindPic(1042,49,1059,67, "Attachment:\特伦斯开门提示002.bmp","000000",0.85,0,intX,intY)
If intX > 0 And intY > 0 Then
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Exit Do
Else
If Form1.CheckBox9.Value = 1 Then
ElseIf Form1.CheckBox7.Value = 1 Then
Call 释放小技能
ElseIf Form1.CheckBox11.Value = 1 Then
Call 释放小技能
End If
End If
Call LB.FindPic(1025,65,1041,83, "Attachment:\特伦斯开门提示0.bmp|Attachment:\特伦斯开门提示1.bmp","000000",0.85,0,intX,intY)
If intX > 0 And intY > 0 Then
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Exit Do
Else
If Form1.CheckBox9.Value = 1 Then
ElseIf Form1.CheckBox7.Value = 1 Then
Call 释放小技能
ElseIf Form1.CheckBox11.Value = 1 Then
Call 释放小技能
End If
End If
Loop
Case 6
超时 = 200
If Form1.CheckBox9.Value = 1 Then
KeyPress "Y", 1
Delay 2000
End If
Call 特伦斯图六定点技能1
Do
Call LB.FindPic(1043,65,1056,81, "Attachment:\特伦斯开门提示003.bmp","000000",0.85,0,intX,intY)
If intX > 0 And intY > 0 Then
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
向下 = "假"
Exit Do
Else
If Form1.CheckBox9.Value = 1 Then
ElseIf Form1.CheckBox7.Value = 1 Then
Call 释放小技能
ElseIf Form1.CheckBox11.Value = 1 Then
Call 释放小技能
End If
End If
Call LB.FindPic(1006,65,1025,83, "Attachment:\特伦斯开门提示0.bmp|Attachment:\特伦斯开门提示1.bmp","000000",0.85,0,intX,intY)
If intX > 0 And intY > 0 Then
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
向下 = "假"
Exit Do
Else
If Form1.CheckBox9.Value = 1 Then
ElseIf Form1.CheckBox7.Value = 1 Then
Call 释放小技能
ElseIf Form1.CheckBox11.Value = 1 Then
Call 释放小技能
End If
End If
Loop
Case "真"
超时 = 200
Call 特伦斯boss专杀
Do
Call 黄金翻拍
Call 黄金翻拍1
Call LB.FindStr(891,8,1044,166, "F10", "e6c89b-000000", 1.0, intX, intY)
If intX > 0 And intY > 0 Then
超时 = 200
Call LB.FindStr(1415,465,1577,625, "F10", "e6c89b-000000", 1.0, intX, intY)
If intX > 0 And intY > 0 Then
超时 = 200
Call 窗口1聚物
Call 窗口2聚物
BOSS = "真"
切换下个角色 = 0
退出副本 = ""
Call BOSS物品拾取
Exit Do
Else
KeyPress "W", 1
KeyPress "G", 1
KeyPress "H", 1
KeyPress "R", 1
KeyPress "Y", 1
Call 释放小技能
End If
Else
KeyPress "W", 1
KeyPress "G", 1
KeyPress "H", 1
KeyPress "R", 1
KeyPress "Y", 1
Call 释放小技能
End If
Call LB.FindStr(891,8,1044,166, "F10", "808080-000000", 1.0, intX, intY)
If intX > 0 And intY > 0 Then
超时 = 200
Call LB.FindStr(1415,465,1577,625, "F10", "808080-000000", 1.0, intX, intY)
If intX > 0 And intY > 0 Then
超时 = 200
Call 窗口1聚物
Call 窗口2聚物
Call BOSS物品拾取
Plugin.Msg.Tips "刷图完毕"
BOSS = "真"
切换下个角色 = 1
退出副本 = "真"
Exit Do
End If
Call LB.FindStr(1415,465,1577,625, "F10", "e6c89b-000000", 1.0, intX, intY)
If intX > 0 And intY > 0 Then
超时 = 200
Call 窗口1聚物
Call 窗口2聚物
Call BOSS物品拾取
Plugin.Msg.Tips "刷图完毕"
BOSS = "真"
切换下个角色 = 1
退出副本 = "真"
Exit Do
End If
End If
Call LB.FindStr(1415,465,1577,625, "F10", "808080-000000", 1.0, intX, intY)
If intX > 0 And intY > 0 Then
超时 = 200
Call LB.FindStr(891,8,1044,166, "F10", "e6c89b-000000", 1.0, intX, intY)
If intX > 0 And intY > 0 Then
超时 = 200
Call 窗口1聚物
Call 窗口2聚物
Call BOSS物品拾取
Plugin.Msg.Tips "刷图完毕"
BOSS = "真"
切换下个角色 = 1
退出副本 = "真"
Exit Do
End If
End If
Loop
刷图次数 = 刷图次数 + 1
通关次数 = 通关次数 + 1
Delay 1000
KeyPress "I", 1
Delay 300
KeyPress "I", 1
Delay 300
KeyPress "I", 1
Delay 300
Call 关闭同步
Delay 1000
Call 窗口1出售物品
Call 窗口2出售物品
Plugin.Msg.Tips "通关次数" & 通关次数
If 退出副本 = "真" Then
Delay 1000
Call 移动单击(932, 146)
Call 移动单击(932, 146)
Call 移动单击(932, 146)
Call 移动单击(1473,580)
Call 移动单击(1473,580)
Call 移动单击(1473,580)
切换下个角色 = 1
Delay 5000
Else
退出副本 = ""
Plugin.Msg.Tips "刷图次数" & 刷图次数
Delay 1000
Call 移动单击(934, 83)
Call 移动单击(934, 83)
Call 移动单击(934, 83)
Call 移动单击(1465,521)
Call 移动单击(1465,521)
Call 移动单击(1465, 521)
End If
Delay 10000
Case 7
超时 = 200
Call 特伦斯图七定点技能
Do
Call LB.FindPic(1022,65,1043,84, "Attachment:\特伦斯开门提示004.bmp","000000",0.9,0,intX,intY)
If intX > 0 And intY > 0 Then
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
向下 = "真"
Exit Do
Else
Call 释放小技能
End If
Call LB.FindPic(1006,82,1024,101, "Attachment:\特伦斯开门提示0.bmp|Attachment:\特伦斯开门提示1.bmp","000000",0.9,0,intX,intY)
If intX > 0 And intY > 0 Then
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
向下 = "真"
Exit Do
Else
Call 释放小技能
End If
Loop
Case 8
超时 = 200
Call 特伦斯图八定点技能
Do
color1 = LB.GetColor(1015,72)
Delay 40
color2 = LB.GetColor(1015,72)
If color1 <> "000000" And color2 <> "000000" Then
If color1 <> color2 Then
Delay 500
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
向下 = "真"
Exit Do
Else
Call 释放小技能
End If
End If
Loop
End Select
End Function
Function 确定特伦斯当前房间是否开门2
Select Case 图内角色位置
Case 1
超时 = 200
Do
Call LB.FindPic(1466,585,1601,838, "Attachment:\图一门提示.bmp|Attachment:\图一门提示0.bmp|Attachment:\图一门提示1.bmp|Attachment:\图一门提示2.bmp|Attachment:\特伦斯图一开门.bmp","000000",0.85,0,intX,intY)
If intX > 0 And intY > 0 Then
Call 特伦斯图一过图
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Exit Do
Else
Call 释放小技能
End If
Loop
Case 2
超时 = 200
Do
Call LB.FindPic(1558,481,1576,499, "Attachment:\特伦斯开门提示0.bmp|Attachment:\特伦斯开门提示1.bmp","000000",0.85,0,intX,intY)
If intX > 0 And intY > 0 Then
Call 特伦斯图二过图
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Exit Do
Else
Call 释放小技能
End If
Call LB.FindPic(1523,483,1540,501, "Attachment:\特伦斯开门提示001.bmp","000000",0.85,0,intX,intY)
If intX > 0 And intY > 0 Then
Call 特伦斯图二过图
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Exit Do
Else
Call 释放小技能
End If
Loop
Case 3
超时 = 200
Do
Call LB.FindPic(1574,481,1594,498, "Attachment:\特伦斯开门提示0.bmp|Attachment:\特伦斯开门提示1.bmp","000000",0.85,0,intX,intY)
If intX > 0 And intY > 0 Then
Call 特伦斯图三过图
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Exit Do
Else
Call 释放小技能
End If
Call LB.FindPic(1536,481,1557,500, "Attachment:\特伦斯开门提示2.bmp","000000",0.85,0,intX,intY)
If intX > 0 And intY > 0 Then
Call 特伦斯图三过图
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Exit Do
Else
Call 释放小技能
End If
Loop
Case 4
超时 = 200
Do
Call LB.FindPic(1575,500,1592,516, "Attachment:\特伦斯开门提示0.bmp|Attachment:\特伦斯开门提示1.bmp","000000",0.85,0,intX,intY)
If intX > 0 And intY > 0 Then
Call 特伦斯图四过图
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Exit Do
Else
If Form1.CheckBox9.Value = 1 Then
ElseIf Form1.CheckBox7.Value = 1 Then
Call 释放小技能
ElseIf Form1.CheckBox11.Value = 1 Then
Call 释放小技能
End If
End If
Call LB.FindPic(1558,483,1573,497, "Attachment:\特伦斯开门提示2.bmp","000000",0.85,0,intX,intY)
If intX > 0 And intY > 0 Then
Call 特伦斯图四过图
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Exit Do
Else
If Form1.CheckBox9.Value = 1 Then
ElseIf Form1.CheckBox7.Value = 1 Then
Call 释放小技能
ElseIf Form1.CheckBox11.Value = 1 Then
Call 释放小技能
End If
End If
Loop
Case 5
超时 = 200
Do
Call LB.FindPic(1572,484,1593,501, "Attachment:\特伦斯开门提示002.bmp","000000",0.85,0,intX,intY)
If intX > 0 And intY > 0 Then
Call 特伦斯图五过图
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Exit Do
Else
If Form1.CheckBox9.Value = 1 Then
ElseIf Form1.CheckBox7.Value = 1 Then
Call 释放小技能
ElseIf Form1.CheckBox11.Value = 1 Then
Call 释放小技能
End If
End If
Call LB.FindPic(1559,499,1576,517, "Attachment:\特伦斯开门提示0.bmp|Attachment:\特伦斯开门提示1.bmp","000000",0.85,0,intX,intY)
If intX > 0 And intY > 0 Then
Call 特伦斯图五过图
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Exit Do
Else
If Form1.CheckBox9.Value = 1 Then
ElseIf Form1.CheckBox7.Value = 1 Then
Call 释放小技能
ElseIf Form1.CheckBox11.Value = 1 Then
Call 释放小技能
End If
End If
Loop
Case 6
超时 = 200
Do
Call LB.FindPic(1574,500,1593,518, "Attachment:\特伦斯开门提示003.bmp","000000",0.85,0,intX,intY)
If intX > 0 And intY > 0 Then
Call 特伦斯图六过图
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
向下 = "假"
Exit Do
Else
If Form1.CheckBox9.Value = 1 Then
ElseIf Form1.CheckBox7.Value = 1 Then
Call 释放小技能
ElseIf Form1.CheckBox11.Value = 1 Then
Call 释放小技能
End If
End If
Call LB.FindPic(1540,499,1555,516, "Attachment:\特伦斯开门提示0.bmp|Attachment:\特伦斯开门提示1.bmp","000000",0.85,0,intX,intY)
If intX > 0 And intY > 0 Then
Call 特伦斯图六过图
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
向下 = "假"
Exit Do
Else
If Form1.CheckBox9.Value = 1 Then
ElseIf Form1.CheckBox7.Value = 1 Then
Call 释放小技能
ElseIf Form1.CheckBox11.Value = 1 Then
Call 释放小技能
End If
End If
Loop
Case 7
超时 = 200
Do
Call LB.FindPic(1557,500,1577,519, "Attachment:\特伦斯开门提示004.bmp","000000",0.85,0,intX,intY)
If intX > 0 And intY > 0 Then
Call 特伦斯图七过图
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
向下 = "真"
Exit Do
Else
Call 释放小技能
End If
Call LB.FindPic(1539,517,1557,538, "Attachment:\特伦斯开门提示0.bmp|Attachment:\特伦斯开门提示1.bmp","000000",0.85,0,intX,intY)
If intX > 0 And intY > 0 Then
Call 特伦斯图七过图
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
向下 = "真"
Exit Do
Else
Call 释放小技能
End If
Loop
Case 8
超时 = 200
Do
color1 = LB.GetColor(1548,507)
Delay 40
color2 = LB.GetColor(1548,507)
If color1 <> "000000" And color2 <> "000000" Then
If color1 <> color2 Then
Delay 500
Call 特伦斯图八过图
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
向下 = "真"
Exit Do
Else
Call 释放小技能
End If
End If
Loop
End Select
End Function
Function 特伦斯图一过图
If Form1.CheckBox16.Value = 1 Then
Do
Call LB.FindPic(989,47,1006,67, "Attachment:\雪人头.bmp","000000",0.83,0,intX,intY)
If intX > 0 And intY > 0 Then
Call LB.FindPic(987,48,1060,102, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)
If intX > 0 And intY > 0 Then
Else
Call LB.KeyDown(40)
Delay 300
Call LB.KeyUp(40)
Delay 100
Call LB.KeyDown(39)
Delay 60
Call LB.KeyUp(39)
Delay 60
Call LB.KeyDown(39)
Delay 1800
Call LB.KeyUp(39)
Call LB.KeyDown(38)
Delay 500
Call LB.KeyUp(38)
Delay 1000
End If
End If
Call LB.FindPic(989,47,1006,67, "Attachment:\人物图标.bmp","000000",0.85,0,intX,intY)
If intX > 0 And intY > 0 Then
Call LB.KeyDown(40)
Delay 300
Call LB.KeyUp(40)
Delay 100
Call LB.KeyDown(39)
Delay 60
Call LB.KeyUp(39)
Delay 60
Call LB.KeyDown(39)
Delay 1800
Call LB.KeyUp(39)
Call LB.KeyDown(38)
Delay 500
Call LB.KeyUp(38)
Delay 1000
End If
Call LB.FindPic(1525,485,1539,499, "Attachment:\雪人头.bmp","000000",0.83,0,intX,intY)
If intX > 0 And intY > 0 Then
Call LB.FindPic(1519,478,1595,539, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)
If intX > 0 And intY > 0 Then
Else
Call LB.KeyDown(40)
Delay 300
Call LB.KeyUp(40)
Delay 100
Call LB.KeyDown(39)
Delay 60
Call LB.KeyUp(39)
Delay 60
Call LB.KeyDown(39)
Delay 1800
Call LB.KeyUp(39)
Call LB.KeyDown(38)
Delay 500
Call LB.KeyUp(38)
Delay 1000
End If
End If
Call LB.FindPic(1525,485,1539,499, "Attachment:\人物图标.bmp","000000",0.9,0,intX,intY)
If intX > 0 And intY > 0 Then
Call LB.KeyDown(40)
Delay 300
Call LB.KeyUp(40)
Delay 100
Call LB.KeyDown(39)
Delay 60
Call LB.KeyUp(39)
Delay 60
Call LB.KeyDown(39)
Delay 1800
Call LB.KeyUp(39)
Call LB.KeyDown(38)
Delay 500
Call LB.KeyUp(38)
Delay 1000
End If
Call LB.FindPic(1006,45,1026,66, "Attachment:\人物图标.bmp","000000",0.9,0,intX,intY)
If intX > 0 And intY > 0 Then
Call LB.FindPic(1540,482,1558,499, "Attachment:\人物图标.bmp","000000",0.9,0,intX,intY)
If intX > 0 And intY > 0 Then
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Exit Do
End If
End If
Call LB.FindPic(1006,45,1026,66, "Attachment:\雪人头.bmp","000000",0.9,0,intX,intY)
If intX > 0 And intY > 0 Then
Call LB.FindPic(987,48,1060,102, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)
If intX > 0 And intY > 0 Then
Else
Call LB.FindPic(1540,482,1558,499, "Attachment:\雪人头.bmp","000000",0.9,0,intX,intY)
If intX > 0 And intY > 0 Then
Call LB.FindPic(1519,478,1595,539, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)
If intX > 0 And intY > 0 Then
Else
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Exit Do
End If
End If
End If
End If
Loop
Else
Do
Call LB.FindPic(989,47,1006,67, "Attachment:\雪人头.bmp","000000",0.83,0,intX,intY)
If intX > 0 And intY > 0 Then
Call LB.FindPic(987,48,1060,102, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)
If intX > 0 And intY > 0 Then
Else
Call LB.KeyDown(40)
Delay 300
Call LB.KeyUp(40)
Delay 100
Call LB.KeyDown(39)
Delay 60
Call LB.KeyUp(39)
Delay 60
Call LB.KeyDown(39)
Delay 1800
Call LB.KeyUp(39)
Call LB.KeyDown(38)
Delay 500
Call LB.KeyUp(38)
Delay 1000
End If
End If
Call LB.FindPic(989,47,1006,67, "Attachment:\人物图标.bmp","000000",0.9,0,intX,intY)
If intX > 0 And intY > 0 Then
Call LB.KeyDown(40)
Delay 300
Call LB.KeyUp(40)
Delay 100
Call LB.KeyDown(39)
Delay 60
Call LB.KeyUp(39)
Delay 60
Call LB.KeyDown(39)
Delay 1800
Call LB.KeyUp(39)
Call LB.KeyDown(38)
Delay 500
Call LB.KeyUp(38)
Delay 2000
End If
Call LB.FindPic(1006,45,1026,66, "Attachment:\人物图标.bmp","000000",0.9,0,intX,intY)
If intX > 0 And intY > 0 Then
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Exit Do
End If
Call LB.FindPic(1006,45,1026,66, "Attachment:\雪人头.bmp","000000",0.9,0,intX,intY)
If intX > 0 And intY > 0 Then
Call LB.FindPic(987,48,1060,102, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)
If intX > 0 And intY > 0 Then
Else
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Exit Do
End If
End If
Loop
End If
End Function
Function 特伦斯图二过图
If Form1.CheckBox16.Value = 1 Then
Do
Call LB.FindPic(1006,46,1023,67, "Attachment:\雪人头.bmp","000000",0.83,0,intX,intY)
If intX > 0 And intY > 0 Then
Call LB.FindPic(987,48,1060,102, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)
If intX > 0 And intY > 0 Then
Else
Call LB.KeyDown(40)
Delay 1500
Call LB.KeyUp(40)
Delay 100
Call LB.KeyDown(39)
Delay 60
Call LB.KeyUp(39)
Delay 60
Call LB.KeyDown(39)
Delay 3000
Call LB.KeyDown(38)
Delay 500
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Delay 1000
End If
End If
Call LB.FindPic(1006,46,1023,67, "Attachment:\人物图标.bmp","000000",0.9,0,intX,intY)
If intX > 0 And intY > 0 Then
Call LB.KeyDown(40)
Delay 1500
Call LB.KeyUp(40)
Delay 100
Call LB.KeyDown(39)
Delay 60
Call LB.KeyUp(39)
Delay 60
Call LB.KeyDown(39)
Delay 3000
Call LB.KeyDown(38)
Delay 500
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Delay 1000
End If
Call LB.FindPic(1541,484,1556,500, "Attachment:\雪人头.bmp","000000",0.83,0,intX,intY)
If intX > 0 And intY > 0 Then
Call LB.FindPic(1518,478,1595,540, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)
If intX > 0 And intY > 0 Then
Else
Call LB.KeyDown(40)
Delay 1500
Call LB.KeyUp(40)
Delay 100
Call LB.KeyDown(39)
Delay 60
Call LB.KeyUp(39)
Delay 60
Call LB.KeyDown(39)
Delay 3000
Call LB.KeyDown(38)
Delay 500
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Delay 1000
End If
End If
Call LB.FindPic(1541,484,1556,500, "Attachment:\人物图标.bmp","000000",0.9,0,intX,intY)
If intX > 0 And intY > 0 Then
Call LB.KeyDown(40)
Delay 1500
Call LB.KeyUp(40)
Delay 100
Call LB.KeyDown(39)
Delay 60
Call LB.KeyUp(39)
Delay 60
Call LB.KeyDown(39)
Delay 3000
Call LB.KeyDown(38)
Delay 500
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Delay 1000
End If
Call LB.FindPic(1023,47,1042,67, "Attachment:\人物图标.bmp","000000",0.9,0,intX,intY)
If intX > 0 And intY > 0 Then
Call LB.FindPic(1558,481,1576,501, "Attachment:\人物图标.bmp","000000",0.9,0,intX,intY)
If intX > 0 And intY > 0 Then
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Exit Do
End If
End If
Call LB.FindPic(1023,47,1042,67, "Attachment:\雪人头.bmp","000000",0.9,0,intX,intY)
If intX > 0 And intY > 0 Then
Call LB.FindPic(987,48,1060,102, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)
If intX > 0 And intY > 0 Then
Else
Call LB.FindPic(1558,481,1576,501, "Attachment:\雪人头.bmp","000000",0.9,0,intX,intY)
If intX > 0 And intY > 0 Then
Call LB.FindPic( 1518,478,1595,540, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)
If intX > 0 And intY > 0 Then
Else
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Exit Do
End If
End If
End If
End If
Loop
Else
Do
Call LB.FindPic(1006,46,1023,67, "Attachment:\雪人头.bmp","000000",0.83,0,intX,intY)
If intX > 0 And intY > 0 Then
Call LB.FindPic(987,48,1060,102, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)
If intX > 0 And intY > 0 Then
Else
Call LB.KeyDown(40)
Delay 1500
Call LB.KeyUp(40)
Delay 100
Call LB.KeyDown(39)
Delay 60
Call LB.KeyUp(39)
Delay 60
Call LB.KeyDown(39)
Delay 3000
Call LB.KeyDown(38)
Delay 500
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Delay 1000
End If
End If
Call LB.FindPic(1006,46,1023,67, "Attachment:\人物图标.bmp","000000",0.9,0,intX,intY)
If intX > 0 And intY > 0 Then
Call LB.KeyDown(40)
Delay 1500
Call LB.KeyUp(40)
Delay 100
Call LB.KeyDown(39)
Delay 60
Call LB.KeyUp(39)
Delay 60
Call LB.KeyDown(39)
Delay 3000
Call LB.KeyDown(38)
Delay 500
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Delay 2000
End If
Call LB.FindPic(1023,47,1042,67, "Attachment:\人物图标.bmp","000000",0.9,0,intX,intY)
If intX > 0 And intY > 0 Then
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Exit Do
End If
Call LB.FindPic(1023,47,1042,67, "Attachment:\雪人头.bmp","000000",0.9,0,intX,intY)
If intX > 0 And intY > 0 Then
Call LB.FindPic(987,48,1060,102, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)
If intX > 0 And intY > 0 Then
Else
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Exit Do
End If
End If
Loop
End If
End Function
Function 特伦斯图三过图
If Form1.CheckBox16.Value = 1 Then
Do
Call LB.FindPic(1023,46,1043,66, "Attachment:\雪人头.bmp","000000",0.83,0,intX,intY)
If intX > 0 And intY > 0 Then
Call LB.FindPic(987,48,1060,102, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)
If intX > 0 And intY > 0 Then
Else
Delay 1000
Call LB.KeyDown(39)
Delay 60
Call LB.KeyUp(39)
Delay 60
Call LB.KeyDown(39)
Delay 100
Call LB.KeyDown(38)
Delay 3000
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyDown(40)
Delay 500
Call LB.KeyUp(40)
Delay 1000
End If
End If
Call LB.FindPic(1023,46,1043,66, "Attachment:\人物图标.bmp","000000",0.9,0,intX,intY)
If intX > 0 And intY > 0 Then
Delay 1000
Call LB.KeyDown(39)
Delay 60
Call LB.KeyUp(39)
Delay 60
Call LB.KeyDown(39)
Delay 100
Call LB.KeyDown(38)
Delay 3000
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyDown(40)
Delay 500
Call LB.KeyUp(40)
Delay 1000
End If
Call LB.FindPic(1556,481,1574,502, "Attachment:\雪人头.bmp","000000",0.83,0,intX,intY)
If intX > 0 And intY > 0 Then
Call LB.FindPic(1518,477,1599,540, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)
If intX > 0 And intY > 0 Then
Else
Delay 1000
Call LB.KeyDown(39)
Delay 60
Call LB.KeyUp(39)
Delay 60
Call LB.KeyDown(39)
Delay 100
Call LB.KeyDown(38)
Delay 3000
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyDown(40)
Delay 500
Call LB.KeyUp(40)
Delay 1000
End If
End If
Call LB.FindPic(1556,481,1574,502, "Attachment:\人物图标.bmp","000000",0.9,0,intX,intY)
If intX > 0 And intY > 0 Then
Delay 1000
Call LB.KeyDown(39)
Delay 60
Call LB.KeyUp(39)
Delay 60
Call LB.KeyDown(39)
Delay 100
Call LB.KeyDown(38)
Delay 3000
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyDown(40)
Delay 500
Call LB.KeyUp(40)
Delay 1000
End If
Call LB.FindPic(1042,47,1062,66, "Attachment:\人物图标.bmp","000000",0.9,0,intX,intY)
If intX > 0 And intY > 0 Then
Call LB.FindPic(1576,481,1595,500, "Attachment:\人物图标.bmp","000000",0.9,0,intX,intY)
If intX > 0 And intY > 0 Then
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Exit Do
End If
End If
Call LB.FindPic(1042,47,1062,66, "Attachment:\雪人头.bmp","000000",0.9,0,intX,intY)
If intX > 0 And intY > 0 Then
Call LB.FindPic(987,48,1060,102, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)
If intX > 0 And intY > 0 Then
Else
Call LB.FindPic(1576,481,1595,500, "Attachment:\雪人头.bmp","000000",0.9,0,intX,intY)
If intX > 0 And intY > 0 Then
Call LB.FindPic(1518,477,1599,540, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)
If intX > 0 And intY > 0 Then
Else
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Exit Do
End If
End If
End If
End If
Loop
Else
Do
Call LB.FindPic(1023,46,1043,66, "Attachment:\雪人头.bmp","000000",0.83,0,intX,intY)
If intX > 0 And intY > 0 Then
Call LB.FindPic(987,48,1060,102, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)
If intX > 0 And intY > 0 Then
Else
Delay 1000
Call LB.KeyDown(39)
Delay 60
Call LB.KeyUp(39)
Delay 60
Call LB.KeyDown(39)
Delay 100
Call LB.KeyDown(38)
Delay 3000
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyDown(40)
Delay 500
Call LB.KeyUp(40)
Delay 1000
End If
End If
Call LB.FindPic(1023,46,1043,66, "Attachment:\人物图标.bmp","000000",0.9,0,intX,intY)
If intX > 0 And intY > 0 Then
Delay 1000
Call LB.KeyDown(39)
Delay 60
Call LB.KeyUp(39)
Delay 60
Call LB.KeyDown(39)
Delay 100
Call LB.KeyDown(38)
Delay 3000
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyDown(40)
Delay 500
Call LB.KeyUp(40)
Delay 2000
End If
Call LB.FindPic(1042,47,1062,66, "Attachment:\人物图标.bmp","000000",0.9,0,intX,intY)
If intX > 0 And intY > 0 Then
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Exit Do
End If
Call LB.FindPic(1042,47,1062,66, "Attachment:\雪人头.bmp","000000",0.9,0,intX,intY)
If intX > 0 And intY > 0 Then
Call LB.FindPic(987,48,1060,102, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)
If intX > 0 And intY > 0 Then
Else
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Exit Do
End If
End If
Loop
End If
End Function
Function 特伦斯图四过图
If Form1.CheckBox16.Value = 1 Then
Else
Delay 1000
End If
Call LB.KeyDown(39)
Delay 60
Call LB.KeyUp(39)
Delay 70
Call LB.KeyDown(39)
Delay 200
Call LB.KeyDown(40)
Delay 1700
Call LB.KeyUp(40)
KeyPress "X", 1
Delay 300
Call LB.KeyDown(39)
Delay 60
Call LB.KeyUp(39)
Delay 60
Call LB.KeyDown(39)
Delay 1800
Call LB.KeyUp(39)
Delay 1000
If Form1.CheckBox16.Value = 1 Then
Do
Call LB.FindPic(1039,45,1062,68, "Attachment:\雪人头.bmp","000000",0.83,0,intX,intY)
If intX > 0 And intY > 0 Then
Call LB.FindPic(987,48,1060,102, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)
If intX > 0 And intY > 0 Then
Else
Call LB.KeyDown(39)
Delay 60
Call LB.KeyUp(39)
Delay 60
Call LB.KeyDown(39)
Delay 1500
Call LB.KeyDown(40)
Delay 300
Call LB.KeyUp(40)
Delay 200
Call LB.KeyUp(39)
KeyPress "X", 1
Delay 500
Call LB.KeyDown(37)
Delay 60
Call LB.KeyUp(37)
Delay 60
Call LB.KeyDown(37)
Delay 800
Call LB.KeyUp(37)
Delay 1000
KeyPress "X", 1
Delay 200
End If
End If
Call LB.FindPic(1039,45,1062,68, "Attachment:\人物图标.bmp","000000",0.9,0,intX,intY)
If intX > 0 And intY > 0 Then
Call LB.KeyDown(39)
Delay 60
Call LB.KeyUp(39)
Delay 60
Call LB.KeyDown(39)
Delay 1500
Call LB.KeyDown(40)
Delay 300
Call LB.KeyUp(40)
Delay 200
Call LB.KeyUp(39)
KeyPress "X", 1
Delay 500
Call LB.KeyDown(37)
Delay 60
Call LB.KeyUp(37)
Delay 60
Call LB.KeyDown(37)
Delay 800
Call LB.KeyUp(37)
Delay 1000
KeyPress "X", 1
Delay 200
End If
Call LB.FindPic(1576,483,1594,500, "Attachment:\雪人头.bmp","000000",0.83,0,intX,intY)
If intX > 0 And intY > 0 Then
Call LB.FindPic(1517,479,1595,538, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)
If intX > 0 And intY > 0 Then
Else
Call LB.KeyDown(39)
Delay 60
Call LB.KeyUp(39)
Delay 60
Call LB.KeyDown(39)
Delay 1500
Call LB.KeyDown(40)
Delay 300
Call LB.KeyUp(40)
Delay 200
Call LB.KeyUp(39)
KeyPress "X", 1
Delay 500
Call LB.KeyDown(37)
Delay 60
Call LB.KeyUp(37)
Delay 60
Call LB.KeyDown(37)
Delay 800
Call LB.KeyUp(37)
Delay 1000
KeyPress "X", 1
Delay 200
End If
End If
Call LB.FindPic(1576,483,1594,500, "Attachment:\人物图标.bmp","000000",0.9,0,intX,intY)
If intX > 0 And intY > 0 Then
Call LB.KeyDown(39)
Delay 60
Call LB.KeyUp(39)
Delay 60
Call LB.KeyDown(39)
Delay 1500
Call LB.KeyDown(40)
Delay 300
Call LB.KeyUp(40)
Delay 200
Call LB.KeyUp(39)
KeyPress "X", 1
Delay 500
Call LB.KeyDown(37)
Delay 60
Call LB.KeyUp(37)
Delay 60
Call LB.KeyDown(37)
Delay 800
Call LB.KeyUp(37)
Delay 1000
KeyPress "X", 1
Delay 200
End If
Call LB.FindPic(1043,64,1061,86, "Attachment:\人物图标.bmp","000000",0.9,0,intX,intY)
If intX > 0 And intY > 0 Then
Call LB.FindPic(1574,500,1593,516, "Attachment:\人物图标.bmp","000000",0.9,0,intX,intY)
If intX > 0 And intY > 0 Then
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Exit Do
End If
End If
Call LB.FindPic(1043,64,1061,86, "Attachment:\雪人头.bmp","000000",0.9,0,intX,intY)
If intX > 0 And intY > 0 Then
Call LB.FindPic(987,48,1060,102, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)
If intX > 0 And intY > 0 Then
Else
Call LB.FindPic(1574,500,1593,516, "Attachment:\雪人头.bmp","000000",0.9,0,intX,intY)
If intX > 0 And intY > 0 Then
Call LB.FindPic(1517,479,1595,538, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)
If intX > 0 And intY > 0 Then
Else
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Exit Do
End If
End If
End If
End If
Loop
Else
Do
Call LB.FindPic(1039,45,1062,68, "Attachment:\雪人头.bmp","000000",0.83,0,intX,intY)
If intX > 0 And intY > 0 Then
Call LB.FindPic(987,48,1060,102, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)
If intX > 0 And intY > 0 Then
Else
Call LB.KeyDown(39)
Delay 60
Call LB.KeyUp(39)
Delay 60
Call LB.KeyDown(39)
Delay 1300
Call LB.KeyDown(40)
Delay 300
Call LB.KeyUp(40)
Delay 200
Call LB.KeyUp(39)
KeyPress "X", 1
Delay 500
Call LB.KeyDown(37)
Delay 60
Call LB.KeyUp(37)
Delay 60
Call LB.KeyDown(37)
Delay 800
Call LB.KeyUp(37)
Delay 1000
KeyPress "X", 1
Delay 200
End If
End If
Call LB.FindPic(1039,45,1062,68, "Attachment:\人物图标.bmp","000000",0.9,0,intX,intY)
If intX > 0 And intY > 0 Then
Call LB.KeyDown(39)
Delay 60
Call LB.KeyUp(39)
Delay 60
Call LB.KeyDown(39)
Delay 1500
Call LB.KeyDown(40)
Delay 300
Call LB.KeyUp(40)
Delay 200
Call LB.KeyUp(39)
KeyPress "X", 1
Delay 500
Call LB.KeyDown(37)
Delay 60
Call LB.KeyUp(37)
Delay 60
Call LB.KeyDown(37)
Delay 800
Call LB.KeyUp(37)
Delay 1000
KeyPress "X", 1
Delay 200
End If
If Form1.CheckBox18.Value = 1 Then
Delay 3000
Else
Delay 2000
End If
Call LB.FindPic(1043,64,1061,86, "Attachment:\人物图标.bmp","000000",0.9,0,intX,intY)
If intX > 0 And intY > 0 Then
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Exit Do
End If
Call LB.FindPic(1043,64,1061,86, "Attachment:\雪人头.bmp","000000",0.9,0,intX,intY)
If intX > 0 And intY > 0 Then
Call LB.FindPic(987,48,1060,102, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)
If intX > 0 And intY > 0 Then
Else
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Exit Do
End If
End If
Loop
End If
End Function
Function 特伦斯图五过图
次数 = 0
If Form1.CheckBox16.Value = 1 Then
Do
次数 = 次数 + 1
If 次数 >= 3 Then
Call LB.KeyDown(37)
Delay 60
Call LB.KeyDown(40)
Delay 2000
Call LB.KeyUp(40)
Delay 1500
Call LB.FindPic(1041,63,1064,85, "Attachment:\人物图标.bmp","000000",0.9,0,intX,intY)
If intX > 0 And intY > 0 Then
Else
Call LB.FindPic(1574,499,1594,520, "Attachment:\人物图标.bmp","000000",0.9,0,intX,intY)
If intX > 0 And intY > 0 Then
Else
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Exit Do
End If
End If
Call LB.FindPic(1041,63,1064,85, "Attachment:\雪人头.bmp","000000",0.83,0,intX,intY)
If intX > 0 And intY > 0 Then
Call LB.FindPic(987,48,1060,102, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)
If intX > 0 And intY > 0 Then
Else
Call LB.FindPic(1574,499,1594,520, "Attachment:\雪人头.bmp","000000",0.83,0,intX,intY)
If intX > 0 And intY > 0 Then
Call LB.FindPic(1513,479,1594,540, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)
If intX > 0 And intY > 0 Then
Else
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Exit Do
End If
End If
End If
End If
Call LB.KeyDown(38)
Delay 2000
Call LB.KeyUp(38)
Delay 60
Call LB.KeyUp(37)
Delay 60
Call LB.KeyUp(40)
Delay 1000
Call LB.FindPic(1041,63,1064,85, "Attachment:\人物图标.bmp","000000",0.9,0,intX,intY)
If intX > 0 And intY > 0 Then
Else
Call LB.FindPic(1574,499,1594,520, "Attachment:\人物图标.bmp","000000",0.9,0,intX,intY)
If intX > 0 And intY > 0 Then
Else
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Exit Do
End If
End If
Call LB.FindPic(1041,63,1064,85, "Attachment:\雪人头.bmp","000000",0.83,0,intX,intY)
If intX > 0 And intY > 0 Then
Call LB.FindPic(987,48,1060,102, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)
If intX > 0 And intY > 0 Then
Else
Call LB.FindPic(1574,499,1594,520, "Attachment:\雪人头.bmp","000000",0.83,0,intX,intY)
If intX > 0 And intY > 0 Then
Call LB.FindPic(1513,479,1594,540, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)
If intX > 0 And intY > 0 Then
Else
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Exit Do
End If
End If
End If
End If
End If
跑动(37)
Delay 200
Call LB.KeyDown(38)
Delay 1500
Call LB.KeyUp(38)
Call LB.KeyUp(37)
Delay 200
Call LB.KeyDown(40)
Delay 200
Call LB.KeyDown(37)
Delay 900
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Delay 1500
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Call LB.FindPic(1022,64,1042,83, "Attachment:\人物图标.bmp","000000",0.9,0,intX,intY)
If intX > 0 And intY > 0 Then
Call LB.FindPic(1557,498,1576,518, "Attachment:\人物图标.bmp","000000",0.9,0,intX,intY)
If intX > 0 And intY > 0 Then
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Exit Do
End If
End If
Call LB.FindPic(1022,64,1042,83, "Attachment:\雪人头.bmp","000000",0.9,0,intX,intY)
If intX > 0 And intY > 0 Then
Call LB.FindPic(987,48,1060,102, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)
If intX > 0 And intY > 0 Then
Else
Call LB.FindPic(1557,498,1576,518, "Attachment:\雪人头.bmp","000000",0.9,0,intX,intY)
If intX > 0 And intY > 0 Then
Call LB.FindPic(1516,479,1598,541, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)
If intX > 0 And intY > 0 Then
Else
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Exit Do
End If
End If
End If
End If
Loop
Else
Delay 1000
Do
次数 = 次数 + 1
If 次数 >= 3 Then
Call LB.KeyDown(37)
Delay 60
Call LB.KeyDown(40)
Delay 3000
Call LB.KeyUp(40)
If Form1.CheckBox18.Value = 1 Then
Delay 5000
Else
Delay 3000
End If
Call LB.FindPic(1041,63,1064,85, "Attachment:\人物图标.bmp","000000",0.9,0,intX,intY)
If intX > 0 And intY > 0 Then
Else
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Exit Do
End If
Call LB.FindPic(1041,63,1064,85, "Attachment:\雪人头.bmp","000000",0.83,0,intX,intY)
If intX > 0 And intY > 0 Then
Call LB.FindPic(987,48,1060,102, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)
If intX > 0 And intY > 0 Then
Else
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Exit Do
End If
End If
Call LB.KeyDown(38)
Delay 2000
Call LB.KeyUp(38)
Delay 60
Call LB.KeyUp(37)
Delay 60
Call LB.KeyUp(40)
If Form1.CheckBox18.Value = 1 Then
Delay 5000
Else
Delay 3000
End If
Call LB.FindPic(1041,63,1064,85, "Attachment:\人物图标.bmp","000000",0.9,0,intX,intY)
If intX > 0 And intY > 0 Then
Else
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Exit Do
End If
Call LB.FindPic(1041,63,1064,85, "Attachment:\雪人头.bmp","000000",0.83,0,intX,intY)
If intX > 0 And intY > 0 Then
Call LB.FindPic(987,48,1060,102, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)
If intX > 0 And intY > 0 Then
Else
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Exit Do
End If
End If
End If
跑动(37)
Delay 200
Call LB.KeyDown(38)
Delay 1400
Call LB.KeyUp(38)
Call LB.KeyUp(37)
Delay 200
Call LB.KeyDown(40)
Delay 200
Call LB.KeyDown(37)
Delay 800
Call LB.KeyUp(40)
Call LB.KeyUp(37)
If Form1.CheckBox18.Value = 1 Then
Delay 5000
Else
Delay 3000
End If
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Call LB.FindPic(1022,64,1042,83, "Attachment:\人物图标.bmp","000000",0.9,0,intX,intY)
If intX > 0 And intY > 0 Then
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Exit Do
End If
Call LB.FindPic(1022,64,1042,83, "Attachment:\雪人头.bmp","000000",0.9,0,intX,intY)
If intX > 0 And intY > 0 Then
Call LB.FindPic(987,48,1060,102, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)
If intX > 0 And intY > 0 Then
Else
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Exit Do
End If
End If
Loop
End If
End Function
Function 特伦斯图六过图
Dim 随机门
If Form1.CheckBox16.Value = 1 Then
Call LB.KeyDown(38)
For 3
Call LB.KeyDown(39)
Delay 100
Call LB.KeyUp(39)
Next
Delay 1500
Delay 200
Call LB.KeyDown(37)
Delay 80
Call LB.KeyUp(37)
Delay 80
Call LB.KeyDown(37)
Delay 300
Call LB.KeyUp(38)
次数 = 0
For 20
Call LB.FindPic(0,429,279,577, "Attachment:\特伦斯门柱子.bmp", "000000", 0.75, 0, intX, intY)
If intX > 0 And intY > 0 Then
Exit For
Else
If 次数 >= 15 Then
随机门 = "真"
End If
Delay 10
次数 = 次数 + 1
End If
Next
次数 = 0
For 20
Call LB.FindPic(533,882,803,1021, "Attachment:\特伦斯门柱子.bmp", "000000", 0.75, 0, intX, intY)
If intX > 0 And intY > 0 Then
Exit For
Else
If 次数 >= 15 Then
随机门 = "真"
End If
Delay 10
次数 = 次数 + 1
End If
Next
Do
If 随机门 = "真" Then
Delay 1000
Call LB.KeyDown(38)
Delay 1500
Call LB.KeyUp(38)
Delay 200
Call LB.KeyDown(37)
Delay 80
Call LB.KeyUp(37)
Delay 80
Call LB.KeyDown(37)
Delay 300
Call LB.KeyDown(40)
Delay 800
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Delay 1500
Else
Delay 1000
Call LB.KeyDown(37)
Delay 80
Call LB.KeyUp(37)
Delay 80
Call LB.KeyDown(37)
Delay 1600
Call LB.KeyUp(37)
Call LB.KeyDown(40)
Delay 2000
Call LB.KeyUp(40)
Delay 200
Delay 1000
End If
Call LB.FindPic(1028,66,1039,84, "Attachment:\人物图标.bmp","000000",0.9,0,intX,intY)
If intX > 0 And intY > 0 Then
Else
Call LB.FindPic(1557,501,1576,519, "Attachment:\人物图标.bmp","000000",0.9,0,intX,intY)
If intX > 0 And intY > 0 Then
Else
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
是否路口 = "真"
Exit Do
End If
End If
If 随机门 = "真" Then
Delay 100
Call LB.KeyDown(37)
Delay 80
Call LB.KeyUp(37)
Delay 80
Call LB.KeyDown(37)
Delay 200
Call LB.KeyUp(37)
Delay 300
Call LB.KeyDown(38)
Delay 800
Call LB.KeyUp(38)
Delay 1500
Else
Call LB.KeyDown(37)
Delay 80
Call LB.KeyUp(37)
Delay 80
Call LB.KeyDown(37)
Call LB.KeyDown(40)
Delay 600
Call LB.KeyUp(37)
Call LB.KeyUp(40)
Delay 100
Call LB.KeyDown(39)
Delay 80
Call LB.KeyUp(39)
Delay 80
Call LB.KeyDown(39)
Delay 200
Call LB.KeyUp(39)
Delay 1000
End If
Call LB.FindPic(1028,66,1039,84, "Attachment:\人物图标.bmp","000000",0.9,0,intX,intY)
If intX > 0 And intY > 0 Then
Else
Call LB.FindPic(1555,499,1577,520, "Attachment:\人物图标.bmp","000000",0.9,0,intX,intY)
If intX > 0 And intY > 0 Then
Else
是否路口 = "真"
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Exit Do
End If
End If
Loop
Else
Do
Delay 1000
Call LB.KeyDown(40)
Delay 1500
Call LB.KeyUp(40)
Delay 200
Call LB.KeyDown(37)
Delay 80
Call LB.KeyUp(37)
Delay 80
Call LB.KeyDown(37)
Delay 1600
Call LB.KeyUp(37)
KeyPress "X", 1
If Form1.CheckBox18.Value = 1 Then
Delay 3000
Else
Delay 2000
End If
Call LB.FindPic(1028,66,1039,84, "Attachment:\人物图标.bmp","000000",0.9,0,intX,intY)
If intX > 0 And intY > 0 Then
Else
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
是否路口 = "真"
Exit Do
End If
Call LB.KeyDown(37)
Delay 80
Call LB.KeyUp(37)
Delay 80
Call LB.KeyDown(37)
Call LB.KeyDown(40)
Delay 600
Call LB.KeyUp(37)
Call LB.KeyUp(40)
If Form1.CheckBox18.Value = 1 Then
Delay 3000
Else
Delay 2000
End If
Call LB.FindPic(1022,64,1042,83, "Attachment:\雪人头.bmp","000000",0.9,0,intX,intY)
If intX > 0 And intY > 0 Then
Call LB.FindPic(987,48,1060,102, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)
If intX > 0 And intY > 0 Then
Else
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
是否路口 = "真"
Exit Do
End If
End If
Delay 100
Call LB.KeyDown(39)
Delay 80
Call LB.KeyUp(39)
Delay 80
Call LB.KeyDown(39)
Delay 200
Call LB.KeyUp(39)
If Form1.CheckBox18.Value = 1 Then
Delay 3000
Else
Delay 2000
End If
Call LB.FindPic(1028,66,1039,84, "Attachment:\人物图标.bmp","000000",0.9,0,intX,intY)
If intX > 0 And intY > 0 Then
Else
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
是否路口 = "真"
Exit Do
End If
Delay 100
Call LB.KeyDown(37)
Delay 80
Call LB.KeyUp(37)
Delay 80
Call LB.KeyDown(37)
Delay 200
Call LB.KeyUp(37)
Delay 300
Call LB.KeyDown(38)
Delay 800
Call LB.KeyUp(38)
If Form1.CheckBox18.Value = 1 Then
Delay 11000
Else
Delay 2000
End If
Call LB.FindPic(1028,66,1039,84, "Attachment:\人物图标.bmp","000000",0.9,0,intX,intY)
If intX > 0 And intY > 0 Then
Else
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
是否路口 = "真"
Exit Do
End If
Loop
End If
End Function
Function 特伦斯图七过图
Do
Call LB.KeyDown(40)
Delay 1500
Call LB.KeyUp(40)
Delay 300
Call LB.KeyDown(37)
Delay 80
Call LB.KeyUp(37)
Delay 80
Call LB.KeyDown(37)
Delay 300
Call LB.KeyDown(40)
Delay 1800
Call LB.KeyUp(40)
Delay 1000
Call LB.FindPic(1011,67,1022,83, "Attachment:\人物图标.bmp","000000",0.9,0,intX,intY)
If intX > 0 And intY > 0 Then
Else
If Form1.CheckBox16.Value = 1 Then
Call LB.FindPic(1540,498,1558,517, "Attachment:\人物图标.bmp","000000",0.9,0,intX,intY)
If intX > 0 And intY > 0 Then
Else
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Exit Do
End If
Else
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Exit Do
End If
End If
Call LB.KeyUp(40)
Delay 200
Call LB.KeyDown(40)
Delay 1000
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Delay 300
Call LB.KeyDown(39)
Delay 80
Call LB.KeyUp(39)
Delay 80
Call LB.KeyDown(39)
Delay 800
Call LB.KeyUp(39)
Call LB.KeyDown(40)
Delay 2000
Call LB.KeyUp(40)
Loop
End Function
Function 特伦斯图八过图
Do
Call LB.KeyDown(39)
Delay 80
Call LB.KeyUp(39)
Delay 80
Call LB.KeyDown(39)
Delay 1300
Call LB.KeyUp(39)
If Form1.CheckBox18.Value = 1 Then
Delay 3000
Else
Delay 2000
End If
Call LB.FindPic(1010,85,1022,101, "Attachment:\人物图标.bmp","000000",0.9,0,intX,intY)
If intX > 0 And intY > 0 Then
Else
If Form1.CheckBox16.Value = 1 Then
Call LB.FindPic(1537,516,1560,538, "Attachment:\人物图标.bmp","000000",0.9,0,intX,intY)
If intX > 0 And intY > 0 Then
Else
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Exit Do
End If
Else
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Exit Do
End If
End If
Call LB.KeyDown(40)
Delay 1500
Call LB.KeyUp(40)
Delay 200
Call LB.KeyDown(38)
Delay 700
Call LB.KeyUp(38)
If Form1.CheckBox18.Value = 1 Then
Delay 3000
Else
Delay 1200
End If
Call LB.FindPic(1010,85,1022,101, "Attachment:\人物图标.bmp","000000",0.9,0,intX,intY)
If intX > 0 And intY > 0 Then
Else
If Form1.CheckBox16.Value = 1 Then
Call LB.FindPic(1537,516,1560,538, "Attachment:\人物图标.bmp","000000",0.9,0,intX,intY)
If intX > 0 And intY > 0 Then
Else
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Exit Do
End If
Else
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Exit Do
End If
End If
Loop
End Function
Function 走到工业副本门
Call LB.KeyDown(40)
Delay 2000
Call LB.KeyUp(40)
Call LB.KeyDown(39)
Delay 200
Call LB.KeyDown(38)
Delay 8000
If Form1.CheckBox17.Value = 1 Then
Do
Call LB.FindStr(809,523,943,587, "返回城镇", "ddc593-000000", 1.0, intX, intY)
If intX > 0 And intY > 0 Then
Call LB.KeyUp(39)
Call LB.KeyUp(38)
Exit Do
End If
Loop
End If
End Function
Function 选择特伦斯副本
If Form1.CheckBox17.Value = 1 Then
Do
Call LB.FindStr(809,523,943,587, "返回城镇", "ddc593-000000", 1.0, intX, intY)
If intX > 0 And intY > 0 Then
Call LB.KeyUp(37)
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Exit Do
End If
Loop
End If
Delay 1000
If Form1.CheckBox8.Value = 1 Then
副本 = "特伦斯发电站"
End If
If Form1.CheckBox1.Value = 1 Then
副本难度 = "普通级"
End If
If Form1.CheckBox2.Value = 1 Then
副本难度 = "冒险级"
End If
If Form1.CheckBox3.Value = 1 Then
副本难度 = "勇士级"
End If
If Form1.CheckBox4.Value = 1 Then
副本难度 = "王者级"
End If
If Form1.CheckBox5.Value = 1 Then
副本难度 = "噩梦级"
End If
Do
Call LB.FindStr(806,433,974,527, "特伦斯发电站", "ddc593-000000", 1.0, intX, intY)
If intX > 0 And intY > 0 Then
Call LB.KeyUp(37)
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Select Case 副本难度
Case "普通级"
For 5
Call LB.KeyPress(37)
Delay 100
Next
Case "冒险级"
For 5
Call LB.KeyPress(37)
Delay 100
Next
For 1
Call LB.KeyPress(39)
Delay 100
Next
Case "勇士级"
For 5
Call LB.KeyPress(37)
Delay 100
Next
For 2
Call LB.KeyPress(39)
Delay 100
Next
Case "王者级"
For 5
Call LB.KeyPress(37)
Delay 100
Next
For 3
Call LB.KeyPress(39)
Delay 100
Next
Case "噩梦级"
For 5
Call LB.KeyPress(37)
Delay 100
Next
For 4
Call LB.KeyPress(39)
Delay 100
Next
End Select
KeyPress "Space", 1
KeyPress "Space", 1
Exit Do
Else
Call LB.KeyPress(38)
Delay 500
End If
Loop
End Function
Function 选择特伦斯副本1
Do
Call LB.FindStr(809,523,943,587, "返回城镇", "ddc593-000000", 1.0, intX, intY)
If intX > 0 And intY > 0 Then
Call LB.KeyUp(37)
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call 关闭同步
Exit Do
End If
Loop
Delay 1000
If Form1.CheckBox8.Value = 1 Then
副本 = "特伦斯发电站"
End If
If Form1.CheckBox1.Value = 1 Then
副本难度 = "普通级"
End If
If Form1.CheckBox2.Value = 1 Then
副本难度 = "冒险级"
End If
If Form1.CheckBox3.Value = 1 Then
副本难度 = "勇士级"
End If
If Form1.CheckBox4.Value = 1 Then
副本难度 = "王者级"
End If
If Form1.CheckBox5.Value = 1 Then
副本难度 = "噩梦级"
End If
Do
Call LB.FindStr(806,433,974,527, "特伦斯发电站", "ddc593-000000", 1.0, intX, intY)
If intX > 0 And intY > 0 Then
Select Case 副本难度
Case "普通级"
For 5
Call LB.KeyPress(37)
Delay 100
Next
Case "冒险级"
For 5
Call LB.KeyPress(37)
Delay 100
Next
For 1
Call LB.KeyPress(39)
Delay 100
Next
Case "勇士级"
For 5
Call LB.KeyPress(37)
Delay 100
Next
For 2
Call LB.KeyPress(39)
Delay 100
Next
Case "王者级"
For 5
Call LB.KeyPress(37)
Delay 100
Next
For 3
Call LB.KeyPress(39)
Delay 100
Next
Case "噩梦级"
For 5
Call LB.KeyPress(37)
Delay 100
Next
For 4
Call LB.KeyPress(39)
Delay 100
Next
End Select
KeyPress "Space", 1
KeyPress "Space", 1
Exit Do
Else
Call LB.KeyPress(38)
Delay 500
End If
Loop
End Function
Function 选择特伦斯副本2
Call 切换到2号
Do
Call LB.FindStr(1381,970,1446,1001, "返回城镇", "ddc593-000000", 1.0, intX, intY)
If intX > 0 And intY > 0 Then
Call LB.KeyUp(37)
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Exit Do
End If
Loop
Delay 1000
If Form1.CheckBox8.Value = 1 Then
副本 = "特伦斯发电站"
End If
If Form1.CheckBox1.Value = 1 Then
副本难度 = "普通级"
End If
If Form1.CheckBox2.Value = 1 Then
副本难度 = "冒险级"
End If
If Form1.CheckBox3.Value = 1 Then
副本难度 = "勇士级"
End If
If Form1.CheckBox4.Value = 1 Then
副本难度 = "王者级"
End If
If Form1.CheckBox5.Value = 1 Then
副本难度 = "噩梦级"
End If
Do
Call LB.FindStr(1386,912,1468,938, "特伦斯发电站", "ddc593-000000", 1.0, intX, intY)
If intX > 0 And intY > 0 Then
Select Case 副本难度
Case "普通级"
For 5
Call LB.KeyPress(37)
Delay 100
Next
Case "冒险级"
For 5
Call LB.KeyPress(37)
Delay 100
Next
For 1
Call LB.KeyPress(39)
Delay 100
Next
Case "勇士级"
For 5
Call LB.KeyPress(37)
Delay 100
Next
For 2
Call LB.KeyPress(39)
Delay 100
Next
Case "王者级"
For 5
Call LB.KeyPress(37)
Delay 100
Next
For 3
Call LB.KeyPress(39)
Delay 100
Next
Case "噩梦级"
For 5
Call LB.KeyPress(37)
Delay 100
Next
For 4
Call LB.KeyPress(39)
Delay 100
Next
End Select
KeyPress "Space", 1
KeyPress "Space", 1
Exit Do
Else
Call LB.KeyPress(38)
Delay 500
End If
Loop
End Function
Function 启动同步
If Form1.CheckBox15.Value = 1 Then
Call 切换到1号
Do
Call LB.FindPic(805,346,1067,586, "Attachment:\同步开始.bmp","000000",0.9,0,intX,intY)
If intX > 0 And intY > 0 Then
Exit Do
Else
KeyDown "Alt", 1
Delay 50
KeyPress "F3", 1
Delay 50
KeyUp "Alt", 1
Delay 100
End If
Loop
End If
End Function
Function 关闭同步
If Form1.CheckBox15.Value = 1 Then
Call 切换到1号
Do
Call LB.FindPic(805,346,1067,586, "Attachment:\同步结束.bmp","000000",0.9,0,intX,intY)
If intX > 0 And intY > 0 Then
Exit Do
Else
KeyDown "Alt", 1
Delay 50
KeyPress "F3", 1
Delay 50
KeyUp "Alt", 1
Delay 100
End If
Loop
End If
End Function
Function 风法BUFF
KeyPress "T", 1
KeyPress "T", 1
End Function
Function 判断特伦斯进图
次数 = 0
Do
Call LB.FindStr(826,0,1066,45, "特伦斯发电站", "ccc1a7-000000", 1.0, intX, intY)
If intX > 0 And intY > 0 Then
Call 启动同步
Call 风法BUFF
Exit Do
Else
Delay 1000
次数 = 次数 + 1
If 次数 >= 60 Then
Call 启动同步
Call LB.KeyDown(37)
Delay 600
Call LB.KeyUp(37)
Delay 300
Call LB.KeyDown(39)
Call 选择特伦斯副本
Exit Do
End If
End If
Loop
End Function
Function 判断特伦斯进图1
Do
Call LB.FindStr(826,0,1066,45, "特伦斯发电站", "ccc1a7-000000", 1.0, intX, intY)
If intX > 0 And intY > 0 Then
Exit Do
End If
Loop
End Function
Function 判断特伦斯进图2
次数 = 0
Do
Call LB.FindStr(1400,436,1535,459, "特伦斯发电站", "ccc1a7-000000", 1.0, intX, intY)
If intX > 0 And intY > 0 Then
Call 切换到1号
Call 启动同步
Call 风法BUFF
Exit Do
Else
Delay 1000
次数 = 次数 + 1
If 次数 >= 60 Then
Call 启动同步
Call LB.KeyDown(37)
Delay 600
Call LB.KeyUp(37)
Delay 300
Call LB.KeyDown(39)
Call 选择特伦斯副本1
Call 选择特伦斯副本2
Exit Do
End If
End If
Loop
End Function
Function 双开组队
If Form1.CheckBox15.Value = 1 Then
KeyPress "Esc", 1
Delay 300
Call 移动单击(747, 127)
Delay 300
Call 关闭同步
Do
Call 创建队伍
Call 加入队伍
Call 同意入队
Call 判断组队成功
If 组队成功 = "真" Then
Exit Do
End If
Call 切换到1号赛利亚
Call 切换到2号赛利亚
Loop
End If
End Function
Function 判断组队成功
Delay 4000
Call LB.FindPic(22,13,144,47, "Attachment:\血条.bmp","000000",0.9,0,intX,intY)
If intX > 0 And intY > 0 Then
Else
组队成功 = "假"
End If
Call LB.FindPic(157,20,274,43, "Attachment:\血条.bmp","000000",0.9,0,intX,intY)
If intX > 0 And intY > 0 Then
组队成功 = "真"
Else
组队成功 = "假"
End If
End Function
Function 自动拉条
次数 = 0
拉条次数 = 0
Do
Call LB.FindPic(0, 0, 1920, 1080, "Attachment:\拉条验证.bmp","000000",0.9,0,intX,intY)
If intX > 0 And intY > 0 Then
Select Case 拉条次数
Case 0
Delay 1000
Call MoveTo(intX - 144, intY + 258)
Delay 1000
LeftDown 1
Delay 500
Call MoveTo(intX - 144 + 170, intY + 258)
LeftUp 1
Delay 2000
Case 1
Delay 1000
Call MoveTo(intX - 144+21, intY + 258)
Delay 1000
LeftDown 1
Delay 500
Call MoveTo(intX - 144 + 170, intY + 258)
LeftUp 1
Delay 2000
Case 3
Delay 1000
Call MoveTo(intX - 144+21+21, intY + 258)
Delay 1000
LeftDown 1
Delay 500
Call MoveTo(intX - 144 + 170, intY + 258)
LeftUp 1
Delay 2000
拉条次数 = 0
End Select
Else
次数 = 次数 + 1
Delay 200
If 次数 >= 10 Then
Exit Do
End If
End If
loop
End Function
Function 同意入队
Call 切换到1号
For Form1.InputBox4.Text
Do
Call LB.FindStr(859,516,924,556, "是", "ddc593-000000", 1.0, intX, intY)
If intX > 0 And intY > 0 Then
Call 移动单击(898, 536)
Delay 1000
Exit Do
End If
Loop
Next
End Function
Function 切换到1号赛利亚
Plugin.Msg.Tips "切换到1号赛利亚"
Call 切换到1号
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Do
Call LB.FindStr(281, 79, 805, 524, "选择角色", "e6c89b-000000", 1.0, intX, intY)
If intX > 0 And intY > 0 Then
Call 移动单击(intX + 10, intY)
Call MoveTo(0, 0)
Delay 2000
Else
KeyPress "Esc", 1
Delay 500
End If
Call LB.FindStr(51,76,828,500,"Lv","d1b994-000000",1.0,intX,intY)
If intX > 0 And intY > 0 Then
Delay 1000
Call 窗口1进入游戏
Exit Do
End If
Loop
End Function
Function 切换到2号赛利亚
If Form1.CheckBox15.Value = 1 Then
Plugin.Msg.Tips "切换到2号赛利亚"
Call 切换到2号
Call LB.KeyUp(38)
Call LB.KeyUp(39)
Call LB.KeyUp(40)
Call LB.KeyUp(37)
Do
Call LB.FindStr(819,559,1328,953, "选择角色", "e6c89b-000000", 1.0, intX, intY)
If intX > 0 And intY > 0 Then
Call 移动单击(intX + 10, intY)
Call MoveTo(0, 0)
Delay 2000
Else
KeyPress "Esc", 1
Delay 800
End If
Call LB.FindStr(577,503,1363,952,"Lv","d1b994-000000",1.0,intX,intY)
If intX > 0 And intY > 0 Then
Delay 1000
Call 窗口2进入游戏
Exit Do
End If
Loop
End If
End Function
Function 加入队伍1
If Form1.CheckBox14.Value = 1 Then
Plugin.Msg.Tips "加入队伍"
Call 切换到1号
KeyPress "Esc", 1
Delay 300
Call 移动单击(747, 127)
Call 切换到1号
Delay 300
KeyPress "]", 1
Delay 300
Do
Call LB.FindStr(670,85,721,114, "gou", "ffae00-000000", 1.0, intX, intY)
If intX > 0 And intY > 0 Then
Exit Do
Else
Call 移动单击(689,98)
Exit Do
End If
Loop
Call 移动单击(923,88)
For 20
KeyPress "BackSpace", 1
Delay 50
Next
Call 移动单击(704,129)
Delay 200
Call 移动单击(626,128)
Delay 200
队伍名 = Form1.InputBox3.Text
SayString 队伍名
Call 移动单击(957,85)
Delay 300
Call 移动单击(750,173)
Delay 300
Call 移动单击(446,234)
Delay 300
End If
End Function
Function 加入队伍
If Form1.CheckBox15.Value = 1 Then
Plugin.Msg.Tips "加入队伍"
Call 切换到2号
KeyPress "Esc", 1
Delay 300
Call 移动单击(1279,561)
Call 切换到2号
Delay 300
KeyPress "]", 1
Delay 300
Do
Call LB.FindStr(1212, 525, 1242, 544, "gou", "ffae00-000000", 1.0, intX, intY)
If intX > 0 And intY > 0 Then
Exit Do
Else
Call 移动单击(1223,533)
Exit Do
End If
Loop
Call 移动单击(1459, 524)
For 20
KeyPress "BackSpace", 1
Delay 50
Next
Call 移动单击(1244,563)
Delay 200
Call 移动单击(1159,564)
Delay 200
队伍名 = Form1.InputBox3.Text
SayString 队伍名
Call 移动单击(1492, 525)
Delay 300
Call 移动单击(1305,604)
Delay 300
Call 移动单击(981,666)
Delay 300
End If
End Function
Function 创建队伍
If Form1.CheckBox15.Value = 1 Then
Plugin.Msg.Tips "创建队伍"
Call 切换到1号
Delay 300
KeyPress "]", 1
Delay 300
Call 移动单击(620,423)
Call 移动单击(682, 166)
For 20
KeyPress "BackSpace", 1
Delay 50
Next
队伍名 = Form1.InputBox3.Text
SayString 队伍名
Call 移动单击(563, 288)
End If
End Function
Function 识别游戏
If Form1.CheckBox14.Value = 1 Then
HwndA = Plugin.Window.Find("地下城与勇士", "地下城与勇士")
If HwndA > 0 Then
Call Plugin.Window.Move(HwndA, 0, 0)
游戏存在 = "真"
Else
游戏存在 = "假"
End If
Exit Function
End If
If Form1.CheckBox15.Value = 1 Then
HwndEx = Plugin.Window.SearchEx(0, "地下城与勇士", 1)
If HwndEx <> "" Then
HwndEx = split(HwndEx, "|")
数组大小 = UBound(HwndEx)
If 数组大小 = 2 Then
游戏存在 = "真"
Else
Exit Function
End If
If HwndEx(0) > 0 Then
窗口1hwnd = HwndEx(0)
Call LB.GetWindowRect(HwndEx(0), x1, y1, x2, y2)
End If
If HwndEx(1) > 0 Then
窗口2hwnd = HwndEx(1)
Call LB.GetWindowRect(HwndEx(1), x3, y3, x4, y4)
End If
If x1 - x3 < 0 Then
Do
If HwndEx(0) > 0 Then
Call Plugin.Window.Move(HwndEx(0),0,0)
Exit Do
End If
Loop
Do
If HwndEx(1) > 0 Then
Call Plugin.Window.Move(HwndEx(1),533,435)
Exit Do
End If
Loop
Else
Do
If HwndEx(0) > 0 Then
Call Plugin.Window.Move(HwndEx(0),533,435)
Exit Do
End If
Loop
Do
If HwndEx(1) > 0 Then
Call Plugin.Window.Move(HwndEx(1),0,0)
Exit Do
End If
Loop
End If
End If
Else
HwndEx = Plugin.Window.Find("地下城与勇士","地下城与勇士")
If HwndEx > 0 Then
游戏存在 = "真"
End If
End If
End Function
Function 窗口1进入游戏
Plugin.Msg.Tips "窗口1进入游戏"
Do
Call LB.FindPic(966,0,1135,47,"Attachment:\指南针.bmp","000000",0.9,0,intX,intY)
If intX > 0 And intY > 0 Then
Delay 2000
KeyPress "Esc", 1
Delay 300
Call 移动单击(747, 127)
Delay 300
Call 移动单击(747, 127)
Exit Do
End If
Call LB.FindStr(51,76,828,500,"Lv","d1b994-000000",1.0,intX,intY)
If intX > 0 And intY > 0 Then
Call 切换到1号
Delay 1000
Call 移动单击(536, 549)
Delay 1000
End If
Loop
End Function
Function 窗口2进入游戏
If Form1.CheckBox15.Value = 1 Then
Do
Call LB.FindPic(1530,420,1627,500,"Attachment:\指南针.bmp","000000",0.9,0,intX,intY)
If intX > 0 And intY > 0 Then
Delay 2000
KeyPress "Esc", 1
Delay 300
Call 移动单击(1279,561)
Delay 300
Call 移动单击(1279,561)
Exit Do
End If
Call LB.FindStr(627,450,1708,1080,"Lv","d1b994-000000",1.0,intX,intY)
If intX > 0 And intY > 0 Then
Call 切换到2号
Delay 1000
Call 移动单击(1067, 982)
Delay 1000
End If
Loop
End If
End Function
Function 注册LB
need_ver = "3.1233"
Set ws = createobject("Wscript.Shell")
ws.run "regsvr32 atl.dll /s"
Set ws = nothing
PutAttachment "c:\Windows_game", "*.*"
PutAttachment ".\Plugin", "RegDll.dll"
Call Plugin.RegDll.Reg("c:\Windows_game\LB.dll")
Set LB = createobject("dm.dmsoft")
ver = LB.Ver()
If ver <> need_ver Then
Set LB = nothing
Set ws = createobject("Wscript.Shell")
ws.run "regsvr32 c:\Windows_game\LB.dll /s"
Set ws = nothing
Delay 1500
Set LB = createobject("dm.dmsoft")
ver = LB.Ver()
If ver <> need_ver Then
MessageBox "插件版本错误,当前使用的版本是:" & ver & ",插件所在目录是:" & dm.GetBasePath()
MessageBox "请关闭程序,重新打开本程序再尝试"
EndScript
End If
End If
Call LB.SetPath("c:\Windows_game")
Call LB.SetDict(0,"LB.txt")
End Function
Function 处理wegame安全验证
次数 = 0
Do
Call LB.FindPic(0, 0, 1920, 1080, "Attachment:\确定1.bmp","000000", 0.75, 0,X,Y)
If X > 0 And Y > 0 Then
Call 移动单击(X+3, Y+3)
Else
次数 = 次数 + 1
Delay 1000
If 次数 >= 5 Then
Goto 下一步处理
End If
End If
Call LB.FindPic(0, 0, 1920, 1080, "Attachment:\输入验证.bmp", "000000", 0.85, 0,X,Y)
If X > 0 And Y > 0 Then
Goto 下一步处理
End If
Loop
Call MoveTo(0, 0)
Exit Function
Rem 下一步处理
次数 = 0
Do
Call LB.FindPic(0, 0, 1920, 1080, "Attachment:\输入验证.bmp","000000", 0.85, 0,X,Y)
If X > 0 And Y > 0 Then
Delay 1000
Call 联众打码(X - 86, Y + 32, X + 53, Y + 92, X - 123, Y + 43)
Call 移动单击(X + 35, Y + 169)
Delay 2000
Else
次数 = 次数 + 1
Delay 500
If 次数 >= 7 Then
Exit Do
End If
End If
Loop
Delay 1000
次数 = 0
Do
Call LB.FindPic(0, 0, 1920, 1080, "Attachment:\确定0.bmp","000000", 0.75, 0,X,Y)
If X > 0 And Y > 0 Then
Delay 1000
Call 移动单击(X+3, Y+3)
Else
次数 = 次数 + 1
Delay 500
If 次数 >= 5 Then
Exit Do
End If
End If
Loop
次数 = 0
Do
Call LB.FindPic(0, 0, 1920, 1080, "Attachment:\确定1.bmp","000000", 0.75, 0,X,Y)
If X > 0 And Y > 0 Then
Delay 1000
Call 移动单击(X+3, Y+3)
Else
次数 = 次数 + 1
Delay 500
If 次数 >= 5 Then
Exit Do
End If
End If
Loop
Call 移动单击(1583, 118)
Call 移动单击(1583, 118)
Call 移动单击(1583, 118)
Call MoveTo(0, 0)
End Function
Function 联众打码(参数x, 参数y, 参数x1, 参数y1, 参数x2, 参数y2)
Call Plugin.Msg.Tips("联众打码")
lzAccount = Form1.InputBox1.Text
lzPsw = Form1.InputBox2.Text
AgentUser = "zhu193773942"
PathCode = "C:\验证码.bmp"
Delay 300
Call LB.Capture(参数x, 参数y, 参数x1, 参数y1, PathCode)
Delay 300
TID = Plugin.FastVerCode.RecYZM_A(PathCode, lzAccount, lzPsw, AgentUser)
TracePrint TID
If Instr(TID, "|") > 0 Then
ArrTmp = Split(TID, "|")
If UBound(ArrTmp) = 2 Then
Answer = ArrTmp(0)
Call 移动单击(参数x2,参数y2)
Delay 1000
For 10
KeyPress "BackSpace", 1
Delay 200
Next
Call Lib.键盘.KeyList(Answer,0,50)
Else
Call 写日志("打码失败,请手动打码")
MsgBox "等待人工打码"
End If
Else
Call 写日志("打码失败,请手动打码")
MsgBox "等待人工打码"
End If
End Function
Function 切换到1号
Call Plugin.Msg.Tips("切换到1号")
For 2
Call 移动单击(1246,248)
Next
End Function
Function 切换到2号
If Form1.CheckBox15.Value = 1 Then
Call Plugin.Msg.Tips("切换到2号")
For 2
Call 移动单击(1803,687)
Next
End If
End Function
Function 启动2号DNF
Call Plugin.Msg.Tips("启动2号DNF")
Select Case 启动方式
Case 0
For 2
FindPic 0, 0, 1920, 1080, "Attachment:\wegame.bmp", 0.8, intX, intY
If intX > 0 And intY > 0 Then
Delay 500
Call MoveTo(intX, intY)
Delay 200
LeftClick 1
Delay 200
LeftClick 1
Delay 600
Call MoveTo(0, 0)
LeftClick 1
Delay 1000
End If
Next
Case 1
RunApp Form1.BrowseBox1.Path
Delay 1000
End Select
Do
wegamehwnd2 = Plugin.Window.Find(0,"WeGame")
If wegamehwnd2 > 0 Then
Exit Do
Else
Select Case 启动方式
Case 0
FindPic 0, 0, 1920, 1080, "Attachment:\wegame.bmp", 0.8, intX, intY
If intX > 0 And intY > 0 Then
Delay 500
Call MoveTo(intX, intY)
Delay 200
LeftClick 1
Delay 200
LeftClick 1
Delay 600
Call MoveTo(0, 0)
LeftClick 1
Delay 1000
End If
Case 1
RunApp Form1.BrowseBox1.Path
Delay 1000
End Select
End If
Loop
Do
FindPic 0, 0, 1920, 1080, "Attachment:\三.bmp", 0.9, intX, intY
If intX > 0 And intY > 0 Then
Delay 600
Call 移动单击(intX, intY)
Delay 2000
Call MoveTo(intX - 44, intY - 92)
Delay 3000
Call 移动单击(intX - 210, intY - 92)
Delay 1500
Exit Do
End If
Loop
Call 移动单击(1583, 117)
Call 移动单击(1583, 117)
End Function
Function 调整1号窗口
Do
dnfhwnd1 = Plugin.Window.Find("地下城与勇士", "地下城与勇士")
If dnfhwnd1 > 0 Then
Delay 15000
窗口1hwnd = dnfhwnd1
Call Plugin.Window.Move(dnfhwnd1,0,0)
Exit Do
End If
Loop
End Function
Function 调整2号窗口
Call Plugin.Msg.Tips("调整2号窗口")
Do
dnfhwnd1 = Plugin.Window.Find("地下城与勇士", "地下城与勇士")
If dnfhwnd1 > 0 Then
Delay 15000
窗口2hwnd = dnfhwnd1
Call Plugin.Window.Move(dnfhwnd1, 533, 435)
Exit Do
End If
Loop
End Function
Function 判断是否登录wegame
wegamehwnd = Plugin.Window.Find(0,"WeGame")
If wegamehwnd > 0 Then
Plugin.Window.Top wegamehwnd, 0
size = Plugin.Window.GetClientRect(wegamehwnd)
size = split(size, "|")
x = abs(size(0) - size(2))
y = abs(size(1) - size(3))
If x > 862 And y > 486 Then
wegame登录 = "真"
Else
wegame登录 = "假"
End If
Else
wegame登录 = "假"
End If
Select Case 启动方式
Case 0
Delay 500
Call MoveTo(40,967)
Delay 200
LeftClick 1
Delay 200
LeftClick 1
Delay 600
Case 1
Call 清理进程
Delay 2000
Call Lib.API.运行程序(Form1.BrowseBox1.Path)
Delay 1000
End Select
End Function
Function 启动wegame
Call 判断是否登录wegame
If wegame登录 = "真" Then
次数 = 0
Do
Delay 500
wegamehwnd = Plugin.Window.Find(0,"WeGame")
If wegamehwnd > 0 Then
FindPic 0, 0, 1920, 1080, "Attachment:\房.bmp", 0.8, intX, intY
If intX > 0 And intY > 0 Then
Plugin.Window.Top wegamehwnd, 0
Delay 600
Call 移动单击(intX + 10, intY)
Call 移动单击(intX + 10, intY)
End If
End If
FindPic 0, 0, 1920, 1080, "Attachment:\地下城与勇士.bmp", 0.8, intX, intY
If intX > 0 And intY > 0 Then
Delay 600
Call 移动单击(intX + 10, intY)
Call 移动单击(intX + 10, intY)
End If
FindPic 0, 0, 1920, 1080, "Attachment:\启动.bmp", 0.8, intX, intY
If intX > 0 And intY > 0 Then
Delay 600
Call MoveTo(intX+10, intY)
Delay 600
Call 移动单击(intX + 10, intY)
Call 移动单击(intX + 10, intY)
Else
次数 = 次数 + 1
If 次数 > 15 Then
Delay 100
Exit Do
End If
End If
Loop
ElseIf wegame登录 = "假" Then
Do
Delay 500
wegamehwnd = Plugin.Window.Find(0,"WeGame")
If wegamehwnd > 0 Then
Plugin.Window.Restore (wegamehwnd)
Plugin.Window.Top wegamehwnd, 0
FindPic 0, 0, 1920, 1080, "Attachment:\登录.bmp", 0.8, intX, intY
If intX > 0 And intY > 0 Then
Delay 600
Call 移动单击(intX, intY)
Call 自动拉条
Exit Do
End If
Else
Select Case 启动方式
Case 0
Delay 500
Call MoveTo(40,967)
Delay 200
LeftClick 1
Delay 200
LeftClick 1
Delay 600
Case 1
Call 清理进程
Delay 2000
Call Lib.API.运行程序(Form1.BrowseBox1.Path)
Delay 1000
End Select
End If
Loop
次数 = 0
Do
Delay 500
wegamehwnd = Plugin.Window.Find(0,"WeGame")
If wegamehwnd > 0 Then
FindPic 0, 0, 1920, 1080, "Attachment:\房.bmp", 0.8, intX, intY
If intX > 0 And intY > 0 Then
Plugin.Window.Top wegamehwnd, 0
Delay 1000
Call 移动单击(intX + 10, intY)
Call 移动单击(intX + 10, intY)
End If
End If
FindPic 0, 0, 1920, 1080, "Attachment:\地下城与勇士.bmp", 0.8, intX, intY
If intX > 0 And intY > 0 Then
Delay 600
Call 移动单击(intX + 10, intY)
Call 移动单击(intX+10, intY)
End If
FindPic 0, 0, 1920, 1080, "Attachment:\启动.bmp", 0.8, intX, intY
If intX > 0 And intY > 0 Then
Delay 600
Call MoveTo(intX+10, intY)
Delay 600
Call 移动单击(intX + 10, intY)
Call 移动单击(intX + 10, intY)
Plugin.Window.Top wegamehwnd, 1
Else
次数 = 次数 + 1
If 次数 > 20 Then
Delay 100
Exit Do
End If
End If
Loop
End If
End Function
Function 移动单击(x, y)
Call MoveTo(x, y)
Delay 100
LeftClick 1
Delay 100
Call MoveTo(0, 0)
End Function
Function 移动按下(x, y,time)
Call MoveTo(x, y)
Delay 200
LeftDown 1
Delay time
LeftUp 1
End Function
Function 清理进程
For 3
Call Lib.系统.结束进程("DNFchina.exe")
Call Lib.系统.结束进程("DNFchinaTest.exe")
Call Lib.系统.结束进程("Client.exe")
Call Lib.系统.结束进程("DNF.exe")
Call Lib.系统.结束进程("AdvertDialog.exe")
Call Lib.系统.结束进程("AdvertTips.exe")
Call Lib.系统.结束进程("WerFault.exe")
Call Lib.系统.结束进程("QQDL.exe")
Call Lib.系统.结束进程("ExceptionReport.exe")
Call Lib.系统.结束进程("QQLogin.exe")
Call Lib.系统.结束进程("Repair.exe")
Call Lib.系统.结束进程("Tencentdl.exe")
Call Lib.系统.结束进程("TASLogin.exe")
Call Lib.系统.结束进程("bugreport.exe")
Call Lib.系统.结束进程("DirverInject.exe")
Call Lib.系统.结束进程("TenioDL.exe")
Call Lib.系统.结束进程("iexplore.exe")
Call Lib.系统.结束进程("DNF.exe")
Call Lib.系统.结束进程("GameLoader.exe")
Call Lib.系统.结束进程("rundll32.exe")
Call Lib.系统.结束进程("tgp_gamead.exe")
Call Lib.系统.结束进程("tgp_daemon.exe")
Next
End Function
Event Form1.CheckBox1.Click
Form1.CheckBox2.Value = 0
Form1.CheckBox3.Value = 0
Form1.CheckBox4.Value = 0
Form1.CheckBox5.Value = 0
End Event
Event Form1.CheckBox2.Click
Form1.CheckBox1.Value = 0
Form1.CheckBox3.Value = 0
Form1.CheckBox4.Value = 0
Form1.CheckBox5.Value = 0
End Event
Event Form1.CheckBox3.Click
Form1.CheckBox1.Value = 0
Form1.CheckBox2.Value = 0
Form1.CheckBox4.Value = 0
Form1.CheckBox5.Value = 0
End Event
Event Form1.CheckBox4.Click
Form1.CheckBox1.Value = 0
Form1.CheckBox2.Value = 0
Form1.CheckBox3.Value = 0
Form1.CheckBox5.Value = 0
End Event
Event Form1.CheckBox5.Click
Form1.CheckBox1.Value = 0
Form1.CheckBox2.Value = 0
Form1.CheckBox3.Value = 0
Form1.CheckBox4.Value = 0
End Event
Event Form1.Button1.Click
Call 注册LB
If Form1.CheckBox14.Value = 1 Then
HwndA = Plugin.Window.Find("地下城与勇士", "地下城与勇士")
If HwndA > 0 Then
Call Plugin.Window.Move(HwndA,0,0)
End If
Else
HwndEx = Plugin.Window.SearchEx(0, "地下城与勇士", 1)
If HwndEx <> "" Then
HwndEx = split(HwndEx, "|")
数组大小 = UBound(HwndEx)
If 数组大小 = 2 Then
游戏存在 = "真"
Else
EndScript
End If
If HwndEx(0) > 0 Then
Call LB.GetWindowRect(HwndEx(0), x1, y1, x2, y2)
End If
If HwndEx(1) > 0 Then
Call LB.GetWindowRect(HwndEx(1), x3, y3, x4, y4)
End If
If x1 - x3 < 0 Then
Do
If HwndEx(0) > 0 Then
Call Plugin.Window.Move(HwndEx(0),0,0)
Exit Do
End If
Loop
Do
If HwndEx(1) > 0 Then
Call Plugin.Window.Move(HwndEx(1),533, 435)
Exit Do
End If
Loop
Else
Do
If HwndEx(0) > 0 Then
Call Plugin.Window.Move(HwndEx(0),533, 435)
Exit Do
End If
Loop
Do
If HwndEx(1) > 0 Then
Call Plugin.Window.Move(HwndEx(1),0,0)
Exit Do
End If
Loop
End If
End If
End If
End Event