答曰:因为按键不好使,请使用大漠,很丝滑!
按键精灵的后台命令不够丝滑的问题已经是历史遗留问题了,老树盘根错节,砍不断,理还乱……
因此我们提倡涉及后台键鼠、绑窗、后台图色的命令,可采用大漠插件来执行,不光丝滑,还溜的飞起!
代码示例:- Dim hwnd, hwnds, intx, inty
- main
- Sub 注册大漠
- need_ver = "3.1233"
- // 插件需要用到atl系统库,有些XP精简系统会把atl.dll精简掉. 为了防止注册失败,这里手动注册一下atl.dll
- Set ws = createobject("Wscript.Shell")
- ws.run "regsvr32 atl.dll /s"
- set ws=nothing
- // 释放附件>>>>>>>>>>>>>>>>>>>
- If 释放过 = false Then
- 释放过 = true
- PutAttachment ".\Plugin", "RegDll.dll"
- PutAttachment "c:\资源目录", "dm.dll"
- PutAttachment "c:\资源目录", "logo.bmp"
- Delay 100
- End If
- Dim iPath_
- iPath_ = Plugin.SysEx.GetDir(0)
- If Plugin.RegDll.Reg("c:\资源目录\dm.dll")=1 Then
- TracePrint "——大漠注册成功——"
- End If
- // 这里判断是否注册成功
- set dm = createobject("dm.dmsoft")
- ver = dm.Ver()
- TracePrint "大漠版本号:"&ver
- if ver <> need_ver then
- // 先释放先前创建的dm
- set dm = nothing
- // 再尝试用regsvr32 来注册. 这里必须使用绝对路径。以免有别人把dm.dll释放在系统目录.造成版本错误.
- Set ws = createobject("Wscript.Shell")
- ws.run "regsvr32 c:\资源目录\dm.dll /s"
- set ws=nothing
- Delay 1500
- // 再判断插件是否注册成功
- set dm = createobject("dm.dmsoft")
- ver = dm.Ver()
- if ver <> need_ver then
- // 这时,已经确认插件注册失败了。 弹出一些调试信息,以供分析.
- messagebox "插件版本错误,当前使用的版本是:"&ver&",插件所在目录是:"&dm.GetBasePath()
- messagebox "请关闭程序,重新打开本程序再尝试"
- ExitScript
- end if
- End If
- dm.SetPath "c:\资源目录"
- dm.SetShowErrorMsg (0)
- End Sub
- Sub main
- 注册大漠
- RunApp "notepad.exe" //弹出一个txt窗口
- Do
- Delay 500
- hwnds = dm.EnumWindow(0, "无标题 - 记事本", "", 1) //循环查找txt窗口
- Loop While hwnds = ""
- TracePrint "窗口句柄:"&hwnds
- hwnd = dm.EnumWindow(hwnds, "", "Edit", 2) //查找txt窗口的子句柄(即可编辑的区域)
- CALL dm.BindWindow(hwnd,"gdi","windows","windows",1) //大漠后台绑定窗口
- dm.moveto 10, 10 //后台鼠标移动
- dm.leftclick //后台鼠标点击
- Call dm.SendString(hwnd, "我爱果壳王子") //输出文字
- Do
- dm_ret = dm.FindPic(0,0,115,30,"logo.bmp","000000",0.9,0,intX,intY) //查找果壳王子大名
- Loop while dm_ret<>0
- TracePrint "果壳王子大名坐标:" & intx & "," & inty
- End Sub
复制代码
大漠后台键鼠图色代码示例.zip
(754.9 KB, 下载次数: 4)
|