(资料图)

1、大概思路如下：PutAttachment"C:\test_game","*.*"CallPlugin.RegDll.Reg("C:\test_game\dm.dll")setdm=createobject("dm.dmsoft")dm_ret=dm.SetPath("c:\test_game")setws=createobject("Wscript.Shell")ws.run"regsvr32c:\test_game\dm.dll/s"//注册大漠到系统ver=dm.Ver()Iflen(ver)=0ThenMessageBox"创建对象失败,检查系统是否禁用了vbs脚本权限"EndScriptEndIfhwnd=dm.GetForegroundWindow()dm.MoveWindowhwnd,0,0dm.SetDict1,"DNF字库.txt"Dim第一次第一次=0Delay500dm_ret=dm.BindWindow(hwnd,"normal","normal","normal",0)Delay200Ifdm_ret=0ThenMessageBox"绑定“失败”"ExitScriptEndIfUserVar行数=1"你的仓库在第几行"UserVar名字="仓库""你仓库的名字"x=420y=124+(行数-1)*37xx=500yy=124+行数*37info=dm.FetchWord(x,y,xx,yy,"ddc593",名字)Iflen(info)>0Thendm.SetPath"c:\test_game"dm.AddDict0,infodm.SaveDict0,"test.txt"ElseMsgBox"不符合条件"EndIfdm.keypress27Delay300dm.keypress66Delay300dm.moveto595,91dm.leftdownDelay50dm.leftupDelay50Dodm_ret=dm.FindStr(411,122,507,494,名字,"ddc593",1.0,intX,intY)IfintX>=0andintY>=0Thendm.MoveTointX,intYdm.LeftClickDelay200dm.MoveTointX+5,intY+30dm.LeftClickDelay100For5dm.keypress8Delay100Nextdm.keypress49Delay100dm.keypress13Delay100dm.keypress13Delay100ExitdoElsedm.keypress113Delay10EndIfLoo。

本文到此结束，希望对大家有所帮助。