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

软件版本: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)
Exit Do
End If
i = i + 1
Delay 100
Loop
//弹出窗口,确认。继续运行
sRect = Plugin.Window.GetWindowRect(Hwnd)
MyArray = Split(sRect, "|")
dx = MyArray(0)
dy=MyArray(1)
XY = Plugin.Bkgnd.FindCenterColor(Hwnd, 680, 8, 798, 108, "颜色")
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

发新话题 回复该主题