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

软件版本: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

快捷导航

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

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

[已回复] 非多线程运行 ,能找到图,多线程就提示找不到图,鼠标移动正常,求... [复制链接]

1#
非多线程运行 ,能找到图能点击,多线程就提示找不到图,鼠标移动点击正常,求帮助,缺什么代码



Set dm = CreateObject("dm.dmsoft")
Dimenv hwnd

dm.SetPath "F:\tkzg"//插件路径
path = Lib.大漠插件基本设置.GetPath()


线程ID(id) = BeginThread(主程序)
Sub 主程序()
Set dm = CreateObject("dm.dmsoft")
dm.SetPath "F:\tkzg"//插件路径
ck = hwnd
TracePrint "句柄值为:"&hwnd
Call 绑定模式
Call 世界首领
// dm_ret = dm.SetWindowState(hwnd, 12)
// TracePrint "窗口状态是:"&dm_ret
// Do
// dm_ret = dm.SetWindowState(hwnd, 12)

dm.KeyPress 65
dm.KeyPress 13
Delay 1000
// loop
End Sub



Sub 世界首领()
TracePrint "进世界首领"&now
Delay 2000
dm.moveto 1044,69
Delay 100
dm.leftclick
Delay 1000
dm.moveto 249,112
Delay 100
dm.leftclick
Delay 1000
// Call Plugin.Bkgnd.LeftClick(Hwnd, 242,530)
// Delay 1000
//进入BOSS现场无BOSS退出//
TracePrint hwnd
dm_ret = dm.FindPic(0, 0, 1316,758,"F:\tkzg.挑战.bmp","000000",0.9,0,intX,intY)
If intX >= 0 and intY >= 0 Then
TracePrint "找到首领之家BOSS"
dm.moveto intx, inty
Delay 100
dm.leftclick
a = 1
s=now
Do While True
Call 复活()
dm_ret = dm.FindPic(0, 0, 1316,758,"自动战斗.bmp","000000",0.9,0,intX,intY)
If intX >= 0 and intY >= 0 Then
dm.moveto intx, inty
Delay 100
dm.leftclick
End If
dm.keypress 27
Delay 200
dm_ret = dm.FindPic(0, 0, 1316,758,"我知道了.bmp","000000",0.9,0,intX,intY)
If intX >= 0 and intY >= 0 Then
dm.moveto intx, inty
Delay 100
dm.leftclick
Delay 200
Exit Do
End If
If DateDiff("n", s, now) > 40 Then
//每30分钟执行一次这里的代码
Exit Do
End If
Loop

End If
Delay 2000
dm.keypress 27
End Sub
Sub 绑定模式
dm_ret = dm.BindWindow(ck, "gdi", "windows", "windows", 0)
Delay 200
TracePrint dm_ret
End Sub
Sub OnThreadExit()
// 这个是解绑线程的大漠绑定 多线程必须要这个 不然被绑定的窗口容易消失
dm_ret = dm.UnBindWindow()
TracePrint "第"&i&"个线程释放绑定"
End Sub

Sub OnScriptExit()
dm_ret = dm.UnBindWindow()
If dm_ret = 1 Then
TracePrint "主程序解除绑定成功"
End If
End Sub

本主题由 超级版主 n15976906190 于 2019/11/8 14:07:16 执行 主题分类 操作
2#

回复 1楼wdljing的帖子
  1. 注:你好 除了死循环找图间延迟不足 未发现其他问题
  2. 1.使用大漠截图命令可确定图色绑定模式正常绑定否
  3. 2.建议取消 Sub OnScriptExit()
复制代码

收徒索引 ←点击

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