//注册大漠插件
DimEnv 窗口句柄
If Lib.公共库.注册大漠插件("") = - 1 Then
TracePrint "注册大漠插件失败"
EndScript
Else
TracePrint "插件注册成功"
End If
//创建大漠对象
Set dm = CreateObject("dm.dmsoft")
//设置大漠全局路径
dm_ret = dm.SetPath("f:\lyc\")
dm_ret = dm.SetDict(0, "字符.txt")
If 获取窗口句柄() Then
TracePrint "[获取窗口句柄]窗口句柄"&窗口句柄
Call 主窗口绑定()
Else
TracePrint "获取窗口句柄失败,请把鼠标移到游戏窗口中"
End If
//------------------获取游戏窗口句柄------------------//
function 获取窗口句柄()
窗口句柄 = dm.GetMousePointWindow()
获取窗口句柄=窗口句柄
End Function
//------------------ 主窗口绑定----------------------//
Sub 主窗口绑定()
If dm.BindWindow(窗口句柄, "normal", "normal", "normal", 0) = 1 Then
线任线程ID = BeginThread(任务线程)
Else
TracePrint "主窗口绑定失败"
EndScript
End If
//--------------------脚本卡住--------------------------//
Do
Delay 200
Loop
End Sub
//-------------------脚本解绑退出------------------------//
Sub OnScriptExit()
dm_ret=dm.UnBindWindow()
End Sub
//------------------线程解绑退出------------------------//
Sub OnThreadExit()
dm_ret=dm.UnBindWindow()
End Sub
//---------------------任务线程----------------------//
Sub 任务线程()
Set dm = CreateObject("dm.dmsoft")
dm_ret = dm.BindWindow(窗口句柄, "normal", "normal", "normal", 0)
dm_ret = dm.SetPath("f:\lyc\")
dm_ret = dm.SetDict(0, "字符.txt")
TracePrint "创建任务线程成功"
//获取任务列表任务分类
Select Case 任务分类
Case "自动五环"
TracePrint "自动五环"
Call 自动五环()
Case "自动抓鬼"
Call 自动抓鬼
End Select
End Sub
//------------------------获取任务分类------------------//
Function 任务分类()
任务分类 = split(form1.combobox1.List,"|")(form1.combobox1.listindex)
End Function
//------------------------自动五环--------------------//
Sub 自动五环()
//检查五环任务状态 未接取还是未完成
Call 检查五环任务()
End Sub
function 检查五环任务()
Do
Call 调任务栏()
Delay 500
If 任务栏() Then
dm_ret = dm.FindPic(246,165,477,4991,"五.bmp|五1.bmp","000000",0.9,0,intX,intY)
If intX>=0 and intY&
大话西游2智能自动五环 源码 有需要拿去图片自己做
最新推荐文章于 2024-08-24 06:15:00 发布
这是一个使用大漠插件编写的自动化脚本,用于大话西游2游戏中的自动五环任务。脚本包含了任务的各个阶段,如检查任务状态、自动接取和完成任务等。通过图像识别和按键模拟,实现了任务流程的自动化。
摘要由CSDN通过智能技术生成