//↑多线程“后台”，无限多开//Dim hwnd,dm_ret,intX,intY,zx,zy,s//Dim B_遍历,S_遍历,iDimEnv 准备,aa,YY准备="开始"YY=5//↑环境变量“准备”，用来判断，单个线程，是否，运行成功Call 注册()//------------------------------Rem 检测窗口B_遍历 = dm.EnumWindow(0,"新炫舞","Gamebryo Application",1+2)TracePrint B_遍历S_遍历 = split(B_遍历,",")Delay 50If UBound(S_遍历) >= 0 Then //判断是否搜到句柄？ jk=UBound(S_遍历)+1Call Plugin.Msg.Tips("已检测到游戏已开"&jk&"个帐户")For i=0 to UBound(S_遍历)aa=Int(S_遍历(i))TracePrint aa//↑环境变量“aa”，传递“窗口句柄”Delay 50BeginThread 指挥中心YY=YY+10//绑定时每个窗口Y坐标加10排列Delay 1000NextElse BOX= MsgBox ("没有检测到运行中的“51新炫舞”"&VBCR&"请开启全部要挂机的游戏后重试", 5+64, "51新炫舞脚本提示")If BOX = 4 Then Goto 检测窗口End IfEndScript End IfDoDelay 1000Loop While 7=7//↑全部“多线程”启动完成，让主程序，进入死循环//--------------------------------------------------------------------//------------------------------子程序------------------------------//--------------------------------------------------------------------Sub 指挥中心()hwnd=aaTracePrint hwndset dm = createobject("dm.dmsoft")//↑每一个线程，必须创建一个，大漠对象dm.SetPath "c:\test_game"//↑指定，大漠“相对路径”(通通改成了绝对路径)dm.SetDict 0,"dm_soft.txt"//↑相对路径……第一个·字库(通通改成了绝对路径)Delay 50//Call 绑定()准备="成功"Do//子线程循环脚本主体Call 左键单击(665, 444) Delay 200Loop While 7=7End Sub//Sub 左键单击(zx,zy)dm.MoveTo zx,zyDelay 50dm.LeftClickEnd Sub//Sub 绑定()Dodm_ret = dm.SetWindowState(hwnd,12)//↑设置“窗口”状态为恢复并激活指定窗口dm.MoveWindow hwnd,-10,YY//↑移动“窗口”到指定位置，允许移到“屏幕”外Delay 500dm_ret = dm.BindWindow(hwnd,"dx2", "dx", "dx",0)Delay 200If dm_ret=1 ThenTracePrint "绑定窗口"&hwnd&"成功"Exit DoEnd IfLoop While 7=7//↑如果，成功，退出Do循环//↑如果，失败，就一直绑定，直到成功End Sub//Sub 注册()need_ver = "3.1201B"// 这里选择c盘的test-_game作为插件的基本目录 也就是SetPath对应的目录。所以所有资源都释放在此目录.PutAttachment "c:\test_game","*.*"// 这里要用到RegDll来注册插件，所以必须释放到Plugin. 但是切记不能把dm.dll释放到Plugin.那会导致插件失效.PutAttachment ".\Plugin" ,"RegDll.dll"//↑PutAttachment释放附件// 插件注册开始>>>>>>>>>>>>>>>>>>>// 下面开始注册插件,先尝试用RegDll来注册.这里必须使用绝对路径。以免有别人把dm.dll释放在系统目录.造成版本错误.Call Plugin.RegDll.Reg("c:\test_game\dm.dll") set dm = createobject("dm.dmsoft")ver = dm.Ver()if ver need_ver then// 先释放先前创建的dmset dm = nothing// 再尝试用regsvr32 来注册. 这里必须使用绝对路径。以免有别人把dm.dll释放在系统目录.造成版本错误.set ws=createobject("Wscript.Shell")ws.run "regsvr32 c:\test_game\dm.dll /s"set ws=nothingDelay 1500 // 再判断插件是否注册成功set dm = createobject("dm.dmsoft")ver = dm.Ver()if ver need_ver then// 这时，已经确认插件注册失败了。 弹出一些调试信息，以供分析messagebox "插件版本错误,当前使用的版本是:"&ver&",插件所在目录是:"&dm.GetBasePath()endscriptend ifend if// 插件注册结束