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

软件版本:2014.06
软件大小:22.9M
更新时间:03-18

按键精灵安卓版
立即下载

软件版本:3.3.6
软件大小:62.5M
更新时间:01-16

按键精灵iOS版
立即下载

软件版本:1.6.0
软件大小:29.2M
更新时间:07-29

最新企业版UiBot
立即下载

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

快捷导航

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

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

[问题] 后台找不到色,是否要定义客户区坐标 [复制链接]

1#
Dim Hwnd
HwndEX = Plugin.Window.SearchEx("。。。","。。。","0")
TracePrint "查找到符合的窗口句柄為:"& HwndEx
dim MyArray
MyArray = Split(HwndEx, "|")
i=0
Do Until i = 3
WINGOAL=MsgBox (Plugin.Window.GetText(MyArray(i)) ,4,"視窗標題:")
If WINGOAL = 6 Then
Hwnd = MyArray(i)
dx = XYArray(0)
dy = XYarray(1)
Exit Do
End If
i = i + 1
Delay 100
Loop
XY = Plugin.Bkgnd.FindCenterColor(Hwnd, x1, y1, x2, y2, "颜色")
ZB= InStr(XY, "|")
X= Clng(Left(XY, ZB - 1)):Y= Clng(Right(XY, Len(XY) - ZB))
If X > 0 And Y > 0 Then

Call Plugin.Bkgnd.LeftDoubleClick(Hwnd, X, Y)
Else
MessageBox "找不到"
endif
运行结果 找不到
是不是还有更好的办法

发新话题 回复该主题