设为首页收藏本站
DIY

果壳热

搜索
果壳热»果壳热 › 果壳学院班级 › 果壳特训班 › 果壳Ｈ班 › 暗黑2后台处理，按键精灵自带插件使用问题，请帮忙 ...

暗黑2后台处理，按键精灵自带插件使用问题，请 ...

右掌心[特训班学员(果壳门生)] [学号:H27] Rank: 12Rank: 12Rank: 12 果壳学院特训班学员 果壳币: 166

发表于 2020-10-26 11:09:54 | 2 条回复 | 140 次浏览

院长，我这个后台执行的时候，为啥前台的鼠标都要移动一次啊？
8377e8abff3b7e9.png

赞赏

回复 道具 举报

发新帖
果壳王子[果壳校长] [王子殿下] Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20 果壳热讲师 独家品牌学院 果壳热大导师 果壳学院创始人 果壳热教职工 果壳热平台站长 果壳学院校长/副校长 果壳学长 果壳热研究生 果壳币: 6517

发表于 2020-10-26 18:51:06

答曰：因为按键不好使，请使用大漠，很丝滑！

按键精灵的后台命令不够丝滑的问题已经是历史遗留问题了，老树盘根错节，砍不断，理还乱……

因此我们提倡涉及后台键鼠、绑窗、后台图色的命令，可采用大漠插件来执行，不光丝滑，还溜的飞起！

代码示例：
  1. Dim hwnd, hwnds, intx, inty
  2. main
  3. Sub 注册大漠
  4.     need_ver = "3.1233"
  5.     // 插件需要用到atl系统库,有些XP精简系统会把atl.dll精简掉. 为了防止注册失败，这里手动注册一下atl.dll
  6.     Set ws = createobject("Wscript.Shell")
  7.     ws.run "regsvr32 atl.dll /s"
  8.     set ws=nothing
  9.     // 释放附件>>>>>>>>>>>>>>>>>>>
  10.     If 释放过 = false Then
  11.         释放过 = true
  12.         PutAttachment ".\Plugin", "RegDll.dll"
  13.         PutAttachment "c:\资源目录", "dm.dll"
  14.         PutAttachment "c:\资源目录", "logo.bmp"
  15.         Delay 100
  16.     End If
  17.     Dim iPath_
  18.     iPath_ = Plugin.SysEx.GetDir(0)
  19.     If Plugin.RegDll.Reg("c:\资源目录\dm.dll")=1 Then
  20.         TracePrint "——大漠注册成功——"
  21.     End If
  22.     // 这里判断是否注册成功
  23.     set dm = createobject("dm.dmsoft")
  24.     ver = dm.Ver()
  25.     TracePrint "大漠版本号："&ver
  26.     if ver <> need_ver then
  27.         // 先释放先前创建的dm
  28.         set dm = nothing
  29.         // 再尝试用regsvr32 来注册. 这里必须使用绝对路径。以免有别人把dm.dll释放在系统目录.造成版本错误.
  30.         Set ws = createobject("Wscript.Shell")
  31.         ws.run "regsvr32 c:\资源目录\dm.dll /s"
  32.         set ws=nothing
  33.         Delay 1500  
  34.         // 再判断插件是否注册成功
  35.         set dm = createobject("dm.dmsoft")
  36.         ver = dm.Ver()
  37.         if ver <> need_ver then
  38.             // 这时，已经确认插件注册失败了。 弹出一些调试信息，以供分析.
  39.             messagebox "插件版本错误,当前使用的版本是:"&ver&",插件所在目录是:"&dm.GetBasePath()
  40.             messagebox "请关闭程序,重新打开本程序再尝试"
  41.             ExitScript
  42.         end if
  43.     End If
  44.     dm.SetPath "c:\资源目录"
  45.     dm.SetShowErrorMsg (0)
  46. End Sub
  47. Sub main
  48.     注册大漠
  49.     RunApp "notepad.exe" //弹出一个txt窗口
  50.     Do
  51.         Delay 500
  52.         hwnds = dm.EnumWindow(0, "无标题 - 记事本", "", 1) //循环查找txt窗口
  53.     Loop While hwnds = ""
  54.     TracePrint "窗口句柄："&hwnds
  55.     hwnd = dm.EnumWindow(hwnds, "", "Edit", 2) //查找txt窗口的子句柄(即可编辑的区域)
  56.     CALL dm.BindWindow(hwnd,"gdi","windows","windows",1) //大漠后台绑定窗口
  57.     dm.moveto 10, 10 //后台鼠标移动
  58.     dm.leftclick //后台鼠标点击
  59.     Call dm.SendString(hwnd, "我爱果壳王子") //输出文字
  60.     Do
  61.         dm_ret = dm.FindPic(0,0,115,30,"logo.bmp","000000",0.9,0,intX,intY) //查找果壳王子大名
  62.     Loop while dm_ret<>0
  63.     TracePrint "果壳王子大名坐标：" & intx & "," & inty
  64. End Sub
复制代码

大漠后台键鼠图色代码示例.zip (754.9 KB, 下载次数: 4)

回复 道具 举报

右掌心[特训班学员(果壳门生)] [学号:H27] Rank: 12Rank: 12Rank: 12 果壳学院特训班学员 果壳币: 166

发表于 2020-10-27 09:41:38

谢谢大佬

回复 道具 举报

发新帖

手机版

© 2020-2030 果壳热 All rights reserved.

Powered by GUOHOT XS8.8. Theme designed by GUOKEHOT.

top bottom