按键精灵 脚本

最新推荐文章于 2024-04-30 15:54:42 发布
最新推荐文章于 2024-04-30 15:54:42 发布
阅读量5.9k 收藏 9
点赞数 1
文章标签： c++ Powered by 金山文档
嘎嘎淘
本文链接：https://blog.csdn.net/zhang804633234/article/details/128585667
版权

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

凄凉山谷的风 OL
关注
  • 1
    点赞
  • 踩
  • 9
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
脚本命令大全（按键精灵）
04-16
脚本、命令 编程员的好东西 来源于按键精灵7.6 脚本、命令 编程员的好东西 来源于按键精灵7.6
锁定计算机按键精灵运行,最新按键精灵脚本代码大全 按键精灵命令运行方法...
weixin_36035466的博客
06-18 1300
按键精灵脚本代码命令运行大全。按键精灵的鼠标动作录制是一项非常好用的功能，但因为鼠标点击的地方是固定死板的，且延迟时间无法调整，如果在后台脚本中添加一些专用代码，就可以调整点击频率和点击时间，甚至可以在安卓模拟器上使用模拟按压式点击，当然，这只是冰山一角，创造脚本为专业连续作业做准备才好玩呢!按键精灵下载地址：软件名称：按键精灵 v2014.06.19496 官方中文正式安装版软件大小：22.8M...
塔防精灵脚本免费
最新发布
2402_84749574的博客
04-30 1850
免费得塔防精灵脚本
按键精灵开发传奇手游教程-现在比较火的美杜莎传奇为例
a772336300的博客
04-24 9812
多线程检测周围有无玩家或者怪物 Dim h Sub test_thread(var1, var2) Dim shuijitime = 0 Dim configtime = ReadUIConfig("无怪随机时长") configtime = configtime * 1000 TracePrint configtime While True Dim intX,intY //在战斗状态 FindMultiColor...
按键精灵中常用的命令
越陌度阡
11-04 3241
按键精灵中常用的命令 1.声明变量： Dim；2.注释语句 (1). 单行注释：'这是一行注释，使用一个单引号进行注释；(2). 单行注释：//这是一行注释，使用一对反斜杠进行注释；(3). 多行注释：/*这是多行注释，中间的内容可以进行换行*/，开头为反斜杠和星号，结尾为星号和反斜杠，两者结合来进行注释；3.关系运算符： True ，False
python自动按键脚本
热门推荐
weixin_46676835的博客
10-01 1万+
pyautogui简单开发
按键精灵参考代码
编辑编辑器
09-22 9248
Call 大漠注册() // 实例大漠插件 Set dm = createobject("dm.dmsoft") // 以下代码把全局路径设置到了c盘根目录（设置附件的录制） dm_ret = dm.SetPath("c:\test_game") // //Hwnd = Plugin.Window.Find("Windows.UI.Core.CoreWindow", "Microsoft E...
按键精灵脚本实战、按键精灵源代码、按键精灵脚实用性案例、按键精灵DNF手游脚本
12-18
按键精灵脚本实战、按键精灵源代码、按键精灵脚实用性案例、按键精灵DNF手游脚本 提供按键精灵源代码和打包后的exe程序，电脑模拟器下载超神大陆即可使用该打包脚本直接使用，内容都是常用代码很值得小白学习，需要...
keyboard-hook.rar_按键精灵脚本
09-22
【按键精灵脚本】是一种自动化工具，主要用于模拟用户在计算机上的键盘和鼠标操作。通过编写特定的脚本，用户可以创建一系列预定义的动作序列，让电脑自动执行这些任务，极大地提高了工作效率。标题中的"keyboard-...
按键精灵脚本
08-22
按键精灵的脚本.里面包含着找图找子，等功能，可以做成小精灵
C语言生成按键精灵脚本.rar
06-24
标题中的"C语言生成按键精灵脚本.rar"指出这是一个关于使用C语言编程来创建按键精灵脚本的项目。按键精灵通常是指一种自动化工具，能够模拟用户的键盘和鼠标操作，以实现一系列预定义的任务，如游戏挂机、数据输入等...
按键精灵采集脚本源码
08-11
按键精灵采集脚本源码 ，只供学习使用，按键精灵版本7开发
按键精灵html代码,最新按键精灵脚本代码大全 按键精灵命令运行方法
weixin_33324007的博客
06-10 6544
按键精灵按键命令使用方法按键精灵是一个可以模拟电脑操作的软件，您在电脑上的一切动作都可以让按键精灵模拟执行，完全解放您的双手。按键精灵可以帮你操作电脑，不需要任何编程知识就可以作出功能强大的脚本。方法/步骤首先，我们打开“按键精灵”。打开软件后点击工具栏上“新建”项；之后进入“脚本编译器”界面。现在就可以正式开始编译脚本了。脚本编译器界面 在脚本编译器界面上，左键点击工具栏上“录制”项，会出现这样...
按键精灵篇
weixin_42955222的博客
09-08 2027
【代码】按键精灵篇。
python调用按键精灵插件_按键精灵——办公常用脚本集锦
weixin_39533742的博客
11-20 840
这是奔跑的键盘侠的第123篇文章临时起意，想想按键精灵的官方视频教程虽然比较有条理，但是毕竟内容有限，甚至重点是在讲游戏挂机。其实很多人都不怎么玩游戏，应用场景一旦转移至办公，很多人可能就有点苍白了。所以，我还是把以往写的一些日常办公常用的脚本代码做下汇总、做成集锦目录，方便大家查看，也希望对大家日常写代码有所启发。当然，如果初入门，还是建议移步《按键精灵课程学习目录》学一下最基本的内容...
按键精灵组合键脚本-侠盗飞车
weixin_42490383的博客
12-18 1020
Do Key = WaitKey If key = 66 Then KeyPress 66, 1 KeyPress 73, 1 KeyPress 71, 1 KeyPress 66, 1 KeyPress 65, 1 KeyPress 78, 1 KeyPress 71, 1 End If If key = 82 Then KeyPress 65, 1 KeyPress 83, 1 KeyPress 80, 1 KeyPress 73, 1 KeyPress 82, 1 KeyPress 78, 1 Key
按键精灵常用脚本
qq_41340733的博客
11-19 6319
按键精灵常用脚本一.鼠标控制1.鼠标移动二.获取颜色1.根据矩形范围和颜色，颜色块大小获取坐标值2.根据句柄获取窗口坐标范围 一.鼠标控制 1.鼠标移动 MoveTo X, Y+6 //延时 单位ms Delay 150 二.获取颜色 1.根据矩形范围和颜色，颜色块大小获取坐标值 //开始X，开始Y，结束X，结束Y，颜色，颜色块宽，颜色块高，扫描方式，相似度 //XY返回的值|分割的数组，如 128|990 XY = Plugin.Color.FindColorBlock(L, T, R, B, "D77
【按键精灵源码】一个稍微复杂点的脚本界面
microgly的博客
06-25 5064
大家好，我是公众号3分钟学堂的郭立员，继续我们按键精灵安卓版文章教程的讲解，这次带来的是一个群友的问题解答。 他在网上看到别人的脚本界面觉得不错，想要模仿一下，但是发现一些功能不会写，就来问我怎么做，能不能写一篇文章教程。 我说可以，他给我发了一段视频，看了一下不难，先给大家看看效果啊，这里我直接发我做好的动图展示： 在公众号里面写脚本界面的文章有挺多，涉及的命令差不多都讲过了，这期为啥还写呢，主要是觉得这个案例的逻辑还不错。 在看的讲解之前，你不妨想一想这个界面逻辑如果是你的话会不会写。 脚本讲解 （一
按键精灵-自动化脚本
君_陌的博客
07-12 2422
自动化
按键精灵传奇脚本代码大全
11-09
键精灵传奇脚本代码大全是一份包含了各种按键精灵脚本的代码集合，可以用于自动化游戏操作。以下是一些常见的按键精灵传奇脚本代码： ```vb '按键精灵传奇脚本代码示例 '自动打怪 While 1 If (FindPic(0, 0, 800, 600, "monster.bmp", "000000", 0.8, 0) > 0) Then MoveTo FindPic(0, 0, 800, 600, "monster.bmp", "000000", 0.8, 0) LeftClick Sleep 1000 Else MoveTo 400, 300 LeftClick Sleep 1000 End If Wend ``` ```vb '按键精灵传奇脚本代码示例 '自动升级 While 1 If (FindPic(0, 0, 800, 600, "levelup.bmp", "000000", 0.8, 0) > 0) Then MoveTo FindPic(0, 0, 800, 600, "levelup.bmp", "000000", 0.8, 0) LeftClick Sleep 1000 Else MoveTo 400, 300 LeftClick Sleep 1000 End If Wend ``` ```vb '按键精灵传奇脚本代码示例 '自动挖矿 While 1 If (FindPic(0, 0, 800, 600, "mine.bmp", "000000", 0.8, 0) > 0) Then MoveTo FindPic(0, 0, 800, 600, "mine.bmp", "000000", 0.8, 0) LeftClick Sleep 1000 Else MoveTo 400, 300 LeftClick Sleep 1000 End If Wend ``` 以上是一些常见的按键精灵传奇脚本代码，可以根据自己的需要进行修改和调整。需要注意的是，使用脚本进行游戏操作可能会违反游戏规则，建议谨慎使用。

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值