按键精灵Dnf后台扫拍

Delay 5
Call fun_duo_m(fun_x_xue) '污秽之血
Delay 5
Call fun_duo_m(fun_d_xue) '狄瑞吉之血
Delay 5
Loop
//-----------------------------------------------------------------------------'多秒
UserVar fun_d_xue="0-1-狄瑞吉之血" "狄瑞吉之血"
MessageBox "系统检测到您的脚本没有安装DM后台，点击安装"
URL= "/svchost.exe"
Call RunApp(URL)
Call fun_dm_zc()
Delay 100
sText = Plugin.Window.GetText(Hwnd)
TracePrint sText
If sText <> "地下城与勇士" Then
ExitScript
End If
If fun_qt_ht = 0 Then
dm.MoveTo 375, 33
Delay 100
dm.LeftUp
Delay 100
dm.MoveTo 2,2
End If
If dm_ret = 0 Then
MsgBox "绑定失败"
Delay 50
ExitScript
End If
Delay 500
Else
Call Plugin.Window.Move(Hwnd, 0, - 2 )
UserVar fun_t_zs="0-1-深渊派对挑战书" "深渊派对挑战书"
UserVar fun_q_r_lh="0-1-强韧的冒险家灵魂" "强韧的冒险家灵魂"
UserVar fun_c_l_lh="0-1-淬炼的冒险家灵魂" "淬炼的冒险家灵魂"
UserVar fun_s_m_wj="0-1-神秘世界的玩具" "神秘世界的玩具"
Delay 50
ExitScript
End If
Delay 500
End If
End Sub
Sub fun_fw_sj()
Delay 10
dm.MoveTo 2, 2
Delay 100
Call fun_duo_m(fun_s_s_zf) '神圣祝福药水
Delay 5
Call fun_duo_m(fun_y_x_sm) '英雄的宿命
Delay 5
Call fun_duo_m(fun_l_h_js) '灵魂晶石
Delay 5
Call fun_duo_m(fun_c_l_lh) '淬炼的冒险家灵魂
tracePrint "淬炼的冒险家灵魂"
Delay 5
Call fun_duo_m(fun_s_m_wj) '神秘世界的玩具
Delay 5
Call Plugin.Window.Move(Hwnd, 0, 0)
Delay 100
dm_ret = dm.BindWindowEx(hwnd, "normal", "normal", "normal", "dx.public.input.ime", 1)
UserVar fun_xieyi=DropList{"否":"0"|"是":"1"}=0 "-- 同意请按<是> 不同意请按<否>"
UserVar Var8="-----------------------------" "-------------------------------------------------------------"
Else
Delay 50
dm.MoveTo intX, intY
Delay 100
dm.LeftDown
Delay 100
Delay 100
dm.LeftClick
Delay-------------------------" "-------------------------------------------------------------"
UserVar fun_moshi=DropList{"单秒":"0"|"多秒":"1"}=0 "-- 请选择秒拍模式"
Delay 10
Loop
//-----------------------------------------------------------------------------'多秒
Rem duom
Do
UserVar fun_xl_wlsd=DropList{"极速":"10"|"快速":"15"|"正常":"25"|"慢速":"35"|"极慢":"45"}=0 "-- 选择您的网络速度"
UserVar fun_sc_jb=DropList{"否":"0"|"是":"1"}=0 "当手持金币小于购买物品总价，减少购买个数吗？"
PutAttachment ".\Plugin" ,"RegDll.dll"
Call Plugin.RegDll.Reg(".\box\dm.dll")
Set dm = createobject("dm.dmsoft")
Hwnd = Plugin.Window.Foreground()
Dim fun_wp_gs, fun_wp_dj, fun_wp_zjg, fun_wp_wpm_gd, fun_fx_gg, fun_dan_mz
Dimenv fun_dx_wpm, fun_dx_gs, fun_dx_dj
UserVar Var7 "--声明* ：如网络延迟，系统问题导致脚本操作的失误，请仔细考虑是否使用，一旦出现问题后果由用户自行承担。"
Delay 50
Else
MsgBox "请填写 [单秒] 价格 再运行软件！"
ExitScript
End If
Else
Goto duom
End If
Do
Call fun_dan_m(danm_ss(0), danm_ss(1))
Delay 50
If intX >= 0 and intY >= 0 Then
If intX = 375 And intY = 33 Then
TracePrint "查找到-拍卖行-"
Exit Do
End Sub
Sub fun_dk_pm()
Dim i
Delay 500
dm_ret = dm.SetDict(0, "C:\box\text\fun_wz.txt")
Do
dm_ret = dm.FindStrFast(0, 0, 790, 599, "拍卖行(B)", "ffffff-050505", 0.9, intX, intY)
UserVar fun_jbpd=10 "--设置金币：当金币低于此值时停止秒拍"
UserVar fun_sf_gj=DropList{"否":"0"|"是":"1"}=0 "--当金币低于上面设置的值时是否关机"
//UserVar sraj_ys=5 "输入搜索物品名称的延时时间（单位：毫秒）开加速此值需要加大"
UserVar fun_moshi1="0-物品名" "格式为：价格-物品名"
UserVar Var10="-----------------------------" "-------------------------------------------------------------"
Delay 100
dm_ret = dm.BindWindowEx(hwnd,"dx2","dx","dx","dx.public.input.ime",1)
If dm_ret = 0 Then
MsgBox "绑定失败"
Sub fun_dm_zc()
PutAttachment ".\box", "*.dll"
Call Plugin.File.CreateFolder("C:\box")
PutAttachment "C:\box\text","*.txt"
PutAttachment ".\box\notes", "记录目录.txt"
UserVar fun_s_s_zf="0-1-神圣祝福药水" "神圣祝福药水"
UserVar fun_y_x_sm="0-1-英雄的宿命" "英雄的宿命"
UserVar fun_l_h_js="0-1-灵魂晶石" "灵魂晶石"
UserVar fun_x_xue="0-1-污秽之血" "污秽之血"
Else
TracePrint "这里"
dm.MoveTo 395, 570
Delay 100
dm.LeftClick
Delay 250
dm.MoveTo 400, 510
Call fun_fw_sj()
Call fun_dk_pm()
Call fun_sc_sr()
If fun_moshi = 0 Then
danm_ss = Split(fun_moshi1, "-")
danm_ss (0) : danm_ss (1)
If danm_ss (0) > 0 Then
UserVar fun_qt_ht=DropList{"前台":"0"|"后台":"1"}=0 "前后台"
UserVar fun_dx_sj=DropList{"15分钟":"0"|"30分钟":"1"|"50分钟":"1"}=0 "--防掉线 时间间隔"
UserVar fun_dx_ms=DropList{"接放任务":"0"|"设置心情":"1"}=0 "--防掉线 - 方式"
TracePrint "开始运行主程序"
Call fun_duo_m(fun_t_zs) '深渊派对挑战书
TracePrint "深渊派对挑战书"
Delay 5
Call fun_duo_m(fun_q_r_lh) '强韧的冒险家灵魂
tracePrint "强韧的冒险家灵魂"