• 新浪微博:
  • 微信 :
按键精灵电脑版
立即下载

软件版本:2014.05
软件大小:21.6M
更新时间:07-04

按键精灵安卓版
立即下载

软件版本:3.3.5
软件大小:62.5M
更新时间:9-25

按键精灵iOS版
立即下载

软件版本:1.3.5
软件大小:29.2M
更新时间:06-14

最新企业版UiBot
立即下载

软件版本:3.3
软件大小:282M
更新时间:08-06

快捷导航

登录 后使用快捷导航
没有帐号? 注册

登录 注册
发新话题 回复该主题

[已解决] 这么写有问题吗,第13行提示,缺少对象DM [复制链接]

1#
这么写 有什么问题吗,第七行提示 缺少对象DM,没有加多线程语句,一切正常,多线程,
是不是主程序一定要加创建大漠对象与释放路径?有没有别的需要增加的?


Call 注册大漠()
Global hwnd
hwnd = dm.GetMousePointWindow()
ID=BeginThread(主程序)
Sub 主程序()
TracePrint hwnd
dm_ret = dm.BindWindow(Hwnd, "dx", "windows", "windows", 0)
Set dm = CreateObject("dm.dmsoft")'这是多线程后增加的两句
dm.SetPath "F:\tkzg"'这是多线程下增加的两句
Call 查找图片()
End Sub
Sub 查找图片()
TracePrint "开始找图"
dm_ret = dm.FindPic(0,0,2000,2000,"我的电脑.bmp","000000",0.9,0,intX,intY)
If intX >= 0 and intY >= 0 Then
dm.moveto intx, inty
Delay 500
dm.leftclick
Else
TracePrint "没有找到图"
End If
End Sub
Sub 注册大漠()
need_ver = "3.1233"
set ws=createobject("Wscript.Shell")
ws.run "regsvr32 atl.dll /s"
set ws=nothing
PutAttachment "F:\tkzg","*.*"
PutAttachment ".\Plugin" ,"RegDll.dll"
Call Plugin.RegDll.Reg("F:\tkzg\dm.dll")
set dm = createobject("dm.dmsoft")
ver = dm.Ver()
if ver <> need_ver then
set dm = nothing
set ws=createobject("Wscript.Shell")
ws.run "regsvr32 F:\tkzg\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 "请关闭程序,重新打开本程序再尝试"
endscript
end if
End If
If ver = need_ver Then
TracePrint "恭喜你注册成功!插件所在目录是:"&dm.GetBasePath()
End If
dm.SetPath "F:\tkzg"
Delay 500
End Sub
Sub OnScriptExit()
dm_ret = dm.UnBindWindow()
If dm_ret = 1 Then
TracePrint "解除绑定成功"
End If
End Sub
Sub OnThreadExit()
// 这个是解绑线程的大漠绑定 多线程必须要这个 不然被绑定的窗口容易消失
dm_ret = dm.UnBindWindow()
TracePrint "第"&i&"个线程释放绑定"
End Sub

本主题由 超级版主 n15976906190 于 2019/11/9 11:05:21 执行 主题分类 操作
2#

回复 1楼wdljing的帖子

注:你好 多线程内需要再次创建大漠对象等

收徒索引 ←点击

个 人 Q Q : 1 2 2 3 1 1 6 6 1 8
发新话题 回复该主题