您现在的位置是:首页 > 精选知识 >正文

今日dnf按键精灵搬砖(按键精灵软件制作DNF刷图脚本)

发布时间:2022-08-28 09:20:21苗亚芸来源:

导读大家好,小常来为大家解答以上问题。dnf按键精灵搬砖,按键精灵软件制作DNF刷图脚本很多人还不知道,现在让我们一起来看看吧!1、大概思路...

大家好,小常来为大家解答以上问题。dnf按键精灵搬砖,按键精灵软件制作DNF刷图脚本很多人还不知道,现在让我们一起来看看吧!

1、大概思路如下:PutAttachment "C:\test_game", "*.*"Call Plugin.RegDll.Reg("C:\test_game\dm.dll")set dm = createobject("dm.dmsoft")dm_ret = dm.SetPath("c:\test_game")set ws=createobject("Wscript.Shell")ws.run "regsvr32 c:\test_game\dm.dll /s"//注册大漠到系统ver = dm.Ver()If len(ver) = 0 ThenMessageBox "创建对象失败,检查系统是否禁用了vbs脚本权限"EndScriptEnd Ifhwnd = dm.GetForegroundWindow()dm.MoveWindow hwnd,  0 , 0dm.SetDict 1, "DNF字库.txt"Dim 第一次第一次 = 0Delay 500dm_ret = dm.BindWindow(hwnd,"normal","normal","normal",0)Delay 200If dm_ret=0 ThenMessageBox "绑定“失败”"ExitScriptEnd IfUserVar 行数=1 "你的仓库在第几行"UserVar 名字="仓库" "你仓库的名字"x = 420y=124+(行数-1)*37xx = 500yy=124+行数*37info = dm.FetchWord(x,y,xx,yy,"ddc593",名字)If len(info) > 0 Thendm.SetPath "c:\test_game"dm.AddDict 0, infodm.SaveDict 0, "test.txt"ElseMsgBox  "不符合条件"End Ifdm.keypress 27Delay 300dm.keypress 66Delay 300dm.moveto 595, 91dm.leftdownDelay 50dm.leftupDelay 50Dodm_ret = dm.FindStr(411,122,507,494,名字,"ddc593",1.0,intX,intY)If intX >= 0 and intY >= 0 Thendm.MoveTo intX, intYdm.LeftClickDelay 200dm.MoveTo intX + 5, intY + 30dm.LeftClickDelay 100For 5dm.keypress 8Delay 100Nextdm.keypress 49Delay 100dm.keypress 13Delay 100dm.keypress 13Delay 100Exit doElsedm.keypress 113Delay 10End IfLoo。

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

标签:

上一篇
下一篇

最新文章