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 检测超时()
