按键精灵 脚本_按键精灵脚本

Call 注册大漠

Dimenv 环境变量句柄

Dim cpuid : cpuid = Plugin.Angel_sys.GetCpuId()'唯一ID

//环境变量,线程里面要用到.要定义为环境变量

ID句柄字符串 = ""

//****************************** 检测按键,动作 ***************************************

do

Call Plugin.Msg.Tips("按Insert键绑定游戏,按Delete键解绑游戏")

Key = WaitKey()

// 等待用户按任何键

// 下面是Insert键,绑定鼠标指向的窗口的线程

If Key = 45 Then

环境变量句柄 = dm.GetMousePointWindow()

Form1.InputBox1.Text = Form1.InputBox1.Text &"已开启游戏："& 环境变量句柄&vbcrlf

// 鼠标指向的窗口

// 先判断,这个句柄是否在绑定.如果绑定过.不再重复绑定这个窗口

位置 = Instr(ID句柄字符串, 环境变量句柄)

//Instr函数,作用是:返回"环境变量句柄"在 "ID句柄字符串"中 第一次出现的位置。没出现就是位置=0

// 如果位置=0 就绑定,预防重复绑定

TracePrint 位置

TracePrint ID句柄字符串

If 位置 = 0 Then

//

线程ID=BeginThread(多线程)

// 多线程

// 按一次Home键,就绑定一个窗口多开

句柄 = CStr(环境变量句柄)

ID = CStr(线程ID)

// CStr函数是把整数转换成字符串类型

ID句柄字符串 = 句柄 + "|" + ID + "|" + ID句柄字符串

//

Call Plugin.Msg.Tips("已绑定,一个游戏")

//

Else

Call Plugin.Msg.Tips("游戏已经绑定过了,请不要重复绑定")

Delay 2500

End If

//

//

//########################################################

// 下面是按Delete键,停止鼠标指向的窗口的线程

ElseIf Key = 46 Then

鼠标指向的句柄 = dm.GetMousePointWindow()

Form1.InputBox1.Text =Replace(Form1.InputBox1.Text,"已开启游戏："&鼠标指向的句柄,"已删除")

// TracePrint ID句柄字符串

位置 = Instr(ID句柄字符串, 鼠标指向的句柄)

//Instr函数,作用是:返回"环境变量句柄"在 "ID句柄字符串"中 第一次出现的位置。没出现就是位置=0

// 如果位置=0 证明这个窗口当前没有绑定,预防没绑定就解绑

TracePrint 位置

TracePrint ID句柄字符串

If 位置 > 0 Then

数组 = Split(ID句柄字符串, 鼠标指向的句柄)

ID = 数组(1)

数组2 = Split(ID, "|")

ID2 = 数组2(1)

// TracePrint ID2

StopThread ID2

// @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

// 下面是把停止的线程的ID和句柄,从ID句柄字符串去掉

TracePrint ID句柄字符串

删除数组 = Split(ID句柄字符串, 鼠标指向的句柄)

左边 = 删除数组(0)

ID3= ID2+"|"

删除数组2 = Split(ID句柄字符串, ID3)

右边 = 删除数组2(1)

ID句柄字符串 = 左边 + 右边

TracePrint ID句柄字符串

//Form1.InputBox1.Text = Form1.InputBox1.Text &"已开启游戏："&hwnd&vbcrlf

//

// @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

Call Plugin.Msg.Tips("已解绑,一个游戏")

Else

Call Plugin.Msg.Tips("游戏未绑定,无需解绑")

Delay 2500

End If

End If

Delay 1500

// 适当延迟,避免连按键

Call Plugin.Msg.Tips("")

Loop

//注册大漠*****************************************//

Sub 注册大漠

need_ver = "3.1233"

PutAttachment "","*.*"

PutAttachment ".\Plugin" ,"RegDll.dll"

Call Plugin.RegDll.Reg("dm.dll")

set dm = createobject("dm.dmsoft")

ver = dm.Ver()

if ver <> need_ver then

set dm = nothing

set ws=createobject("Wscript.Shell")

ws.run "regsvr32 dm.dll /s"

set ws=nothing

Delay 1200

set dm = createobject("dm.dmsoft")

ver = dm.Ver()

if ver <> need_ver then

messagebox "插件版本错误,当前使用的版本是:"&ver&",插件所在目录是:"&dm.GetBasePath()

messagebox "请关闭程序,重新打开本程序再尝试"

endscript

end if

end if

//上面是注册大漠

End Sub

//****************************** 多线程程序 ***************************************

Sub 多线程

set dm = createobject("dm.dmsoft")

Call 绑定()

dm_ret = dm.SetPath("./")

//下面是你要编写的程序

dm_ret = dm.SetDict(0, "Attachment:\newziku.txt")

//移动

//Call 地下城2("普通", "暴风女神号", 0, 0)

// Call 检测超时()

// Call 检测超时()

//移动

If Form1.OptionBox3.Value = 1 Then

//安卓

If Form1.CheckBox2.Value = 1 Then

//执行小号升级

TracePrint "苹果小号升级"

Call taskpingguo()

Else

TracePrint "执行苹果任务"

//做日常

Call 运行模块()

End If

ElseIf Form1.OptionBox4.Value = 1 Then

//苹果

If Form1.CheckBox2.Value = 1 Then

//执行小号升级

TracePrint "苹果小号升级"

Call taskpingguo()

Else

TracePrint "执行苹果任务"

//做日常

Call 运行模块()

End If

End If

End Sub

Function taskpingguo()

//做任务函数

Rem jixu

TracePrint "点任务"

dm.MoveTo 50,114-36

Call 检测超时()

dm.LeftClick

Delay 100

dm.LeftClick

TracePrint "点选任务"

dm.MoveTo 617,332-36 //对话

Call 检测超时()

dm.LeftClick

dm.MoveTo 617,305-36 //对话

Call 检测超时()

dm.LeftClick

dm.MoveTo 617,270-36 //对话

Call 检测超时()

dm.LeftClick

TracePrint "点选任务结束"

Delay 8000

TracePrint "点对话"

dm.MoveTo 503,414-36 //对话

Call 检测超时()

dm.LeftClick

TracePrint "点工具"

dm.MoveTo 480,240-36 //对话

Call 检测超时()

dm.LeftClick

Delay 8000

//------------------

TracePrint "弹出升级提示关闭"

dm.MoveTo 518,141-36 //对话

Call 检测超时()

dm.LeftClick

TracePrint "弹出关闭界面"

dm.MoveTo 595,119-36 //对话

Call 检测超时()

dm.LeftClick

TracePrint "点复活"

dm.MoveTo 284,263-36 //对话

Call 检测超时()

dm.LeftClick

//-----------------

TracePrint "离开任务"

dm.MoveTo 295,228-36 //对话

Call 检测超时()

dm.LeftClick

TracePrint "炮台任务"

dm.MoveTo 643,372-36

Call 检测超时()

dm.LeftClick

TracePrint "点鞋子"

dm.MoveTo 409,357-36

Call 检测超时()

dm.LeftClick

Goto jixu

// Rem jieshu

TracePrint "对话结束"

End Function

Function taskanzhuo()

//做任务函数

Rem jixu

TracePrint "点任务"

dm.MoveTo 52,135-36

Call 检测超时()

dm.LeftClick

TracePrint "点选任务"

dm.MoveTo 620,313-36 //对话

Call 检测超时()

dm.LeftClick

TracePrint "点选任务结束"

Delay 8000

TracePrint "点对话"

dm.MoveTo 503,414-36 //对话

Call 检测超时()

dm.LeftClick

TracePrint "点工具"

dm.MoveTo 433,214-36 //对话

Call 检测超时()

dm.LeftClick

Delay 8000

//------------------

TracePrint "弹出升级提示关闭"

dm.MoveTo 518,141-36 //对话

Call 检测超时()

dm.LeftClick

Delay 500

dm_ret = dm.FindPic(0,0,800,600,"anzhuoguanbi.bmp","000000",0.8,0,intX,intY)

// dm_ret = dm.FindStr(0,0,800,600,"问好","f6f0a3-8f8258",1.0,intX,intY)

If intX >= 0 and intY >= 0 Then

TracePrint "弹出关闭界面"

dm.MoveTo 636,85-36 //对话

Call 检测超时()

dm.LeftClick

End If

TracePrint "点复活"

dm.MoveTo 284,263-36 //对话

Call 检测超时()

dm.LeftClick

//-----------------

TracePrint "离开任务"

dm.MoveTo 295,228-36 //对话

Call 检测超时()

dm.LeftClick

TracePrint "炮台任务"

dm.MoveTo 643,372-36

Call 检测超时()

dm.LeftClick

TracePrint "点鞋子"

dm.MoveTo 432,350-36

Call 检测超时()

dm.LeftClick

Goto jixu

// Rem jieshu

TracePrint "对话结束"

End Function

Sub 绑定()

hwnd = 环境变量句柄

// dm_ret = dm.BindWindow(hwnd, "normal", "normal", "normal", 0)//qiantai

own_hwnd = dm.GetWindow(hwnd,0)//获得父窗口

dm_ret = dm.BindWindow( hwnd, "gdi", "windows3", "windows",1)//houtai

If dm_ret=0 Then

//判断上面是否获取到句柄

MessageBox "错误;请把鼠标移到游戏窗口内，再启动脚本"

End If

// Delay 500

// dm_ret = dm.SetWindowSize(hwnd, 710, 400)

// Delay 500

// dm_ret = dm.SetWindowSize(own_hwnd, 749 ,400)

// dm.DownCpu 50

dm_ret = dm.SetPath("./")

dm_ret = dm.SetDict(0,"Attachment:\newziku.txt")

//设置全局路径,设置了此路径后,所有接口调用中,相关的文件都相对于此路径. 比如图片,字库等.< /SPAN >

//设定附件的路径,以后找图命令里面就没必要添加路径了

End Sub

Function 运行模块()

Call 答题2()//5分

Call 活动2()//10分

If Form1.InputBox5.Text = "0" Then

ElseIf Form1.InputBox5.Text="1" Then

//满足条件，执行下面的脚本

Call 角斗2()

ElseIf Form1.InputBox5.Text="2" Then

Call 角斗2()

Call 角斗2()

ElseIf Form1.InputBox5.Text="3" Then

Call 角斗2()

Call 角斗2()

Call 角斗2()

Else

End If

//通过判断表达式的取值，来执行后面的动作或控制

If Form1.OptionBox1.Value = 1 Then //选择了普通5次

If Form1.ComboBox1.ListIndex = 0 Then

If Form1.InputBox4.Text = "0" Then

ElseIf Form1.InputBox4.Text="1" Then

//满足条件，执行下面的脚本

Call 地下城2("普通", "暴风女神号", 0, 0)

ElseIf Form1.InputBox4.Text="2" Then

Call 地下城2("普通", "暴风女神号", 0, 0)

Call 地下城2("普通", "暴风女神号", 0, 0)

ElseIf Form1.InputBox4.Text="3" Then

Call 地下城2("普通", "暴风女神号", 0, 0)

Call 地下城2("普通", "暴风女神号", 0, 0)

Call 地下城2("普通", "暴风女神号", 0, 0)

ElseIf Form1.InputBox4.Text="4" Then

Call 地下城2("普通", "暴风女神号", 0, 0)

Call 地下城2("普通", "暴风女神号", 0, 0)

Call 地下城2("普通", "暴风女神号", 0, 0)

Call 地下城2("普通", "暴风女神号", 0, 0)

ElseIf Form1.InputBox4.Text="5" Then

Call 地下城2("普通", "暴风女神号", 0, 0)

Call 地下城2("普通", "暴风女神号", 0, 0)

Call 地下城2("普通", "暴风女神号", 0, 0)

Call 地下城2("普通", "暴风女神号", 0, 0)

Call 地下城2("普通", "暴风女神号", 0, 0)

Else

End If

// Call 地下城2("普通", "暴风女神号", 0, 0)

// Call 地下城2("普通", "暴风女神号", 0, 0)

// Call 地下城2("普通", "暴风女神号", 0, 0)

// Call 地下城2("普通", "暴风女神号", 0, 0)

// Call 地下城2("普通", "暴风女神号", 0, 0)

End If

If Form1.ComboBox1.ListIndex = 1 Then

If Form1.InputBox4.Text = "0" Then

ElseIf Form1.InputBox4.Text="1" Then

//满足条件，执行下面的脚本

Call 地下城2("普通", "黄昏修道院", 0, 0)

ElseIf Form1.InputBox4.Text="2" Then

Call 地下城2("普通", "黄昏修道院", 0, 0)

Call 地下城2("普通", "黄昏修道院", 0, 0)

ElseIf Form1.InputBox4.Text="3" Then

Call 地下城2("普通", "黄昏修道院", 0, 0)

Call 地下城2("普通", "黄昏修道院", 0, 0)

Call 地下城2("普通", "黄昏修道院", 0, 0)

ElseIf Form1.InputBox4.Text="4" Then

Call 地下城2("普通", "黄昏修道院", 0, 0)

Call 地下城2("普通", "黄昏修道院", 0, 0)

Call 地下城2("普通", "黄昏修道院", 0, 0)

Call 地下城2("普通", "黄昏修道院", 0, 0)

ElseIf Form1.InputBox4.Text="5" Then

Call 地下城2("普通", "黄昏修道院", 0, 0)

Call 地下城2("普通", "黄昏修道院", 0, 0)

Call 地下城2("普通", "黄昏修道院", 0, 0)

Call 地下城2("普通", "黄昏修道院", 0, 0)

Call 地下城2("普通", "黄昏修道院", 0, 0)

Else

End If

// Call 地下城2("普通", "黄昏修道院", 0, 0)

// Call 地下城2("普通", "黄昏修道院", 0, 0)

// Call 地下城2("普通", "黄昏修道院", 0, 0)

// Call 地下城2("普通", "黄昏修道院", 0, 0)

// Call 地下城2("普通", "黄昏修道院", 0, 0)

End If

If Form1.ComboBox1.ListIndex = 2 Then

If Form1.InputBox4.Text = "0" Then

ElseIf Form1.InputBox4.Text="1" Then

//满足条件，执行下面的脚本

Call 地下城2("普通", "恶灵古堡", 0, 0)

ElseIf Form1.InputBox4.Text="2" Then

Call 地下城2("普通", "恶灵古堡", 0, 0)

Call 地下城2("普通", "恶灵古堡", 0, 0)

ElseIf Form1.InputBox4.Text="3" Then

Call 地下城2("普通", "恶灵古堡", 0, 0)

Call 地下城2("普通", "恶灵古堡", 0, 0)

Call 地下城2("普通", "恶灵古堡", 0, 0)

ElseIf Form1.InputBox4.Text="4" Then

Call 地下城2("普通", "恶灵古堡", 0, 0)

Call 地下城2("普通", "恶灵古堡", 0, 0)

Call 地下城2("普通", "恶灵古堡", 0, 0)

Call 地下城2("普通", "恶灵古堡", 0, 0)

ElseIf Form1.InputBox4.Text="5" Then

Call 地下城2("普通", "恶灵古堡", 0, 0)

Call 地下城2("普通", "恶灵古堡", 0, 0)

Call 地下城2("普通", "恶灵古堡", 0, 0)

Call 地下城2("普通", "恶灵古堡", 0, 0)

Call 地下城2("普通", "恶灵古堡", 0, 0)

Else

End If

// Call 地下城2("普通", "恶灵古堡", 0, 0)

// Call 地下城2("普通", "恶灵古堡", 0, 0)

// Call 地下城2("普通", "恶灵古堡", 0, 0)

// Call 地下城2("普通", "恶灵古堡", 0, 0)

// Call 地下城2("普通", "恶灵古堡", 0, 0)

End If

If Form1.ComboBox1.ListIndex = 3 Then

If Form1.InputBox4.Text = "0" Then

ElseIf Form1.InputBox4.Text="1" Then

//满足条件，执行下面的脚本

Call 地下城2("普通", "远古熔炉", 0, 0)

ElseIf Form1.InputBox4.Text="2" Then

Call 地下城2("普通", "远古熔炉", 0, 0)

Call 地下城2("普通", "远古熔炉", 0, 0)

ElseIf Form1.InputBox4.Text="3" Then

Call 地下城2("普通", "远古熔炉", 0, 0)

Call 地下城2("普通", "远古熔炉", 0, 0)

Call 地下城2("普通", "远古熔炉", 0, 0)

ElseIf Form1.InputBox4.Text="4" Then

Call 地下城2("普通", "远古熔炉", 0, 0)

Call 地下城2("普通", "远古熔炉", 0, 0)

Call 地下城2("普通", "远古熔炉", 0, 0)

Call 地下城2("普通", "远古熔炉", 0, 0)

ElseIf Form1.InputBox4.Text="5" Then

Call 地下城2("普通", "远古熔炉", 0, 0)

Call 地下城2("普通", "远古熔炉", 0, 0)

Call 地下城2("普通", "远古熔炉", 0, 0)

Call 地下城2("普通", "远古熔炉", 0, 0)

Call 地下城2("普通", "远古熔炉", 0, 0)

Else

End If

//Call 地下城2("普通", "远古熔炉", 0, 0)

// Call 地下城2("普通", "远古熔炉", 0, 0)

// Call 地下城2("普通", "远古熔炉", 0, 0)

// Call 地下城2("普通", "远古熔炉", 0, 0)

// Call 地下城2("普通", "远古熔炉", 0, 0)

End If

If Form1.ComboBox1.ListIndex = 4 Then

If Form1.InputBox4.Text = "0" Then

ElseIf Form1.InputBox4.Text="1" Then

//满足条件，执行下面的脚本

Call 地下城2("普通", "红石城堡", 0, 0)

ElseIf Form1.InputBox4.Text="2" Then

Call 地下城2("普通", "红石城堡", 0, 0)

Call 地下城2("普通", "红石城堡", 0, 0)

ElseIf Form1.InputBox4.Text="3" Then

Call 地下城2("普通", "红石城堡", 0, 0)

Call 地下城2("普通", "红石城堡", 0, 0)

Call 地下城2("普通", "红石城堡", 0, 0)

ElseIf Form1.InputBox4.Text="4" Then

Call 地下城2("普通", "红石城堡", 0, 0)

Call 地下城2("普通", "红石城堡", 0, 0)

Call 地下城2("普通", "红石城堡", 0, 0)

Call 地下城2("普通", "红石城堡", 0, 0)

ElseIf Form1.InputBox4.Text="5" Then

Call 地下城2("普通", "红石城堡", 0, 0)

Call 地下城2("普通", "红石城堡", 0, 0)

Call 地下城2("普通", "红石城堡", 0, 0)

Call 地下城2("普通", "红石城堡", 0, 0)

Call 地下城2("普通", "红石城堡", 0, 0)

Else

End If

//Call 地下城2("普通", "红石城堡", 0, 0)

// Call 地下城2("普通", "红石城堡", 0, 0)

// Call 地下城2("普通", "红石城堡", 0, 0)

// Call 地下城2("普通", "红石城堡", 0, 0)

// Call 地下城2("普通", "红石城堡", 0, 0)

End If

If Form1.ComboBox1.ListIndex = 5 Then

If Form1.InputBox4.Text = "0" Then

ElseIf Form1.InputBox4.Text="1" Then

//满足条件，执行下面的脚本

Call 地下城2("普通", "钢铁监狱", 0, 0)

ElseIf Form1.InputBox4.Text="2" Then

Call 地下城2("普通", "钢铁监狱", 0, 0)

Call 地下城2("普通", "钢铁监狱", 0, 0)

ElseIf Form1.InputBox4.Text="3" Then

Call 地下城2("普通", "钢铁监狱", 0, 0)

Call 地下城2("普通", "钢铁监狱", 0, 0)

Call 地下城2("普通", "钢铁监狱", 0, 0)

ElseIf Form1.InputBox4.Text="4" Then

Call 地下城2("普通", "钢铁监狱", 0, 0)

Call 地下城2("普通", "钢铁监狱", 0, 0)

Call 地下城2("普通", "钢铁监狱", 0, 0)

Call 地下城2("普通", "钢铁监狱", 0, 0)

ElseIf Form1.InputBox4.Text="5" Then

Call 地下城2("普通", "钢铁监狱", 0, 0)

Call 地下城2("普通", "钢铁监狱", 0, 0)

Call 地下城2("普通", "钢铁监狱", 0, 0)

Call 地下城2("普通", "钢铁监狱", 0, 0)

Call 地下城2("普通", "钢铁监狱", 0, 0)

Else

End If

// Call 地下城2("普通", "钢铁监狱", 0, 0)

// Call 地下城2("普通", "钢铁监狱", 0, 0)

// Call 地下城2("普通", "钢铁监狱", 0, 0)

// Call 地下城2("普通", "钢铁监狱", 0, 0)

// Call 地下城2("普通", "钢铁监狱", 0, 0)

End If

End If

If Form1.OptionBox2.Value = 1 Then//选择了冒险5次

If Form1.ComboBox2.ListIndex = 0 Then

If Form1.InputBox4.Text = "0" Then

ElseIf Form1.InputBox4.Text="1" Then

//满足条件，执行下面的脚本

Call 地下城2("冒险", "暴风女神号", 0, 0)

ElseIf Form1.InputBox4.Text="2" Then

Call 地下城2("冒险", "暴风女神号", 0, 0)

Call 地下城2("冒险", "暴风女神号", 0, 0)

ElseIf Form1.InputBox4.Text="3" Then

Call 地下城2("冒险", "暴风女神号", 0, 0)

Call 地下城2("冒险", "暴风女神号", 0, 0)

Call 地下城2("冒险", "暴风女神号", 0, 0)

ElseIf Form1.InputBox4.Text="4" Then

Call 地下城2("冒险", "暴风女神号", 0, 0)

Call 地下城2("冒险", "暴风女神号", 0, 0)

Call 地下城2("冒险", "暴风女神号", 0, 0)

Call 地下城2("冒险", "暴风女神号", 0, 0)

ElseIf Form1.InputBox4.Text="5" Then

Call 地下城2("冒险", "暴风女神号", 0, 0)

Call 地下城2("冒险", "暴风女神号", 0, 0)

Call 地下城2("冒险", "暴风女神号", 0, 0)

Call 地下城2("冒险", "暴风女神号", 0, 0)

Call 地下城2("冒险", "暴风女神号", 0, 0)

Else

End If

// Call 地下城2("冒险", "暴风女神号", 0, 0)

// Call 地下城2("冒险", "暴风女神号", 0, 0)

// Call 地下城2("冒险", "暴风女神号", 0, 0)

// Call 地下城2("冒险", "暴风女神号", 0, 0)

// Call 地下城2("冒险", "暴风女神号", 0, 0)

End If

If Form1.ComboBox2.ListIndex = 1 Then

If Form1.InputBox4.Text = "0" Then

ElseIf Form1.InputBox4.Text="1" Then

//满足条件，执行下面的脚本

Call 地下城2("冒险", "黄昏修道院", 0, 0)

ElseIf Form1.InputBox4.Text="2" Then

Call 地下城2("冒险", "黄昏修道院", 0, 0)

Call 地下城2("冒险", "黄昏修道院", 0, 0)

ElseIf Form1.InputBox4.Text="3" Then

Call 地下城2("冒险", "黄昏修道院", 0, 0)

Call 地下城2("冒险", "黄昏修道院", 0, 0)

Call 地下城2("冒险", "黄昏修道院", 0, 0)

ElseIf Form1.InputBox4.Text="4" Then

Call 地下城2("冒险", "黄昏修道院", 0, 0)

Call 地下城2("冒险", "黄昏修道院", 0, 0)

Call 地下城2("冒险", "黄昏修道院", 0, 0)

Call 地下城2("冒险", "黄昏修道院", 0, 0)

ElseIf Form1.InputBox4.Text="5" Then

Call 地下城2("冒险", "黄昏修道院", 0, 0)

Call 地下城2("冒险", "黄昏修道院", 0, 0)

Call 地下城2("冒险", "黄昏修道院", 0, 0)

Call 地下城2("冒险", "黄昏修道院", 0, 0)

Call 地下城2("冒险", "黄昏修道院", 0, 0)

Else

End If

// Call 地下城2("冒险", "黄昏修道院", 0, 0)

// Call 地下城2("冒险", "黄昏修道院", 0, 0)

// Call 地下城2("冒险", "黄昏修道院", 0, 0)

// Call 地下城2("冒险", "黄昏修道院", 0, 0)

// Call 地下城2("冒险", "黄昏修道院", 0, 0)

End If

If Form1.ComboBox2.ListIndex = 2 Then

If Form1.InputBox4.Text = "0" Then

ElseIf Form1.InputBox4.Text="1" Then

//满足条件，执行下面的脚本

Call 地下城2("冒险", "恶灵古堡", 0, 0)

ElseIf Form1.InputBox4.Text="2" Then

Call 地下城2("冒险", "恶灵古堡", 0, 0)

Call 地下城2("冒险", "恶灵古堡", 0, 0)

ElseIf Form1.InputBox4.Text="3" Then

Call 地下城2("冒险", "恶灵古堡", 0, 0)

Call 地下城2("冒险", "恶灵古堡", 0, 0)

Call 地下城2("冒险", "恶灵古堡", 0, 0)

ElseIf Form1.InputBox4.Text="4" Then

Call 地下城2("冒险", "恶灵古堡", 0, 0)

Call 地下城2("冒险", "恶灵古堡", 0, 0)

Call 地下城2("冒险", "恶灵古堡", 0, 0)

Call 地下城2("冒险", "恶灵古堡", 0, 0)

ElseIf Form1.InputBox4.Text="5" Then

Call 地下城2("冒险", "恶灵古堡", 0, 0)

Call 地下城2("冒险", "恶灵古堡", 0, 0)

Call 地下城2("冒险", "恶灵古堡", 0, 0)

Call 地下城2("冒险", "恶灵古堡", 0, 0)

Call 地下城2("冒险", "恶灵古堡", 0, 0)

Else

End If

// Call 地下城2("冒险", "恶灵古堡", 0, 0)

// Call 地下城2("冒险", "恶灵古堡", 0, 0)

// Call 地下城2("冒险", "恶灵古堡", 0, 0)

// Call 地下城2("冒险", "恶灵古堡", 0, 0)

// Call 地下城2("冒险", "恶灵古堡", 0, 0)

End If

If Form1.ComboBox2.ListIndex = 3 Then

If Form1.InputBox4.Text = "0" Then

ElseIf Form1.InputBox4.Text="1" Then

//满足条件，执行下面的脚本

Call 地下城2("冒险", "远古熔炉", 0, 0)

ElseIf Form1.InputBox4.Text="2" Then

Call 地下城2("冒险", "远古熔炉", 0, 0)

Call 地下城2("冒险", "远古熔炉", 0, 0)

ElseIf Form1.InputBox4.Text="3" Then

Call 地下城2("冒险", "远古熔炉", 0, 0)

Call 地下城2("冒险", "远古熔炉", 0, 0)

Call 地下城2("冒险", "远古熔炉", 0, 0)

ElseIf Form1.InputBox4.Text="4" Then

Call 地下城2("冒险", "远古熔炉", 0, 0)

Call 地下城2("冒险", "远古熔炉", 0, 0)

Call 地下城2("冒险", "远古熔炉", 0, 0)

Call 地下城2("冒险", "远古熔炉", 0, 0)

ElseIf Form1.InputBox4.Text="5" Then

Call 地下城2("冒险", "远古熔炉", 0, 0)

Call 地下城2("冒险", "远古熔炉", 0, 0)

Call 地下城2("冒险", "远古熔炉", 0, 0)

Call 地下城2("冒险", "远古熔炉", 0, 0)

Call 地下城2("冒险", "远古熔炉", 0, 0)

Else

End If

// Call 地下城2("冒险", "远古熔炉", 0, 0)

// Call 地下城2("冒险", "远古熔炉", 0, 0)

// Call 地下城2("冒险", "远古熔炉", 0, 0)

// Call 地下城2("冒险", "远古熔炉", 0, 0)

// Call 地下城2("冒险", "远古熔炉", 0, 0)

End If

If Form1.ComboBox2.ListIndex = 4 Then

If Form1.InputBox4.Text = "0" Then

ElseIf Form1.InputBox4.Text="1" Then

//满足条件，执行下面的脚本

Call 地下城2("冒险", "红石城堡", 0, 0)

ElseIf Form1.InputBox4.Text="2" Then

Call 地下城2("冒险", "红石城堡", 0, 0)

Call 地下城2("冒险", "红石城堡", 0, 0)

ElseIf Form1.InputBox4.Text="3" Then

Call 地下城2("冒险", "红石城堡", 0, 0)

Call 地下城2("冒险", "红石城堡", 0, 0)

Call 地下城2("冒险", "红石城堡", 0, 0)

ElseIf Form1.InputBox4.Text="4" Then

Call 地下城2("冒险", "红石城堡", 0, 0)

Call 地下城2("冒险", "红石城堡", 0, 0)

Call 地下城2("冒险", "红石城堡", 0, 0)

Call 地下城2("冒险", "红石城堡", 0, 0)

ElseIf Form1.InputBox4.Text="5" Then

Call 地下城2("冒险", "红石城堡", 0, 0)

Call 地下城2("冒险", "红石城堡", 0, 0)

Call 地下城2("冒险", "红石城堡", 0, 0)

Call 地下城2("冒险", "红石城堡", 0, 0)

Call 地下城2("冒险", "红石城堡", 0, 0)

Else

End If

// Call 地下城2("冒险", "红石城堡", 0, 0)

// Call 地下城2("冒险", "红石城堡", 0, 0)

// Call 地下城2("冒险", "红石城堡", 0, 0)

// Call 地下城2("冒险", "红石城堡", 0, 0)

// Call 地下城2("冒险", "红石城堡", 0, 0)

End If

If Form1.ComboBox2.ListIndex = 5 Then

If Form1.InputBox4.Text = "0" Then

ElseIf Form1.InputBox4.Text="1" Then

//满足条件，执行下面的脚本

Call 地下城2("冒险", "钢铁监狱", 0, 0)

ElseIf Form1.InputBox4.Text="2" Then

Call 地下城2("冒险", "钢铁监狱", 0, 0)

Call 地下城2("冒险", "钢铁监狱", 0, 0)

ElseIf Form1.InputBox4.Text="3" Then

Call 地下城2("冒险", "钢铁监狱", 0, 0)

Call 地下城2("冒险", "钢铁监狱", 0, 0)

Call 地下城2("冒险", "钢铁监狱", 0, 0)

ElseIf Form1.InputBox4.Text="4" Then

Call 地下城2("冒险", "钢铁监狱", 0, 0)

Call 地下城2("冒险", "钢铁监狱", 0, 0)

Call 地下城2("冒险", "钢铁监狱", 0, 0)

Call 地下城2("冒险", "钢铁监狱", 0, 0)

ElseIf Form1.InputBox4.Text="5" Then

Call 地下城2("冒险", "钢铁监狱", 0, 0)

Call 地下城2("冒险", "钢铁监狱", 0, 0)

Call 地下城2("冒险", "钢铁监狱", 0, 0)

Call 地下城2("冒险", "钢铁监狱", 0, 0)

Call 地下城2("冒险", "钢铁监狱", 0, 0)

Else

End If

// Call 地下城2("冒险", "钢铁监狱", 0, 0)

// Call 地下城2("冒险", "钢铁监狱", 0, 0)

// Call 地下城2("冒险", "钢铁监狱", 0, 0)

// Call 地下城2("冒险", "钢铁监狱", 0, 0)

// Call 地下城2("冒险", "钢铁监狱", 0, 0)

End If

End If

Call 公会建设(10)

End Function

Function 答题2()

Call check()//检测过期

Call 检测超时()

Form1.InputBox2.Text = "执行答题" & vbcrlf

Call 检测超时()

dm.MoveTo 667, 85-36 //点击地图

Call 检测超时()

dm.LeftClick

Call 检测超时()

dm.MoveTo 556,364-36//点击搜索

Call 检测超时()

dm.LeftClick

Call 检测超时()

dm.MoveTo 503,303-36 //输入X

Call 检测超时()

dm.LeftClick

Call 检测超时()

dm.KeyPress 50

Call 检测超时()

dm.KeyPress 48

Call 检测超时()

dm.KeyPress 48

Call 检测超时()

dm.KeyPress 48

Call 检测超时()

dm.MoveTo 677, 407-36//X输入完毕

Call 检测超时()

dm.LeftClick

Call 检测超时()

dm.MoveTo 553,303-36

dm.LeftClick

Call 检测超时()

dm.KeyPress 49

Call 检测超时()

dm.KeyPress 55

Call 检测超时()

dm.KeyPress 49

Call 检测超时()

dm.KeyPress 48

Call 检测超时()

dm.MoveTo 677, 407-36//Y输入完毕

Call 检测超时()

dm.LeftClick

Call 检测超时()

dm.MoveTo 531,329-36

Call 检测超时()

dm.LeftClick

Call 检测超时()

dm.MoveTo 343,204-36

Call 检测超时()

dm.LeftClick

Call 检测超时()

dm.MoveTo 596, 112-36

Call 检测超时()

dm.LeftClick

//教育大臣对话

Call 检测超时()

/* Rem findtalk

Call 检测超时()

dm_ret = dm.FindStr(0,0,800,600,"话","f6f0a3-8f8258",1.0,intX,intY)

If intX >= 0 and intY >= 0 Then

TracePrint "找到对话"

dm.MoveTo intX, intY

Call 检测超时()

dm.LeftClick

Else

TracePrint "没找到对话"

Goto findtalk

End If*/

Rem bxz

Delay 3000

Call 检测超时()

dm_ret = dm.FindStr(0,0,800,600,"路|格|雅南","f6f0a3-8f8258",1.0,intX,intY)

If intX >= 0 and intY >= 0 Then

//Call 检测超时()

TracePrint "找到npc"

dm.MoveTo 617, 333-36

Call 检测超时()

dm.LeftClick

Else

TracePrint "没有找到npc"

dm.MoveTo 479, 247-36

Call 检测超时()

dm.LeftClick

Goto bxz

End If

For i = 1 To 5 Step 1

Delay 500

dm_ret = dm.FindStr(0,0,800,600,"已|已经完成","f6f0a3-8f8258",1.0,intX,intY)

If intX >= 0 and intY >= 0 Then

//Call 检测超时()

TracePrint "找到"

dm.MoveTo 620,95-36

Call 检测超时()

dm.LeftClick

Goto quxiaodati

Else

TracePrint "没找到"

End If

Next

Delay 3000

Call 检测超时()

dm.MoveTo 520, 351-36//点击开始答题

Delay 1000

dm.LeftClick

//教育大臣对话

dm.MoveTo 278, 235-36//点击开始答题

Delay 1000

dm.LeftClick

Delay 1000

Dim TEN:TEN=0

For i = 0 To 10 Step 1

TEN = TEN + 1

If TEN = 10 Then

Goto tenover

End If

Call 检测超时()

dm_ret = dm.FindStr(0,0,800,600,"全部都对|托托|战场|增加|冰风谷|乞丐|躺下打滚|我不能获得|战场功勋|3个|托托齐|150|法术伤害|收藏界面|史诗坐骑","f6f0a3-8f8258",0.9,intX,intY)

If intX >= 0 and intY >= 0 Then

// Call 检测超时()

dm.MoveTo intX, intY

Call 检测超时()

dm.LeftClick

TracePrint "选择"

Else

TracePrint "点a"

Call 检测超时()

dm.MoveTo 305,244-36

Call 检测超时()

dm.LeftClick

End If

Delay 2000

TracePrint "循环一次"

Next

Rem tenover

TracePrint "跳出循环"

Call 检测超时()

dm.MoveTo 164, 190-36

Call 检测超时()

dm.LeftClick

Call 检测超时()

dm.MoveTo 620, 95-36

Call 检测超时()

dm.LeftClick

Rem quxiaodati

TracePrint "取消答题"

Form1.InputBox2.Text=Form1.InputBox2.Text&"答题完毕"&vbcrlf

End Function

Function 活动2()

Call check()//检测过期

Rem 重新开始

Delay 10000

Form1.InputBox2.Text = Form1.InputBox2.Text & "执行活动任务一次" & vbcrlf

Dim 星期

Dim b:b = Weekday(now)//分离出现在时间里面星期天数1代表星期天，7代表星期六

If b = 1 Then

星期="星期日"

ElseIf b = 2 Then

星期 = "星期一"

ElseIf b = 3 Then

星期 = "星期二"

ElseIf b = 4 Then

星期 = "星期三"

ElseIf b = 5 Then

星期 = "星期四"

ElseIf b = 6 Then

星期 = "星期五"

ElseIf b = 7 Then

星期 = "星期六"

End If

TracePrint 星期

// Call 检测超时()

// dm.KeyPress 79

dm.MoveTo 530, 58 - 36

// dm.KeyPress 79

Delay 1000

// Call 检测超时()

dm.LeftClick

Call 检测超时()

Rem huodong

Call 检测超时()

dm_ret = dm.FindStr(0,0,800,600,"活|活动","f6f0a3-8f8258",1.0,intX,intY)

If intX >= 0 and intY >= 0 Then

// Call 检测超时()

dm.MoveTo intX, intY

Call 检测超时()

dm.LeftClick

Else

Goto huodong

End If

//********检测是否做过*********

For i=1 To 10 Step 1

//这里的脚本可以循环10次

dm_ret = dm.FindStr(0,0,800,600,"0","f6f0a3-8f8258",1.0,intX,intY)

If intX >= 0 and intY >= 0 Then

TracePrint "活动任务已做"

dm.MoveTo 616 ,104-36

Call 检测超时()

dm.LeftClick

Call 检测超时()

Goto quxiaohuodong

Else

TracePrint "活动任务未做"

End If

Next

//*********检测是否做过**************

// Call 查找点击("动",0,0)

If 星期 = "星期一" Then //托托

Rem xqy

Call 检测超时()

dm.MoveTo 141, 131-36

Call 检测超时()

dm.LeftClick

Call 检测超时()

ElseIf 星期 = "星期二" Then//王牌

Rem xqw

Call 检测超时()

dm.MoveTo 141, 131-36

Call 检测超时()

dm.LeftClick

Call 检测超时()

ElseIf 星期 = "星期三" Then//元素

Rem xql

Call 检测超时()

dm.MoveTo 141, 131-36

Call 检测超时()

dm.LeftClick

Call 检测超时()

ElseIf 星期="星期四" Then

Goto xqy//托托

ElseIf 星期="星期五" Then

Goto xqw//王牌

ElseIf 星期="星期六" Then

Goto xql//元素

ElseIf 星期 = "星期日" Then

Call 检测超时()

dm.MoveTo 141, 131-36

Call 检测超时()

dm.LeftClick

Call 检测超时()

//托托

End If

//--------------执行过程-----------------

Call 检测超时()

dm.MoveTo 557, 366-36

Call 检测超时()

dm.LeftClick

Call 检测超时()

//-------------------进地下城过程----------------------

Rem xuhuan

Call 检测超时()

dm_ret = dm.FindStr(0,0,800,600,"下|进入地下城","f6f0a3-8f8258",1.0,intX,intY)

If intX >= 0 and intY >= 0 Then

// Call 检测超时()

dm.MoveTo intX ,intY

Call 检测超时()

dm.LeftClick

Call 检测超时()

dm_ret = dm.FindStr(0,0,800,600,"目|标","f6f0a3-8f8258",1.0,intX,intY)

If intX >= 0 and intY >= 0 Then

TracePrint "跳出目"

Goto tiaochu

Else

TracePrint "没找目"

Goto xuhuan

End If

Else

Call 检测超时()

dm_ret = dm.FindStr(0,0,800,600,"目|标","f6f0a3-8f8258",1.0,intX,intY)

If intX >= 0 and intY >= 0 Then

TracePrint "跳出目"

Goto tiaochu

Else

TracePrint "没找目"

Goto xuhuan

End If

End If

Rem tiaochu

//-------------------进地下城过程----------------------

//-------//协助攻击----------

Delay 18000

Call 检测超时()

Call 检测语音()

//

dm.MoveTo 449, 388-36

dm.LeftClick

//检测复活开

Rem fuhuo

Call 检测超时()

dm_ret = dm.FindStr(0,0,800,600,"活","f6f0a3-8f8258",1.0,intX,intY)

If intX >= 0 and intY >= 0 Then

TracePrint "复活"

// Call 检测超时()

dm.MoveTo intX ,intY

Call 检测超时()

dm.LeftClick

Call 检测超时()

//移动 646 409 444 293

dm.MoveTo 87, 377-36

dm.LeftDown

Call 平滑移动鼠标to(87, 387-36, 1000, 87, 377-36, 1)

dm.LeftUp

// Call 检测超时()

dm.MoveTo 87, 377-36

dm.LeftDown

Call 平滑移动鼠标to(87, 367-36, 1000, 87, 377-36, 1)

dm.LeftUp

// Call 检测超时()

//移动

Delay 500

dm_ret = dm.FindStr(0,0,800,600,"加为好友|名字|离开|总量","f6f0a3-8f8258",1.0,intX,intY)//翻拍情节

If intX >= 0 and intY >= 0 Then

TracePrint "离开"

dm.MoveTo 646, 409-36

Call 检测超时()

dm.LeftClick

Call 检测超时()

dm.MoveTo 444, 293-36

Call 检测超时()

dm.LeftClick

Goto remove

Else

//检测是否为踢出

Delay 500

dm_ret = dm.FindStr(0,0,800,600,"任|务","f6f0a3-8f8258",1.0,intX,intY)

If intX >= 0 and intY >= 0 Then

TracePrint "被踢出"

Goto 重新开始

Else

TracePrint "未被踢出"

End If

//检测是否为踢出

//移动

dm.MoveTo 87, 377-36

dm.LeftDown

Call 平滑移动鼠标to(87, 387-36, 1000, 87, 377-36, 1)

dm.LeftUp

Delay 1000

dm.MoveTo 87, 377-36

dm.LeftDown

Call 平滑移动鼠标to(87, 367-36, 1000, 87, 377-36, 1)

dm.LeftUp

Delay 1000

//移动

TracePrint "检测复活开1"

Goto fuhuo

End If

Else

Call 检测超时()

Delay 500

dm_ret = dm.FindStr(0,0,800,600,"加为好友|名字|离开|总量","f6f0a3-8f8258",1.0,intX,intY)//翻拍情节

If intX >= 0 and intY >= 0 Then

TracePrint "离开"

dm.MoveTo 646, 409-36

Call 检测超时()

dm.LeftClick

Call 检测超时()

dm.MoveTo 444, 293-36

Call 检测超时()

dm.LeftClick

Goto remove

Else

//检测是否为踢出

Delay 500

dm_ret = dm.FindStr(0,0,800,600,"任|务","f6f0a3-8f8258",1.0,intX,intY)

If intX >= 0 and intY >= 0 Then

TracePrint "被踢出"

Goto 重新开始

Else

TracePrint "未被踢出"

End If

//检测是否为踢出

//移动

dm.MoveTo 87, 377-36

dm.LeftDown

Call 平滑移动鼠标to(87, 387-36, 1000, 87, 377-36, 1)

dm.LeftUp

Delay 1000

dm.MoveTo 87, 377-36

dm.LeftDown

Call 平滑移动鼠标to(87, 367-36, 1000, 87, 377-36, 1)

dm.LeftUp

Delay 1000

//移动

TracePrint "检测"

Goto fuhuo

End If

End If

//检测复活开

Rem remove

Rem quxiaohuodong

Call 检测超时()

Form1.InputBox2.Text = Form1.InputBox2.Text & "活动任务完成" & vbcrlf

/* If 星期 = "星期日" Then

Call 周日活动 ("2")

Call 周日活动("3")

End If*/

//--------------执行过程-----------------

End Function

Function 佣兵委托()

Call check()//检测过期

Call 检测超时()

Call 检测超时()

dm.MoveTo 826, 76-36

Call 检测超时()

dm.LeftClick

Call 检测超时()

Rem boxuezhe

dm_ret = dm.FindStr(0,0,800,600,"佣兵委托","f6f0a3-8f8258",1.0,intX,intY)

If intX >= 0 and intY >= 0 Then

// Call 检测超时()

dm.MoveTo intX+162 ,intY+50-36

Call 检测超时()

dm.LeftClick

Else

Call 检测超时()

dm.MoveTo 530, 480-36

Call 检测超时()

dm.LeftDown

Call 平滑移动鼠标to(530, 480-36,5000,530, 780-36,1)

dm.LeftUp

Call 检测超时()

dm_ret = dm.FindStr(0,0,800,600,"佣兵委托","f6f0a3-8f8258",0.9,intX,intY)

If intX >= 0 and intY >= 0 Then

// Call 检测超时()

dm.MoveTo intX+162, intY+50-36

Call 检测超时()

dm.LeftClick

Else

Call 检测超时()

dm.MoveTo 530, 480-36

Call 检测超时()

dm.LeftDown

Delay 100

Call 平滑移动鼠标to(530, 480-36, 5000, 530, 180-36, 1)

dm.LeftUp

TracePrint "meizhaodao"

Goto boxuezhe

End If

End If

Rem dati

//--开始答题----

Call 检测超时()

dm.MoveTo 999, 633-36

Call 检测超时()

dm.LeftClick

Call 检测超时()

//--开始答题----

For i=1 To 11 Step 1

dm_ret = dm.FindStr(0,0,800,600,"全部都对","f6f0a3-8f8258",0.9,intX,intY)

If intX >= 0 and intY >= 0 Then

// Call 检测超时()

dm.MoveTo intX, intY

Call 检测超时()

dm.LeftClick

Else

dm.MoveTo 590, 436-36

Call 检测超时()

dm.LeftClick

End If

Delay 3000

Next

Call 检测超时()

dm.MoveTo 341, 339-36

Call 检测超时()

dm.LeftClick

Call 检测超时()

dm.MoveTo 1176, 157-36

Call 检测超时()

dm.LeftClick

End Function

Function 角斗2()//a执行几次

Call check()//检测过期

Delay 10000

Form1.InputBox2.Text=Form1.InputBox2.Text&"执行一次角斗"&vbcrlf

Call 检测超时()

dm.MoveTo 494,57-36

Call 检测超时()

dm.LeftClick

Call 检测超时()

Call 查找点击("斗|角",0,0)

Call 检测超时()

dm.MoveTo 570,371-36//点击单人匹配

Call 检测超时()

dm.LeftClick

Call 检测超时()

//-------------------进对决----------------------

Rem xuhuan

Call 检测超时()

dm_ret = dm.FindStr(0,0,800,600,"进|进入对决","f6f0a3-8f8258",1.0,intX,intY)

If intX >= 0 and intY >= 0 Then

// Call 检测超时()

dm.MoveTo intX ,intY

Call 检测超时()

dm.LeftClick

Call 检测超时()

dm_ret = dm.FindPic(0,0,800,600,"jd.bmp","000000",0.8,0,intX,intY)

// dm_ret = dm.FindStr(0,0,800,600,"问好","f6f0a3-8f8258",1.0,intX,intY)

If intX >= 0 and intY >= 0 Then

Goto tiaochu

Else

Goto xuhuan

End If

Else

Call 检测超时()

dm_ret = dm.FindPic(0,0,800,600,"jd.bmp","000000",0.8,0,intX,intY)

// dm_ret = dm.FindStr(0,0,800,600,"问好","f6f0a3-8f8258",1.0,intX,intY)

If intX >= 0 and intY >= 0 Then

Goto tiaochu

Else

Goto xuhuan

End If

End If

Rem tiaochu

//-------------------进对决----------------------

//-------//协助攻击----------

Delay 18000

Call 检测超时()

Call 检测语音()

dm.MoveTo 449, 388-36

dm.LeftClick

Call 检测超时()

TracePrint "协助攻击"

//检测复活离开

Rem fuhuo

Call 检测超时()

dm_ret = dm.FindStr(0,0,800,600,"点击关闭","f6f0a3-8f8258",1.0,intX,intY)

If intX >= 0 and intY >= 0 Then

TracePrint "关闭"

// Call 检测超时()

dm.MoveTo intX ,intY

Call 检测超时()

dm.LeftClick

Call 检测超时()

dm_ret = dm.FindStr(0,0,800,600,"退出","f6f0a3-8f8258",1.0,intX,intY)

If intX >= 0 and intY >= 0 Then

TracePrint "检测离开跳出"

dm.MoveTo intX, intY

dm.LeftClick

Goto remove

Else

Call 检测超时()

dm_ret = dm.FindStr(0,0,800,600,"角斗场","f6f0a3-8f8258",1.0,intX,intY)

If intX >= 0 and intY >= 0 Then

TracePrint "检测到角斗场离开"

Goto remove

End If

//移动

dm.MoveTo 87, 377-36

dm.LeftDown

Call 平滑移动鼠标to(87, 387-36, 1000, 87, 377-36, 1)

dm.LeftUp

// Call 检测超时()

dm.MoveTo 87, 377-36

dm.LeftDown

Call 平滑移动鼠标to(87, 367-36, 1000, 87, 377-36, 1)

dm.LeftUp

// Call 检测超时()

//移动

TracePrint "检测复活离开"

Goto fuhuo

End If

Else

Call 检测超时()

dm_ret = dm.FindStr(0,0,800,600,"退出","f6f0a3-8f8258",1.0,intX,intY)

If intX >= 0 and intY >= 0 Then

TracePrint "检测离开跳出"

dm.MoveTo intX, intY

// Call 查找点击 ("退出",0,0)

dm.LeftClick

Goto remove

Else

Call 检测超时()

dm_ret = dm.FindStr(0,0,800,600,"角斗场|公平模式","f6f0a3-8f8258",1.0,intX,intY)

If intX >= 0 and intY >= 0 Then

TracePrint "检测到角斗场离开"

Goto remove

End If

//移动

dm.MoveTo 87, 377-36

dm.LeftDown

Call 平滑移动鼠标to(87, 387-36, 1000, 87, 377-36, 1)

dm.LeftUp

// Call 检测超时()

dm.MoveTo 87, 377-36

dm.LeftDown

Call 平滑移动鼠标to(87, 367-36, 1000, 87, 377-36, 1)

dm.LeftUp

// Call 检测超时()

//移动

Goto fuhuo

End If

End If

Rem remove

Delay 15000

//关闭窗口

Call 检测超时()

dm.MoveTo 615 ,94-36

Call 检测超时()

dm.LeftClick

//关闭窗口

TracePrint "角斗1次"

Form1.InputBox2.Text=Form1.InputBox2.Text&"角斗任务完成"&vbcrlf

End Function

//-------------------角斗----------------------

//-------------------角斗----------------------

//-------------------角斗----------------------

Function 平滑移动鼠标to(终点坐标px,终点坐标py,移动时间,起点坐标beginx,起点坐标beginy,平滑灵敏度)

dim mx

dim x,y

dim tx,ty

x=起点坐标beginx

y=起点坐标beginy

tx=abs(x-终点坐标px)

ty=abs(y-终点坐标py)

if tx>=ty

mx=tx

else

mx=ty

end if

if mx>0

for i = 0 to mx step 平滑灵敏度

sx=int((终点坐标px*i+x*(mx-i))/mx)

sy = int((终点坐标py * i + y * (mx - i)) / mx)

dm.MoveTo sx,sy

delay int(移动时间/mx*平滑灵敏度)

Next

else

delay 移动时间

End If

dm.MoveTo 终点坐标px, 终点坐标py

平滑移动鼠标to=true

End Function

//-------------------公会建设----------------------

Function 公会建设(a)//a执行几次工会建设一般是10次

Delay 10000

For i=1 To 3 Step 1

Call 检测超时()

dm_ret = dm.FindPic(0,0,800,600,"ywc.bmp","000000",0.9,0,intX,intY)

If intX >= 0 and intY >= 0 Then

//Call 检测超时()

TracePrint "找到"

dm.MoveTo 1169, 161-36

Call 检测超时()

dm.LeftClick

Goto gonghuiwancheng

Else

TracePrint "没找到"

End If

Next

For i = 1 To a Step 1

Call check()//检测过期

Form1.InputBox2.Text = Form1.InputBox2.Text & "执行公会建设任务一次" & vbcrlf

Call 检测超时()

dm.MoveTo 422,57-36

Call 检测超时()

dm.LeftClick

Delay 2000

Call 检测超时()

dm.MoveTo 274,134-36

Call 检测超时()

dm.LeftClick

Call 检测超时()

Call 查找点击 ("城堡建设",82,25)

Call 检测超时()

dm.MoveTo 181, 300-36

Call 检测超时()

dm.LeftClick

Call 检测超时()

dm.MoveTo 181,320-36

Call 检测超时()

dm.LeftClick

Call 检测超时()

dm.MoveTo 350,300-36

Call 检测超时()

dm.LeftClick

Call 检测超时()

dm.MoveTo 350,320-36

Call 检测超时()

dm.LeftClick

Call 检测超时()

dm.MoveTo 520,300-36

Call 检测超时()

dm.LeftClick

Call 检测超时()

dm.MoveTo 520, 320-36

Call 检测超时()

dm.LeftClick

Call 检测超时()

dm.MoveTo 622,95-36

Call 检测超时()

dm.LeftClick

Form1.InputBox2.Text=Form1.InputBox2.Text&"工会建设完成等待30分钟"&vbcrlf

Delay 1800000

Next

Rem gonghuiwancheng

MessageBox "全部执行完毕"

End Function

//-------------------公会建设----------------------

//------------------点击查找函数-----------------------

Function 查找点击(查找文字, 偏移x, 偏移y)

Call 检测超时()

dim wenzi

dim x

dim y

wenzi=查找文字

x=偏移x

y=偏移y

Rem xuhuan

TracePrint "查找" & 查找文字

dm_ret = dm.FindStr(0,0,800,600, wenzi,"f6f0a3-8f8258",1.0,intX,intY)

If intX >= 0 and intY >= 0 Then

TracePrint "ok"

// Call 检测超时()

dm.MoveTo intX+CInt(x) ,intY+CInt(y)

dm.LeftClick

Else

Goto xuhuan

End If

End Function

//--------------点击查找函数---------------------------

Function 移动点击(坐标x,坐标y) //移动点击

Call 检测超时()

dm.MoveTo 坐标x,坐标y-36

Call 检测超时()

dm.LeftClick

Call 检测超时()

End Function

//------------------地下城-----------------------

Function 地下城2(难度, 副本, 偏移x, 偏移y)//a 冒险或者普通+偏移坐标

Call check()//检测过期

Delay 10000

Form1.InputBox2.Text=Form1.InputBox2.Text&"执行一次地下城"&vbcrlf

//"普通,70,40"

//"冒险,70,40"

Call 检测超时()

dm.MoveTo 529, 60-36

Call 检测超时()

dm.LeftClick

Delay 2000

dm.MoveTo 119, 124-36

Call 检测超时()

dm.LeftClick

Delay 2000

//难度

If 难度 = "普通" Then

Call 检测超时()

dm.MoveTo 243, 365-36

Call 检测超时()

dm.LeftClick

Call 检测超时()

Else

Call 检测超时()

dm.MoveTo 308, 365-36

Call 检测超时()

dm.LeftClick

Call 检测超时()

End If

//通过判断表达式的取值，来执行后面的动作或控制

Delay 500

dm.MoveTo 111, 170-36

dm.LeftDown

Call 平滑移动鼠标to(111, 100-36, 1000, 111, 170-36, 1)

dm.LeftUp

Delay 500

//难度

Call 检测超时()

// Call 查找点击(副本, 0, 0)

If 副本 = "暴风女神号" Then

Call 检测超时()

dm.MoveTo 115, 156-36

Call 检测超时()

dm.LeftClick

Call 检测超时()

ElseIf 副本 = "黄昏修道院" Then

Call 检测超时()

dm.MoveTo 115, 190-36

Call 检测超时()

dm.LeftClick

Call 检测超时()

ElseIf 副本 = "恶灵古堡" Then

Call 检测超时()

dm.MoveTo 115, 228-36

Call 检测超时()

dm.LeftClick

Call 检测超时()

ElseIf 副本 = "远古熔炉" Then

Call 检测超时()

dm.MoveTo 115, 268-36

Call 检测超时()

dm.LeftClick

Call 检测超时()

ElseIf 副本 = "红石城堡" Then

Call 检测超时()

dm.MoveTo 115, 303-36

Call 检测超时()

dm.LeftClick

Call 检测超时()

ElseIf 副本 = "钢铁监狱" Then

Call 检测超时()

dm.MoveTo 115, 342-36

Call 检测超时()

dm.LeftClick

Call 检测超时()

ElseIf 副本 = "冰风谷" Then

Call 检测超时()

dm.MoveTo 115, 376-36

Call 检测超时()

dm.LeftClick

Call 检测超时()

End If

// Call 查找点击("匹", 0, 0)

dm.MoveTo 562 ,366-36

Call 检测超时()

dm.LeftClick

Call 检测超时()

Dim i:i=0

//-------------------进地下城过程----------------------

Rem xuhuan

Call 检测超时()

dm_ret = dm.FindStr(0,0,800,600,"下|进入地下城","f6f0a3-8f8258",1.0,intX,intY)

If intX >= 0 and intY >= 0 Then

// Call 检测超时()

dm.MoveTo intX ,intY

Call 检测超时()

dm.LeftClick

Call 检测超时()

i = i + 1

If i = 5 Then

Call 检测超时()

dm.MoveTo 1065 ,660-36

Call 检测超时()

dm.LeftClick

Call 检测超时()

Goto xuhuan

End If

Call 检测超时()

// dm_ret = dm.FindPic(0,0,800,600,"mb.bmp","000000",0.9,0,intX,intY)

dm_ret = dm.FindStr(0,0,800,600,"目|标","f6f0a3-8f8258",1.0,intX,intY)

If intX >= 0 and intY >= 0 Then

TracePrint "找到目"

Goto tiaochu

Else

TracePrint "没有找到目"

Goto xuhuan

End If

Else

Call 检测超时()

// dm_ret = dm.FindPic(0,0,800,600,"mb.bmp","000000",0.9,0,intX,intY)

dm_ret = dm.FindStr(0,0,800,600,"目|标","f6f0a3-8f8258",1.0,intX,intY)

If intX >= 0 and intY >= 0 Then

TracePrint "找到目"

Goto tiaochu

Else

TracePrint "没有找到目"

Goto xuhuan

End If

End If

Rem tiaochu

//-------------------进地下城过程----------------------

//-------//协助攻击----------

Delay 18000

Call 检测超时()

Call 检测语音()

dm.MoveTo 449, 388-36

dm.LeftClick

//检测复活开

Rem fuhuo

Call 检测超时()

dm_ret = dm.FindStr(0,0,800,600,"安全复活","f6f0a3-8f8258",1.0,intX,intY)

If intX >= 0 and intY >= 0 Then

TracePrint "复活"

// Call 检测超时()

dm.MoveTo intX ,intY

Call 检测超时()

dm.LeftClick

Call 检测超时()

Goto fuhuo

Else

//移动

dm.MoveTo 87, 377-36

dm.LeftDown

Call 平滑移动鼠标to(87, 387-36, 1000, 87, 377-36, 1)

dm.LeftUp

// Call 检测超时()

dm.MoveTo 87, 377-36

dm.LeftDown

Call 平滑移动鼠标to(87, 367-36, 1000, 87, 377-36, 1)

dm.LeftUp

// Call 检测超时()

//移动

//检测是否为踢出

dm_ret = dm.FindStr(0,0,800,600,"任|务","f6f0a3-8f8258",1.0,intX,intY)

If intX >= 0 and intY >= 0 Then

TracePrint "被踢出"

Call 地下城2("普通", "暴风女神号", 0, 0)

Else

TracePrint "未被踢出"

End If

//检测是否为踢出

//弹出首次通关分享关闭

Call 检测超时()

//dm_ret = dm.FindPic(0,0,800,600,"mb.bmp","000000",0.9,0,intX,intY)

dm_ret = dm.FindStr(0,0,800,600,"目|标","f6f0a3-8f8258",1.0,intX,intY)

If intX >= 0 and intY >= 0 Then

Else

TracePrint "检测到首次通关"

Call 检测超时()

// dm.MoveTo 1331, 70-36

Call 检测超时()

// dm.LeftClick

Call 检测超时()

End If

//弹出首次通关分享关闭

//检测离开

Call 检测超时()

dm_ret = dm.FindStr(0,0,800,600,"队伍继续|分享|离开|数据统计","f6f0a3-8f8258",1.0,intX,intY)

If intX >= 0 and intY >= 0 Then

TracePrint "离开"

dm.MoveTo 643, 408-36

Call 检测超时()

dm.LeftClick

Call 检测超时()

dm.MoveTo 449, 295-36

Call 检测超时()

dm.LeftClick

Call 检测超时()

Goto remove

Else

Goto fuhuo

End If

//检测离开

End If

//检测复活开

Rem remove

Call 检测超时()

dm.MoveTo 616, 104-36

Call 检测超时()

dm.LeftClick

Call 检测超时()

TracePrint "地下城1次"

Form1.InputBox2.Text=Form1.InputBox2.Text&"地下城任务完成"&vbcrlf

End Function

Function 检测语音()

Delay 3000

Call 检测超时()

Delay 500

dm_ret = dm.FindStr(0,0,800,600,"是","f6f0a3-8f8258",1.0,intX,intY)

If intX >= 0 and intY >= 0 Then

TracePrint "ok"

Call 检测超时()

dm.MoveTo 265 ,294-36

Call 检测超时()

dm.LeftClick

Call 检测超时()

TracePrint "检测到语音"

Else

TracePrint "没有检测到语音"

End If

End Function

Function 检测超时()

Delay 1000

//这里的脚本可以循环10次

dm_ret = dm.FindStr(0,0,800,600,"确定|提示|定","f6f0a3-8f8258",1.0,intX,intY)

// dm_ret = dm.FindStr(0,0,800,600,"目","f6f0a3-8f8258",0.8,intX,intY)

If intX >= 0 and intY >= 0 Then

TracePrint "找到超时"

dm.MoveTo 353, 290-36

Delay 50

dm.LeftClick

Delay 50

TracePrint "检测到超时"

//TracePrint "没有检测到超时"

End If

End Function

//-----安卓端--------

Function 运行模块3()

Call 答题3()//5分

Call 活动3()//10分

If Form1.InputBox5.Text = "0" Then

ElseIf Form1.InputBox5.Text="1" Then

//满足条件，执行下面的脚本

Call 角斗3()

ElseIf Form1.InputBox5.Text="2" Then

Call 角斗3()

Call 角斗3()

ElseIf Form1.InputBox5.Text="3" Then

Call 角斗3()

Call 角斗3()

Call 角斗3()

Else

End If

//通过判断表达式的取值，来执行后面的动作或控制

If Form1.OptionBox1.Value = 1 Then //选择了普通5次

If Form1.ComboBox1.ListIndex = 0 Then

If Form1.InputBox4.Text = "0" Then

ElseIf Form1.InputBox4.Text="1" Then

//满足条件，执行下面的脚本

Call 地下城3("普通", "暴风女神号", 0, 0)

ElseIf Form1.InputBox4.Text="2" Then

Call 地下城3("普通", "暴风女神号", 0, 0)

Call 地下城3("普通", "暴风女神号", 0, 0)

ElseIf Form1.InputBox4.Text="3" Then

Call 地下城3("普通", "暴风女神号", 0, 0)

Call 地下城3("普通", "暴风女神号", 0, 0)

Call 地下城3("普通", "暴风女神号", 0, 0)

ElseIf Form1.InputBox4.Text="4" Then

Call 地下城3("普通", "暴风女神号", 0, 0)

Call 地下城3("普通", "暴风女神号", 0, 0)

Call 地下城3("普通", "暴风女神号", 0, 0)

Call 地下城3("普通", "暴风女神号", 0, 0)

ElseIf Form1.InputBox4.Text="5" Then

Call 地下城3("普通", "暴风女神号", 0, 0)

Call 地下城3("普通", "暴风女神号", 0, 0)

Call 地下城3("普通", "暴风女神号", 0, 0)

Call 地下城3("普通", "暴风女神号", 0, 0)

Call 地下城3("普通", "暴风女神号", 0, 0)

Else

End If

// Call 地下城3("普通", "暴风女神号", 0, 0)

// Call 地下城3("普通", "暴风女神号", 0, 0)

// Call 地下城3("普通", "暴风女神号", 0, 0)

// Call 地下城3("普通", "暴风女神号", 0, 0)

// Call 地下城3("普通", "暴风女神号", 0, 0)

End If

If Form1.ComboBox1.ListIndex = 1 Then

If Form1.InputBox4.Text = "0" Then

ElseIf Form1.InputBox4.Text="1" Then

//满足条件，执行下面的脚本

Call 地下城3("普通", "黄昏修道院", 0, 0)

ElseIf Form1.InputBox4.Text="2" Then

Call 地下城3("普通", "黄昏修道院", 0, 0)

Call 地下城3("普通", "黄昏修道院", 0, 0)

ElseIf Form1.InputBox4.Text="3" Then

Call 地下城3("普通", "黄昏修道院", 0, 0)

Call 地下城3("普通", "黄昏修道院", 0, 0)

Call 地下城3("普通", "黄昏修道院", 0, 0)

ElseIf Form1.InputBox4.Text="4" Then

Call 地下城3("普通", "黄昏修道院", 0, 0)

Call 地下城3("普通", "黄昏修道院", 0, 0)

Call 地下城3("普通", "黄昏修道院", 0, 0)

Call 地下城3("普通", "黄昏修道院", 0, 0)

ElseIf Form1.InputBox4.Text="5" Then

Call 地下城3("普通", "黄昏修道院", 0, 0)

Call 地下城3("普通", "黄昏修道院", 0, 0)

Call 地下城3("普通", "黄昏修道院", 0, 0)

Call 地下城3("普通", "黄昏修道院", 0, 0)

Call 地下城3("普通", "黄昏修道院", 0, 0)

Else

End If

// Call 地下城3("普通", "黄昏修道院", 0, 0)

// Call 地下城3("普通", "黄昏修道院", 0, 0)

// Call 地下城3("普通", "黄昏修道院", 0, 0)

// Call 地下城3("普通", "黄昏修道院", 0, 0)

// Call 地下城3("普通", "黄昏修道院", 0, 0)

End If

If Form1.ComboBox1.ListIndex = 2 Then

If Form1.InputBox4.Text = "0" Then

ElseIf Form1.InputBox4.Text="1" Then

//满足条件，执行下面的脚本

Call 地下城3("普通", "恶灵古堡", 0, 0)

ElseIf Form1.InputBox4.Text="2" Then

Call 地下城3("普通", "恶灵古堡", 0, 0)

Call 地下城3("普通", "恶灵古堡", 0, 0)

ElseIf Form1.InputBox4.Text="3" Then

Call 地下城3("普通", "恶灵古堡", 0, 0)

Call 地下城3("普通", "恶灵古堡", 0, 0)

Call 地下城3("普通", "恶灵古堡", 0, 0)

ElseIf Form1.InputBox4.Text="4" Then

Call 地下城3("普通", "恶灵古堡", 0, 0)

Call 地下城3("普通", "恶灵古堡", 0, 0)

Call 地下城3("普通", "恶灵古堡", 0, 0)

Call 地下城3("普通", "恶灵古堡", 0, 0)

ElseIf Form1.InputBox4.Text="5" Then

Call 地下城3("普通", "恶灵古堡", 0, 0)

Call 地下城3("普通", "恶灵古堡", 0, 0)

Call 地下城3("普通", "恶灵古堡", 0, 0)

Call 地下城3("普通", "恶灵古堡", 0, 0)

Call 地下城3("普通", "恶灵古堡", 0, 0)

Else

End If

// Call 地下城3("普通", "恶灵古堡", 0, 0)

// Call 地下城3("普通", "恶灵古堡", 0, 0)

// Call 地下城3("普通", "恶灵古堡", 0, 0)

// Call 地下城3("普通", "恶灵古堡", 0, 0)

// Call 地下城3("普通", "恶灵古堡", 0, 0)

End If

If Form1.ComboBox1.ListIndex = 3 Then

If Form1.InputBox4.Text = "0" Then

ElseIf Form1.InputBox4.Text="1" Then

//满足条件，执行下面的脚本

Call 地下城3("普通", "远古熔炉", 0, 0)

ElseIf Form1.InputBox4.Text="2" Then

Call 地下城3("普通", "远古熔炉", 0, 0)

Call 地下城3("普通", "远古熔炉", 0, 0)

ElseIf Form1.InputBox4.Text="3" Then

Call 地下城3("普通", "远古熔炉", 0, 0)

Call 地下城3("普通", "远古熔炉", 0, 0)

Call 地下城3("普通", "远古熔炉", 0, 0)

ElseIf Form1.InputBox4.Text="4" Then

Call 地下城3("普通", "远古熔炉", 0, 0)

Call 地下城3("普通", "远古熔炉", 0, 0)

Call 地下城3("普通", "远古熔炉", 0, 0)

Call 地下城3("普通", "远古熔炉", 0, 0)

ElseIf Form1.InputBox4.Text="5" Then

Call 地下城3("普通", "远古熔炉", 0, 0)

Call 地下城3("普通", "远古熔炉", 0, 0)

Call 地下城3("普通", "远古熔炉", 0, 0)

Call 地下城3("普通", "远古熔炉", 0, 0)

Call 地下城3("普通", "远古熔炉", 0, 0)

Else

End If

//Call 地下城3("普通", "远古熔炉", 0, 0)

// Call 地下城3("普通", "远古熔炉", 0, 0)

// Call 地下城3("普通", "远古熔炉", 0, 0)

// Call 地下城3("普通", "远古熔炉", 0, 0)

// Call 地下城3("普通", "远古熔炉", 0, 0)

End If

If Form1.ComboBox1.ListIndex = 4 Then

If Form1.InputBox4.Text = "0" Then

ElseIf Form1.InputBox4.Text="1" Then

//满足条件，执行下面的脚本

Call 地下城3("普通", "红石城堡", 0, 0)

ElseIf Form1.InputBox4.Text="2" Then

Call 地下城3("普通", "红石城堡", 0, 0)

Call 地下城3("普通", "红石城堡", 0, 0)

ElseIf Form1.InputBox4.Text="3" Then

Call 地下城3("普通", "红石城堡", 0, 0)

Call 地下城3("普通", "红石城堡", 0, 0)

Call 地下城3("普通", "红石城堡", 0, 0)

ElseIf Form1.InputBox4.Text="4" Then

Call 地下城3("普通", "红石城堡", 0, 0)

Call 地下城3("普通", "红石城堡", 0, 0)

Call 地下城3("普通", "红石城堡", 0, 0)

Call 地下城3("普通", "红石城堡", 0, 0)

ElseIf Form1.InputBox4.Text="5" Then

Call 地下城3("普通", "红石城堡", 0, 0)

Call 地下城3("普通", "红石城堡", 0, 0)

Call 地下城3("普通", "红石城堡", 0, 0)

Call 地下城3("普通", "红石城堡", 0, 0)

Call 地下城3("普通", "红石城堡", 0, 0)

Else

End If

//Call 地下城3("普通", "红石城堡", 0, 0)

// Call 地下城3("普通", "红石城堡", 0, 0)

// Call 地下城3("普通", "红石城堡", 0, 0)

// Call 地下城3("普通", "红石城堡", 0, 0)

// Call 地下城3("普通", "红石城堡", 0, 0)

End If

If Form1.ComboBox1.ListIndex = 5 Then

If Form1.InputBox4.Text = "0" Then

ElseIf Form1.InputBox4.Text="1" Then

//满足条件，执行下面的脚本

Call 地下城3("普通", "钢铁监狱", 0, 0)

ElseIf Form1.InputBox4.Text="2" Then

Call 地下城3("普通", "钢铁监狱", 0, 0)

Call 地下城3("普通", "钢铁监狱", 0, 0)

ElseIf Form1.InputBox4.Text="3" Then

Call 地下城3("普通", "钢铁监狱", 0, 0)

Call 地下城3("普通", "钢铁监狱", 0, 0)

Call 地下城3("普通", "钢铁监狱", 0, 0)

ElseIf Form1.InputBox4.Text="4" Then

Call 地下城3("普通", "钢铁监狱", 0, 0)

Call 地下城3("普通", "钢铁监狱", 0, 0)

Call 地下城3("普通", "钢铁监狱", 0, 0)

Call 地下城3("普通", "钢铁监狱", 0, 0)

ElseIf Form1.InputBox4.Text="5" Then

Call 地下城3("普通", "钢铁监狱", 0, 0)

Call 地下城3("普通", "钢铁监狱", 0, 0)

Call 地下城3("普通", "钢铁监狱", 0, 0)

Call 地下城3("普通", "钢铁监狱", 0, 0)

Call 地下城3("普通", "钢铁监狱", 0, 0)

Else

End If

// Call 地下城3("普通", "钢铁监狱", 0, 0)

// Call 地下城3("普通", "钢铁监狱", 0, 0)

// Call 地下城3("普通", "钢铁监狱", 0, 0)

// Call 地下城3("普通", "钢铁监狱", 0, 0)

// Call 地下城3("普通", "钢铁监狱", 0, 0)

End If

End If

If Form1.OptionBox2.Value = 1 Then//选择了冒险5次

If Form1.ComboBox2.ListIndex = 0 Then

If Form1.InputBox4.Text = "0" Then

ElseIf Form1.InputBox4.Text="1" Then

//满足条件，执行下面的脚本

Call 地下城3("冒险", "暴风女神号", 0, 0)

ElseIf Form1.InputBox4.Text="2" Then

Call 地下城3("冒险", "暴风女神号", 0, 0)

Call 地下城3("冒险", "暴风女神号", 0, 0)

ElseIf Form1.InputBox4.Text="3" Then

Call 地下城3("冒险", "暴风女神号", 0, 0)

Call 地下城3("冒险", "暴风女神号", 0, 0)

Call 地下城3("冒险", "暴风女神号", 0, 0)

ElseIf Form1.InputBox4.Text="4" Then

Call 地下城3("冒险", "暴风女神号", 0, 0)

Call 地下城3("冒险", "暴风女神号", 0, 0)

Call 地下城3("冒险", "暴风女神号", 0, 0)

Call 地下城3("冒险", "暴风女神号", 0, 0)

ElseIf Form1.InputBox4.Text="5" Then

Call 地下城3("冒险", "暴风女神号", 0, 0)

Call 地下城3("冒险", "暴风女神号", 0, 0)

Call 地下城3("冒险", "暴风女神号", 0, 0)

Call 地下城3("冒险", "暴风女神号", 0, 0)

Call 地下城3("冒险", "暴风女神号", 0, 0)

Else

End If

// Call 地下城3("冒险", "暴风女神号", 0, 0)

// Call 地下城3("冒险", "暴风女神号", 0, 0)

// Call 地下城3("冒险", "暴风女神号", 0, 0)

// Call 地下城3("冒险", "暴风女神号", 0, 0)

// Call 地下城3("冒险", "暴风女神号", 0, 0)

End If

If Form1.ComboBox2.ListIndex = 1 Then

If Form1.InputBox4.Text = "0" Then

ElseIf Form1.InputBox4.Text="1" Then

//满足条件，执行下面的脚本

Call 地下城3("冒险", "黄昏修道院", 0, 0)

ElseIf Form1.InputBox4.Text="2" Then

Call 地下城3("冒险", "黄昏修道院", 0, 0)

Call 地下城3("冒险", "黄昏修道院", 0, 0)

ElseIf Form1.InputBox4.Text="3" Then

Call 地下城3("冒险", "黄昏修道院", 0, 0)

Call 地下城3("冒险", "黄昏修道院", 0, 0)

Call 地下城3("冒险", "黄昏修道院", 0, 0)

ElseIf Form1.InputBox4.Text="4" Then

Call 地下城3("冒险", "黄昏修道院", 0, 0)

Call 地下城3("冒险", "黄昏修道院", 0, 0)

Call 地下城3("冒险", "黄昏修道院", 0, 0)

Call 地下城3("冒险", "黄昏修道院", 0, 0)

ElseIf Form1.InputBox4.Text="5" Then

Call 地下城3("冒险", "黄昏修道院", 0, 0)

Call 地下城3("冒险", "黄昏修道院", 0, 0)

Call 地下城3("冒险", "黄昏修道院", 0, 0)

Call 地下城3("冒险", "黄昏修道院", 0, 0)

Call 地下城3("冒险", "黄昏修道院", 0, 0)

Else

End If

// Call 地下城3("冒险", "黄昏修道院", 0, 0)

// Call 地下城3("冒险", "黄昏修道院", 0, 0)

// Call 地下城3("冒险", "黄昏修道院", 0, 0)

// Call 地下城3("冒险", "黄昏修道院", 0, 0)

// Call 地下城3("冒险", "黄昏修道院", 0, 0)

End If

If Form1.ComboBox2.ListIndex = 2 Then

If Form1.InputBox4.Text = "0" Then

ElseIf Form1.InputBox4.Text="1" Then

//满足条件，执行下面的脚本

Call 地下城3("冒险", "恶灵古堡", 0, 0)

ElseIf Form1.InputBox4.Text="2" Then

Call 地下城3("冒险", "恶灵古堡", 0, 0)

Call 地下城3("冒险", "恶灵古堡", 0, 0)

ElseIf Form1.InputBox4.Text="3" Then

Call 地下城3("冒险", "恶灵古堡", 0, 0)

Call 地下城3("冒险", "恶灵古堡", 0, 0)

Call 地下城3("冒险", "恶灵古堡", 0, 0)

ElseIf Form1.InputBox4.Text="4" Then

Call 地下城3("冒险", "恶灵古堡", 0, 0)

Call 地下城3("冒险", "恶灵古堡", 0, 0)

Call 地下城3("冒险", "恶灵古堡", 0, 0)

Call 地下城3("冒险", "恶灵古堡", 0, 0)

ElseIf Form1.InputBox4.Text="5" Then

Call 地下城3("冒险", "恶灵古堡", 0, 0)

Call 地下城3("冒险", "恶灵古堡", 0, 0)

Call 地下城3("冒险", "恶灵古堡", 0, 0)

Call 地下城3("冒险", "恶灵古堡", 0, 0)

Call 地下城3("冒险", "恶灵古堡", 0, 0)

Else

End If

// Call 地下城3("冒险", "恶灵古堡", 0, 0)

// Call 地下城3("冒险", "恶灵古堡", 0, 0)

// Call 地下城3("冒险", "恶灵古堡", 0, 0)

// Call 地下城3("冒险", "恶灵古堡", 0, 0)

// Call 地下城3("冒险", "恶灵古堡", 0, 0)

End If

If Form1.ComboBox2.ListIndex = 3 Then

If Form1.InputBox4.Text = "0" Then

ElseIf Form1.InputBox4.Text="1" Then

//满足条件，执行下面的脚本

Call 地下城3("冒险", "远古熔炉", 0, 0)

ElseIf Form1.InputBox4.Text="2" Then

Call 地下城3("冒险", "远古熔炉", 0, 0)

Call 地下城3("冒险", "远古熔炉", 0, 0)

ElseIf Form1.InputBox4.Text="3" Then

Call 地下城3("冒险", "远古熔炉", 0, 0)

Call 地下城3("冒险", "远古熔炉", 0, 0)

Call 地下城3("冒险", "远古熔炉", 0, 0)

ElseIf Form1.InputBox4.Text="4" Then

Call 地下城3("冒险", "远古熔炉", 0, 0)

Call 地下城3("冒险", "远古熔炉", 0, 0)

Call 地下城3("冒险", "远古熔炉", 0, 0)

Call 地下城3("冒险", "远古熔炉", 0, 0)

ElseIf Form1.InputBox4.Text="5" Then

Call 地下城3("冒险", "远古熔炉", 0, 0)

Call 地下城3("冒险", "远古熔炉", 0, 0)

Call 地下城3("冒险", "远古熔炉", 0, 0)

Call 地下城3("冒险", "远古熔炉", 0, 0)

Call 地下城3("冒险", "远古熔炉", 0, 0)

Else

End If

// Call 地下城3("冒险", "远古熔炉", 0, 0)

// Call 地下城3("冒险", "远古熔炉", 0, 0)

// Call 地下城3("冒险", "远古熔炉", 0, 0)

// Call 地下城3("冒险", "远古熔炉", 0, 0)

// Call 地下城3("冒险", "远古熔炉", 0, 0)

End If

If Form1.ComboBox2.ListIndex = 4 Then

If Form1.InputBox4.Text = "0" Then

ElseIf Form1.InputBox4.Text="1" Then

//满足条件，执行下面的脚本

Call 地下城3("冒险", "红石城堡", 0, 0)

ElseIf Form1.InputBox4.Text="2" Then

Call 地下城3("冒险", "红石城堡", 0, 0)

Call 地下城3("冒险", "红石城堡", 0, 0)

ElseIf Form1.InputBox4.Text="3" Then

Call 地下城3("冒险", "红石城堡", 0, 0)

Call 地下城3("冒险", "红石城堡", 0, 0)

Call 地下城3("冒险", "红石城堡", 0, 0)

ElseIf Form1.InputBox4.Text="4" Then

Call 地下城3("冒险", "红石城堡", 0, 0)

Call 地下城3("冒险", "红石城堡", 0, 0)

Call 地下城3("冒险", "红石城堡", 0, 0)

Call 地下城3("冒险", "红石城堡", 0, 0)

ElseIf Form1.InputBox4.Text="5" Then

Call 地下城3("冒险", "红石城堡", 0, 0)

Call 地下城3("冒险", "红石城堡", 0, 0)

Call 地下城3("冒险", "红石城堡", 0, 0)

Call 地下城3("冒险", "红石城堡", 0, 0)

Call 地下城3("冒险", "红石城堡", 0, 0)

Else

End If

// Call 地下城3("冒险", "红石城堡", 0, 0)

// Call 地下城3("冒险", "红石城堡", 0, 0)

// Call 地下城3("冒险", "红石城堡", 0, 0)

// Call 地下城3("冒险", "红石城堡", 0, 0)

// Call 地下城3("冒险", "红石城堡", 0, 0)

End If

If Form1.ComboBox2.ListIndex = 5 Then

If Form1.InputBox4.Text = "0" Then

ElseIf Form1.InputBox4.Text="1" Then

//满足条件，执行下面的脚本

Call 地下城3("冒险", "钢铁监狱", 0, 0)

ElseIf Form1.InputBox4.Text="2" Then

Call 地下城3("冒险", "钢铁监狱", 0, 0)

Call 地下城3("冒险", "钢铁监狱", 0, 0)

ElseIf Form1.InputBox4.Text="3" Then

Call 地下城3("冒险", "钢铁监狱", 0, 0)

Call 地下城3("冒险", "钢铁监狱", 0, 0)

Call 地下城3("冒险", "钢铁监狱", 0, 0)

ElseIf Form1.InputBox4.Text="4" Then

Call 地下城3("冒险", "钢铁监狱", 0, 0)

Call 地下城3("冒险", "钢铁监狱", 0, 0)

Call 地下城3("冒险", "钢铁监狱", 0, 0)

Call 地下城3("冒险", "钢铁监狱", 0, 0)

ElseIf Form1.InputBox4.Text="5" Then

Call 地下城3("冒险", "钢铁监狱", 0, 0)

Call 地下城3("冒险", "钢铁监狱", 0, 0)

Call 地下城3("冒险", "钢铁监狱", 0, 0)

Call 地下城3("冒险", "钢铁监狱", 0, 0)

Call 地下城3("冒险", "钢铁监狱", 0, 0)

Else

End If

// Call 地下城3("冒险", "钢铁监狱", 0, 0)

// Call 地下城3("冒险", "钢铁监狱", 0, 0)

// Call 地下城3("冒险", "钢铁监狱", 0, 0)

// Call 地下城3("冒险", "钢铁监狱", 0, 0)

// Call 地下城3("冒险", "钢铁监狱", 0, 0)

End If

End If

Call 公会建设3(10)

End Function

Function 答题3()

Call 检测超时()

Form1.InputBox2.Text = "执行答题" & vbcrlf

Call 检测超时()

dm.MoveTo 667, 85//点击地图

Call 检测超时()

dm.LeftClick

Call 检测超时()

dm.MoveTo 595,393-36//点击搜索

Call 检测超时()

dm.LeftClick

Call 检测超时()

dm.MoveTo 529,314-36 //输入X

Call 检测超时()

dm.LeftClick

Call 检测超时()

dm.KeyPress 50

Call 检测超时()

dm.KeyPress 48

Call 检测超时()

dm.KeyPress 48

Call 检测超时()

dm.KeyPress 48

Call 检测超时()

dm.MoveTo 670, 397-36//X输入完毕

Call 检测超时()

dm.LeftClick

Call 检测超时()

dm.MoveTo 590,315-36

dm.LeftClick

Call 检测超时()

dm.KeyPress 49

Call 检测超时()

dm.KeyPress 55

Call 检测超时()

dm.KeyPress 49

Call 检测超时()

dm.KeyPress 48

Call 检测超时()

dm.MoveTo 670, 397-36//Y输入完毕

Call 检测超时()

dm.LeftClick

Call 检测超时()

dm.MoveTo 559,348-36

Call 检测超时()

dm.LeftClick

Call 检测超时()

dm.MoveTo 340,200-36

Call 检测超时()

dm.LeftClick

Call 检测超时()

dm.MoveTo 640, 88-36

Call 检测超时()

dm.LeftClick

//教育大臣对话

Call 检测超时()

/* Rem findtalk

Call 检测超时()

dm_ret = dm.FindStr(0,0,800,600,"话","f6f0a3-8f8258",1.0,intX,intY)

If intX >= 0 and intY >= 0 Then

TracePrint "找到对话"

dm.MoveTo intX, intY

Call 检测超时()

dm.LeftClick

Else

TracePrint "没找到对话"

Goto findtalk

End If*/

Rem bxz

Delay 3000

Call 检测超时()

dm_ret = dm.FindStr(0,0,800,600,"路|格|雅南","f6f0a3-8f8258",1.0,intX,intY)

If intX >= 0 and intY >= 0 Then

//Call 检测超时()

TracePrint "找到npc"

dm.MoveTo 617, 333-36

Call 检测超时()

dm.LeftClick

Else

TracePrint "没有找到npc"

dm.MoveTo 443,206-36

Call 检测超时()

dm.LeftClick

Goto bxz

End If

For i = 1 To 5 Step 1

Delay 500

dm_ret = dm.FindStr(0,0,800,600,"已|已经完成","f6f0a3-8f8258",1.0,intX,intY)

If intX >= 0 and intY >= 0 Then

//Call 检测超时()

TracePrint "找到"

dm.MoveTo 620,95-36

Call 检测超时()

dm.LeftClick

Goto quxiaodati

Else

TracePrint "没找到"

End If

Next

Delay 3000

Call 检测超时()

dm.MoveTo 520, 351-36//点击开始答题

Delay 1000

dm.LeftClick

//教育大臣对话

dm.MoveTo 278, 235-36//点击开始答题

Delay 1000

dm.LeftClick

Delay 1000

Dim TEN:TEN=0

For i = 0 To 10 Step 1

TEN = TEN + 1

If TEN = 10 Then

Goto tenover

End If

Call 检测超时()

dm_ret = dm.FindStr(0,0,800,600,"全部都对|托托|战场|增加|冰风谷|乞丐|躺下打滚|我不能获得|战场功勋|3个|托托齐|150|法术伤害|收藏界面|史诗坐骑","f6f0a3-8f8258",0.9,intX,intY)

If intX >= 0 and intY >= 0 Then

// Call 检测超时()

dm.MoveTo intX, intY

Call 检测超时()

dm.LeftClick

TracePrint "选择"

Else

TracePrint "点a"

Call 检测超时()

dm.MoveTo 305,244-36

Call 检测超时()

dm.LeftClick

End If

Delay 2000

TracePrint "循环一次"

Next

Rem tenover

TracePrint "跳出循环"

Call 检测超时()

dm.MoveTo 164, 190-36

Call 检测超时()

dm.LeftClick

Call 检测超时()

dm.MoveTo 620, 95-36

Call 检测超时()

dm.LeftClick

Rem quxiaodati

TracePrint "取消答题"

Form1.InputBox2.Text=Form1.InputBox2.Text&"答题完毕"&vbcrlf

End Function

Function 活动3()

Rem 重新开始

Delay 10000

Form1.InputBox2.Text = Form1.InputBox2.Text & "执行活动任务一次" & vbcrlf

Dim 星期

Dim b:b = Weekday(now)//分离出现在时间里面星期天数1代表星期天，7代表星期六

If b = 1 Then

星期="星期日"

ElseIf b = 2 Then

星期 = "星期一"

ElseIf b = 3 Then

星期 = "星期二"

ElseIf b = 4 Then

星期 = "星期三"

ElseIf b = 5 Then

星期 = "星期四"

ElseIf b = 6 Then

星期 = "星期五"

ElseIf b = 7 Then

星期 = "星期六"

End If

TracePrint 星期

// Call 检测超时()

// dm.KeyPress 79

dm.MoveTo 530, 58 - 36

// dm.KeyPress 79

Delay 1000

// Call 检测超时()

dm.LeftClick

Call 检测超时()

Rem huodong

Call 检测超时()

dm_ret = dm.FindStr(0,0,800,600,"活|活动","f6f0a3-8f8258",1.0,intX,intY)

If intX >= 0 and intY >= 0 Then

// Call 检测超时()

dm.MoveTo intX, intY

Call 检测超时()

dm.LeftClick

Else

Goto huodong

End If

//********检测是否做过*********

For i=1 To 10 Step 1

//这里的脚本可以循环10次

dm_ret = dm.FindStr(0,0,800,600,"0","f6f0a3-8f8258",1.0,intX,intY)

If intX >= 0 and intY >= 0 Then

TracePrint "活动任务已做"

dm.MoveTo 616 ,104-36

Call 检测超时()

dm.LeftClick

Call 检测超时()

Goto quxiaohuodong

Else

TracePrint "活动任务未做"

End If

Next

//*********检测是否做过**************

// Call 查找点击("动",0,0)

If 星期 = "星期一" Then //托托

Rem xqy

Call 检测超时()

dm.MoveTo 141, 131-36

Call 检测超时()

dm.LeftClick

Call 检测超时()

ElseIf 星期 = "星期二" Then//王牌

Rem xqw

Call 检测超时()

dm.MoveTo 141, 131-36

Call 检测超时()

dm.LeftClick

Call 检测超时()

ElseIf 星期 = "星期三" Then//元素

Rem xql

Call 检测超时()

dm.MoveTo 141, 131-36

Call 检测超时()

dm.LeftClick

Call 检测超时()

ElseIf 星期="星期四" Then

Goto xqy//托托

ElseIf 星期="星期五" Then

Goto xqw//王牌

ElseIf 星期="星期六" Then

Goto xql//元素

ElseIf 星期 = "星期日" Then

Call 检测超时()

dm.MoveTo 141, 131-36

Call 检测超时()

dm.LeftClick

Call 检测超时()

//托托

End If

//--------------执行过程-----------------

Call 检测超时()

dm.MoveTo 557, 366-36

Call 检测超时()

dm.LeftClick

Call 检测超时()

//-------------------进地下城过程----------------------

Rem xuhuan

Call 检测超时()

dm_ret = dm.FindStr(0,0,800,600,"下|进入地下城","f6f0a3-8f8258",1.0,intX,intY)

If intX >= 0 and intY >= 0 Then

// Call 检测超时()

dm.MoveTo intX ,intY

Call 检测超时()

dm.LeftClick

Call 检测超时()

dm_ret = dm.FindStr(0,0,800,600,"目|标","f6f0a3-8f8258",1.0,intX,intY)

If intX >= 0 and intY >= 0 Then

TracePrint "跳出目"

Goto tiaochu

Else

TracePrint "没找目"

Goto xuhuan

End If

Else

Call 检测超时()

dm_ret = dm.FindStr(0,0,800,600,"目|标","f6f0a3-8f8258",1.0,intX,intY)

If intX >= 0 and intY >= 0 Then

TracePrint "跳出目"

Goto tiaochu

Else

TracePrint "没找目"

Goto xuhuan

End If

End If

Rem tiaochu

//-------------------进地下城过程----------------------

//-------//协助攻击----------

Delay 18000

Call 检测超时()

Call 检测语音()

//

dm.MoveTo 449, 388-36

dm.LeftClick

//检测复活开

Rem fuhuo

Call 检测超时()

dm_ret = dm.FindStr(0,0,800,600,"活","f6f0a3-8f8258",1.0,intX,intY)

If intX >= 0 and intY >= 0 Then

TracePrint "复活"

// Call 检测超时()

dm.MoveTo intX ,intY

Call 检测超时()

dm.LeftClick

Call 检测超时()

//移动 646 409 444 293

dm.MoveTo 87, 377-36

dm.LeftDown

Call 平滑移动鼠标to(87, 387-36, 1000, 87, 377-36, 1)

dm.LeftUp

// Call 检测超时()

dm.MoveTo 87, 377-36

dm.LeftDown

Call 平滑移动鼠标to(87, 367-36, 1000, 87, 377-36, 1)

dm.LeftUp

// Call 检测超时()

//移动

Delay 500

dm_ret = dm.FindStr(0,0,800,600,"加为好友|名字|离开|总量","f6f0a3-8f8258",1.0,intX,intY)//翻拍情节

If intX >= 0 and intY >= 0 Then

TracePrint "离开"

dm.MoveTo 646, 409-36

Call 检测超时()

dm.LeftClick

Call 检测超时()

dm.MoveTo 444, 293-36

Call 检测超时()

dm.LeftClick

Goto remove

Else

//检测是否为踢出

Delay 500

dm_ret = dm.FindStr(0,0,800,600,"任|务","f6f0a3-8f8258",1.0,intX,intY)

If intX >= 0 and intY >= 0 Then

TracePrint "被踢出"

Goto 重新开始

Else

TracePrint "未被踢出"

End If

//检测是否为踢出

//移动

dm.MoveTo 87, 377-36

dm.LeftDown

Call 平滑移动鼠标to(87, 387-36, 1000, 87, 377-36, 1)

dm.LeftUp

Delay 1000

dm.MoveTo 87, 377-36

dm.LeftDown

Call 平滑移动鼠标to(87, 367-36, 1000, 87, 377-36, 1)

dm.LeftUp

Delay 1000

//移动

TracePrint "检测复活开1"

Goto fuhuo

End If

Else

Call 检测超时()

Delay 500

dm_ret = dm.FindStr(0,0,800,600,"加为好友|名字|离开|总量","f6f0a3-8f8258",1.0,intX,intY)//翻拍情节

If intX >= 0 and intY >= 0 Then

TracePrint "离开"

dm.MoveTo 646, 409-36

Call 检测超时()

dm.LeftClick

Call 检测超时()

dm.MoveTo 444, 293-36

Call 检测超时()

dm.LeftClick

Goto remove

Else

//检测是否为踢出

Delay 500

dm_ret = dm.FindStr(0,0,800,600,"任|务","f6f0a3-8f8258",1.0,intX,intY)

If intX >= 0 and intY >= 0 Then

TracePrint "被踢出"

Goto 重新开始

Else

TracePrint "未被踢出"

End If

//检测是否为踢出

//移动

dm.MoveTo 87, 377-36

dm.LeftDown

Call 平滑移动鼠标to(87, 387-36, 1000, 87, 377-36, 1)

dm.LeftUp

Delay 1000

dm.MoveTo 87, 377-36

dm.LeftDown

Call 平滑移动鼠标to(87, 367-36, 1000, 87, 377-36, 1)

dm.LeftUp

Delay 1000

//移动

TracePrint "检测"

Goto fuhuo

End If

End If

//检测复活开

Rem remove

Rem quxiaohuodong

Call 检测超时()

Form1.InputBox2.Text = Form1.InputBox2.Text & "活动任务完成" & vbcrlf

/* If 星期 = "星期日" Then

Call 周日活动 ("2")

Call 周日活动("3")

End If*/

//--------------执行过程-----------------

End Function

Function 佣兵委托3()

Call 检测超时()

Call 检测超时()

dm.MoveTo 826, 76-36

Call 检测超时()

dm.LeftClick

Call 检测超时()

Rem boxuezhe

dm_ret = dm.FindStr(0,0,800,600,"佣兵委托","f6f0a3-8f8258",1.0,intX,intY)

If intX >= 0 and intY >= 0 Then

// Call 检测超时()

dm.MoveTo intX+162 ,intY+50-36

Call 检测超时()

dm.LeftClick

Else

Call 检测超时()

dm.MoveTo 530, 480-36

Call 检测超时()

dm.LeftDown

Call 平滑移动鼠标to(530, 480-36,5000,530, 780-36,1)

dm.LeftUp

Call 检测超时()

dm_ret = dm.FindStr(0,0,800,600,"佣兵委托","f6f0a3-8f8258",0.9,intX,intY)

If intX >= 0 and intY >= 0 Then

// Call 检测超时()

dm.MoveTo intX+162, intY+50-36

Call 检测超时()

dm.LeftClick

Else

Call 检测超时()

dm.MoveTo 530, 480-36

Call 检测超时()

dm.LeftDown

Delay 100

Call 平滑移动鼠标to(530, 480-36, 5000, 530, 180-36, 1)

dm.LeftUp

TracePrint "meizhaodao"

Goto boxuezhe

End If

End If

Rem dati

//--开始答题----

Call 检测超时()

dm.MoveTo 999, 633-36

Call 检测超时()

dm.LeftClick

Call 检测超时()

//--开始答题----

For i=1 To 11 Step 1

dm_ret = dm.FindStr(0,0,800,600,"全部都对","f6f0a3-8f8258",0.9,intX,intY)

If intX >= 0 and intY >= 0 Then

// Call 检测超时()

dm.MoveTo intX, intY

Call 检测超时()

dm.LeftClick

Else

dm.MoveTo 590, 436-36

Call 检测超时()

dm.LeftClick

End If

Delay 3000

Next

Call 检测超时()

dm.MoveTo 341, 339-36

Call 检测超时()

dm.LeftClick

Call 检测超时()

dm.MoveTo 1176, 157-36

Call 检测超时()

dm.LeftClick

End Function

Function 角斗3()//a执行几次

Delay 10000

Form1.InputBox2.Text=Form1.InputBox2.Text&"执行一次角斗"&vbcrlf

Call 检测超时()

dm.MoveTo 494,57-36

Call 检测超时()

dm.LeftClick

Call 检测超时()

Call 查找点击("斗|角",0,0)

Call 检测超时()

dm.MoveTo 570,371-36//点击单人匹配

Call 检测超时()

dm.LeftClick

Call 检测超时()

//-------------------进对决----------------------

Rem xuhuan

Call 检测超时()

dm_ret = dm.FindStr(0,0,800,600,"进|进入对决","f6f0a3-8f8258",1.0,intX,intY)

If intX >= 0 and intY >= 0 Then

// Call 检测超时()

dm.MoveTo intX ,intY

Call 检测超时()

dm.LeftClick

Call 检测超时()

dm_ret = dm.FindPic(0,0,800,600,"jd.bmp","000000",0.8,0,intX,intY)

// dm_ret = dm.FindStr(0,0,800,600,"问好","f6f0a3-8f8258",1.0,intX,intY)

If intX >= 0 and intY >= 0 Then

Goto tiaochu

Else

Goto xuhuan

End If

Else

Call 检测超时()

dm_ret = dm.FindPic(0,0,800,600,"jd.bmp","000000",0.8,0,intX,intY)

// dm_ret = dm.FindStr(0,0,800,600,"问好","f6f0a3-8f8258",1.0,intX,intY)

If intX >= 0 and intY >= 0 Then

Goto tiaochu

Else

Goto xuhuan

End If

End If

Rem tiaochu

//-------------------进对决----------------------

//-------//协助攻击----------

Delay 18000

Call 检测超时()

Call 检测语音()

dm.MoveTo 449, 388-36

dm.LeftClick

Call 检测超时()

TracePrint "协助攻击"

//检测复活离开

Rem fuhuo

Call 检测超时()

dm_ret = dm.FindStr(0,0,800,600,"点击关闭","f6f0a3-8f8258",1.0,intX,intY)

If intX >= 0 and intY >= 0 Then

TracePrint "关闭"

// Call 检测超时()

dm.MoveTo intX ,intY

Call 检测超时()

dm.LeftClick

Call 检测超时()

dm_ret = dm.FindStr(0,0,800,600,"退出","f6f0a3-8f8258",1.0,intX,intY)

If intX >= 0 and intY >= 0 Then

TracePrint "检测离开跳出"

dm.MoveTo intX, intY

dm.LeftClick

Goto remove

Else

Call 检测超时()

dm_ret = dm.FindStr(0,0,800,600,"角斗场","f6f0a3-8f8258",1.0,intX,intY)

If intX >= 0 and intY >= 0 Then

TracePrint "检测到角斗场离开"

Goto remove

End If

//移动

dm.MoveTo 87, 377-36

dm.LeftDown

Call 平滑移动鼠标to(87, 387-36, 1000, 87, 377-36, 1)

dm.LeftUp

// Call 检测超时()

dm.MoveTo 87, 377-36

dm.LeftDown

Call 平滑移动鼠标to(87, 367-36, 1000, 87, 377-36, 1)

dm.LeftUp

// Call 检测超时()

//移动

TracePrint "检测复活离开"

Goto fuhuo

End If

Else

Call 检测超时()

dm_ret = dm.FindStr(0,0,800,600,"退出","f6f0a3-8f8258",1.0,intX,intY)

If intX >= 0 and intY >= 0 Then

TracePrint "检测离开跳出"

dm.MoveTo intX, intY

// Call 查找点击 ("退出",0,0)

dm.LeftClick

Goto remove

Else

Call 检测超时()

dm_ret = dm.FindStr(0,0,800,600,"角斗场|公平模式","f6f0a3-8f8258",1.0,intX,intY)

If intX >= 0 and intY >= 0 Then

TracePrint "检测到角斗场离开"

Goto remove

End If

//移动

dm.MoveTo 87, 377-36

dm.LeftDown

Call 平滑移动鼠标to(87, 387-36, 1000, 87, 377-36, 1)

dm.LeftUp

// Call 检测超时()

dm.MoveTo 87, 377-36

dm.LeftDown

Call 平滑移动鼠标to(87, 367-36, 1000, 87, 377-36, 1)

dm.LeftUp

// Call 检测超时()

//移动

Goto fuhuo

End If

End If

Rem remove

Delay 15000

//关闭窗口

Call 检测超时()

dm.MoveTo 615 ,94-36

Call 检测超时()

dm.LeftClick

//关闭窗口

TracePrint "角斗1次"

Form1.InputBox2.Text=Form1.InputBox2.Text&"角斗任务完成"&vbcrlf

End Function

//-------------------角斗----------------------

//-------------------角斗----------------------

//-------------------角斗----------------------

Function 平滑移动鼠标to3(终点坐标px,终点坐标py,移动时间,起点坐标beginx,起点坐标beginy,平滑灵敏度)

dim mx

dim x,y

dim tx,ty

x=起点坐标beginx

y=起点坐标beginy

tx=abs(x-终点坐标px)

ty=abs(y-终点坐标py)

if tx>=ty

mx=tx

else

mx=ty

end if

if mx>0

for i = 0 to mx step 平滑灵敏度

sx=int((终点坐标px*i+x*(mx-i))/mx)

sy = int((终点坐标py * i + y * (mx - i)) / mx)

dm.MoveTo sx,sy

delay int(移动时间/mx*平滑灵敏度)

Next

else

delay 移动时间

End If

dm.MoveTo 终点坐标px, 终点坐标py

平滑移动鼠标to3=true

End Function

//-------------------公会建设----------------------

Function 公会建设3(a)//a执行几次工会建设一般是10次

Delay 10000

For i=1 To 3 Step 1

Call 检测超时()

dm_ret = dm.FindPic(0,0,800,600,"ywc.bmp","000000",0.9,0,intX,intY)

If intX >= 0 and intY >= 0 Then

//Call 检测超时()

TracePrint "找到"

dm.MoveTo 1169, 161-36

Call 检测超时()

dm.LeftClick

Goto gonghuiwancheng

Else

TracePrint "没找到"

End If

Next

For i = 1 To a Step 1

Form1.InputBox2.Text = Form1.InputBox2.Text & "执行公会建设任务一次" & vbcrlf

Call 检测超时()

dm.MoveTo 422,57-36

Call 检测超时()

dm.LeftClick

Delay 2000

Call 检测超时()

dm.MoveTo 274,134-36

Call 检测超时()

dm.LeftClick

Call 检测超时()

Call 查找点击 ("城堡建设",82,25)

Call 检测超时()

dm.MoveTo 181, 300-36

Call 检测超时()

dm.LeftClick

Call 检测超时()

dm.MoveTo 181,320-36

Call 检测超时()

dm.LeftClick

Call 检测超时()

dm.MoveTo 350,300-36

Call 检测超时()

dm.LeftClick

Call 检测超时()

dm.MoveTo 350,320-36

Call 检测超时()

dm.LeftClick

Call 检测超时()

dm.MoveTo 520,300-36

Call 检测超时()

dm.LeftClick

Call 检测超时()

dm.MoveTo 520, 320-36

Call 检测超时()

dm.LeftClick

Call 检测超时()

dm.MoveTo 622,95-36

Call 检测超时()

dm.LeftClick

Form1.InputBox2.Text=Form1.InputBox2.Text&"工会建设完成等待30分钟"&vbcrlf

Delay 1800000

Next

Rem gonghuiwancheng

MessageBox "全部执行完毕"

End Function

//-------------------公会建设----------------------

//------------------点击查找函数-----------------------

Function 查找点击3(查找文字, 偏移x, 偏移y)

Call 检测超时()

dim wenzi

dim x

dim y

wenzi=查找文字

x=偏移x

y=偏移y

Rem xuhuan

TracePrint "查找" & 查找文字

dm_ret = dm.FindStr(0,0,800,600, wenzi,"f6f0a3-8f8258",1.0,intX,intY)

If intX >= 0 and intY >= 0 Then

TracePrint "ok"

// Call 检测超时()

dm.MoveTo intX+CInt(x) ,intY+CInt(y)

dm.LeftClick

Else

Goto xuhuan

End If

End Function

//--------------点击查找函数---------------------------

Function 移动点击3(坐标x,坐标y) //移动点击

Call 检测超时()

dm.MoveTo 坐标x,坐标y-36

Call 检测超时()

dm.LeftClick

Call 检测超时()

End Function

//------------------地下城-----------------------

Function 地下城3(难度, 副本, 偏移x, 偏移y)//a 冒险或者普通+偏移坐标

Delay 10000

Form1.InputBox2.Text=Form1.InputBox2.Text&"执行一次地下城"&vbcrlf

//"普通,70,40"

//"冒险,70,40"

Call 检测超时()

dm.MoveTo 529, 60-36

Call 检测超时()

dm.LeftClick

Delay 2000

dm.MoveTo 119, 124-36

Call 检测超时()

dm.LeftClick

Delay 2000

//难度

If 难度 = "普通" Then

Call 检测超时()

dm.MoveTo 243, 365-36

Call 检测超时()

dm.LeftClick

Call 检测超时()

Else

Call 检测超时()

dm.MoveTo 308, 365-36

Call 检测超时()

dm.LeftClick

Call 检测超时()

End If

//通过判断表达式的取值，来执行后面的动作或控制

Delay 500

dm.MoveTo 111, 170-36

dm.LeftDown

Call 平滑移动鼠标to(111, 100-36, 1000, 111, 170-36, 1)

dm.LeftUp

Delay 500

//难度

Call 检测超时()

// Call 查找点击(副本, 0, 0)

If 副本 = "暴风女神号" Then

Call 检测超时()

dm.MoveTo 115, 156-36

Call 检测超时()

dm.LeftClick

Call 检测超时()

ElseIf 副本 = "黄昏修道院" Then

Call 检测超时()

dm.MoveTo 115, 190-36

Call 检测超时()

dm.LeftClick

Call 检测超时()

ElseIf 副本 = "恶灵古堡" Then

Call 检测超时()

dm.MoveTo 115, 228-36

Call 检测超时()

dm.LeftClick

Call 检测超时()

ElseIf 副本 = "远古熔炉" Then

Call 检测超时()

dm.MoveTo 115, 268-36

Call 检测超时()

dm.LeftClick

Call 检测超时()

ElseIf 副本 = "红石城堡" Then

Call 检测超时()

dm.MoveTo 115, 303-36

Call 检测超时()

dm.LeftClick

Call 检测超时()

ElseIf 副本 = "钢铁监狱" Then

Call 检测超时()

dm.MoveTo 115, 342-36

Call 检测超时()

dm.LeftClick

Call 检测超时()

ElseIf 副本 = "冰风谷" Then

Call 检测超时()

dm.MoveTo 115, 376-36

Call 检测超时()

dm.LeftClick

Call 检测超时()

End If

// Call 查找点击("匹", 0, 0)

dm.MoveTo 562 ,366-36

Call 检测超时()

dm.LeftClick

Call 检测超时()

Dim i:i=0

//-------------------进地下城过程----------------------

Rem xuhuan

Call 检测超时()

dm_ret = dm.FindStr(0,0,800,600,"下|进入地下城","f6f0a3-8f8258",1.0,intX,intY)

If intX >= 0 and intY >= 0 Then

// Call 检测超时()

dm.MoveTo intX ,intY

Call 检测超时()

dm.LeftClick

Call 检测超时()

i = i + 1

If i = 5 Then

Call 检测超时()

dm.MoveTo 1065 ,660-36

Call 检测超时()

dm.LeftClick

Call 检测超时()

Goto xuhuan

End If

Call 检测超时()

// dm_ret = dm.FindPic(0,0,800,600,"mb.bmp","000000",0.9,0,intX,intY)

dm_ret = dm.FindStr(0,0,800,600,"目|标","f6f0a3-8f8258",1.0,intX,intY)

If intX >= 0 and intY >= 0 Then

TracePrint "找到目"

Goto tiaochu

Else

TracePrint "没有找到目"

Goto xuhuan

End If

Else

Call 检测超时()

// dm_ret = dm.FindPic(0,0,800,600,"mb.bmp","000000",0.9,0,intX,intY)

dm_ret = dm.FindStr(0,0,800,600,"目|标","f6f0a3-8f8258",1.0,intX,intY)

If intX >= 0 and intY >= 0 Then

TracePrint "找到目"

Goto tiaochu

Else

TracePrint "没有找到目"

Goto xuhuan

End If

End If

Rem tiaochu

//-------------------进地下城过程----------------------

//-------//协助攻击----------

Delay 18000

Call 检测超时()

Call 检测语音()

dm.MoveTo 449, 388-36

dm.LeftClick

//检测复活开

Rem fuhuo

Call 检测超时()

dm_ret = dm.FindStr(0,0,800,600,"安全复活","f6f0a3-8f8258",1.0,intX,intY)

If intX >= 0 and intY >= 0 Then

TracePrint "复活"

// Call 检测超时()

dm.MoveTo intX ,intY

Call 检测超时()

dm.LeftClick

Call 检测超时()

Goto fuhuo

Else

//移动

dm.MoveTo 87, 377-36

dm.LeftDown

Call 平滑移动鼠标to(87, 387-36, 1000, 87, 377-36, 1)

dm.LeftUp

// Call 检测超时()

dm.MoveTo 87, 377-36

dm.LeftDown

Call 平滑移动鼠标to(87, 367-36, 1000, 87, 377-36, 1)

dm.LeftUp

// Call 检测超时()

//移动

//检测是否为踢出

dm_ret = dm.FindStr(0,0,800,600,"任|务","f6f0a3-8f8258",1.0,intX,intY)

If intX >= 0 and intY >= 0 Then

TracePrint "被踢出"

Call 地下城3("普通", "暴风女神号", 0, 0)

Else

TracePrint "未被踢出"

End If

//检测是否为踢出

//弹出首次通关分享关闭

Call 检测超时()

//dm_ret = dm.FindPic(0,0,800,600,"mb.bmp","000000",0.9,0,intX,intY)

dm_ret = dm.FindStr(0,0,800,600,"目|标","f6f0a3-8f8258",1.0,intX,intY)

If intX >= 0 and intY >= 0 Then

Else

TracePrint "检测到首次通关"

Call 检测超时()

// dm.MoveTo 1331, 70-36

Call 检测超时()

// dm.LeftClick

Call 检测超时()

End If

//弹出首次通关分享关闭

//检测离开

Call 检测超时()

dm_ret = dm.FindStr(0,0,800,600,"队伍继续|分享|离开|数据统计","f6f0a3-8f8258",1.0,intX,intY)

If intX >= 0 and intY >= 0 Then

TracePrint "离开"

dm.MoveTo 643, 408-36

Call 检测超时()

dm.LeftClick

Call 检测超时()

dm.MoveTo 449, 295-36

Call 检测超时()

dm.LeftClick

Call 检测超时()

Goto remove

Else

Goto fuhuo

End If

//检测离开

End If

//检测复活开

Rem remove

Call 检测超时()

dm.MoveTo 616, 104-36

Call 检测超时()

dm.LeftClick

Call 检测超时()

TracePrint "地下城1次"

Form1.InputBox2.Text=Form1.InputBox2.Text&"地下城任务完成"&vbcrlf

End Function

Function 检测语音3()

Delay 3000

Call 检测超时()

Delay 500

dm_ret = dm.FindStr(0,0,800,600,"是","f6f0a3-8f8258",1.0,intX,intY)

If intX >= 0 and intY >= 0 Then

TracePrint "ok"

Call 检测超时()

dm.MoveTo 265 ,294-36

Call 检测超时()

dm.LeftClick

Call 检测超时()

TracePrint "检测到语音"

Else

TracePrint "没有检测到语音"

End If

End Function

Function 检测超时3()

Delay 1000

//这里的脚本可以循环10次

dm_ret = dm.FindStr(0,0,800,600,"确定|提示|定","f6f0a3-8f8258",1.0,intX,intY)

// dm_ret = dm.FindStr(0,0,800,600,"目","f6f0a3-8f8258",0.8,intX,intY)

If intX >= 0 and intY >= 0 Then

TracePrint "找到超时"

dm.MoveTo 353, 290-36

Delay 50

dm.LeftClick

Delay 50

TracePrint "检测到超时"

//TracePrint "没有检测到超时"

End If

End Function

//##################################################################################

Event Form1.Button1.Click//登录

Plugin.MemInfo.MemoryCleaner

Dim version : version ="0.01"

Dim backversion : backversion = Plugin.WebOperation.GetHTML("http://47.104.91.19:8080/version.php")

If backversion = version Then

Else

MessageBox "发现新版本"

EndScript

Goto gengxin

End If

Dim backdata//获取返回的数据

Dim uname : uname =""

Dim upwd : upwd = ""

uname = Form1.InputBox7.Text

upwd = Form1.InputBox8.Text

Delay 500

backdata=Plugin.WebOperation.GetHTML ("http://47.104.91.19:8080/api.php?uname=" & uname&"&upwd="& upwd &"&cpuid=" & cpuid&"&code=0")

If backdata = "0" Then

MessageBox "登陆失败"

Else

If CInt(backdata)>0 Then

MessageBox "登陆成功"

Form1.InputBox9.Text = backdata

Call check()

Else

MessageBox "未知错误"

EndScript

End If

End If

Rem gengxin

End Event

Event Form2.Button1.Click//注册

Plugin.MemInfo.MemoryCleaner

Dim uname:uname=""

Dim upwd:upwd=""

Dim upwd2 : upwd2 = ""

Dim backdata:backdata = ""

//获取返回的数据

uname = Form2.InputBox1.Text

upwd : upwd = Form2.InputBox2.Text

upwd2 : upwd2 = Form2.InputBox3.Text

If upwd=upwd2 Then

Delay 500

backdata=Plugin.WebOperation.GetHTML ("http://47.104.91.19:8080/api.php?uname=" & uname&"&upwd="& upwd &"&cpuid=" & cpuid&"&code=2")

If backdata= "1" Then

MessageBox "注册成功"

ElseIf backdata = "3" Then

MessageBox "账号已注册"

Else

MessageBox "注册失败"

End If

Else

MessageBox "密码不一致"

End If

End Event

Function check()

/*

Dim backdata:backdata=""//获取返回的数据

Delay 500

backdata=Plugin.WebOperation.GetHTML ("http://47.104.91.19:8080/api.php?userid=" & Form1.InputBox9.Text&"&code=3")

MyArray = Split(backdata, "||")

Form1.InputBox10.Text=MyArray(0)

If CInt(MyArray(1)) = 0 Then

Form1.Container2.ZOrder = 999

EndScript

MessageBox "账号到期"

ElseIf CInt(MyArray(1)) = 1 Then

Form1.Container2.ZOrder = 0

Else

Form1.Container2.ZOrder = 999

EndScript

MessageBox "未知错误"

End If

*/

End Function

Event Form3.Button1.Click

Dim uname : uname =""//激活

Dim no : no = ""

no = Form3.InputBox2.Text

uname = Form3.InputBox1.Text//激活

Delay 500

backdata=Plugin.WebOperation.GetHTML ("http://47.104.91.19:8080/api.php?uname=" & uname&"&no="& no&"&code=1")

If backdata = "" Then

MessageBox "未知错误"

ElseIf backdata = "2" Then

MessageBox "激活码已失效"

ElseIf backdata = "3" Then

MessageBox "账号或卡号错误"

Else

Form1.InputBox10.Text=backdata

MessageBox "激活成功,到期时间："&backdata

End If

End Event

Event Form1.zhuce.Click

GetCursorPos x,y

Form3.Close

Form2.Show

Form2.Left=x-357

Form2.Top=y-246

End Event

Event Form1.jihuo.Click

GetCursorPos x,y

Form2.Close

Form3.Show

Form3.Left=x-357

Form3.Top=y-246

End Event

Event Form1.Button2.Click

Dim version : version ="0.01"

Dim backversion : backversion = Plugin.WebOperation.GetHTML("http://47.104.91.19:8080/version.php")

If backversion = version Then

MessageBox "已是新版本"

Else

MessageBox "发现新版本"

EndScript

URL= "http://exe"

Call RunApp(URL)

End If

End Event

Event Form3.Button2.Click

URL= "http://t.cn/RFi3uc3"

Call RunApp(URL)

End Event