大话西游2智能自动五环 源码 有需要拿去图片自己做

//注册大漠插件
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&