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

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

按键精灵安卓版
立即下载

软件版本:3.3.8
软件大小:62.5M
更新时间:12-18

按键精灵iOS版
立即下载

软件版本:1.6.5
软件大小:29.2M
更新时间:12-01

最新企业版UiBot
立即下载

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

快捷导航

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

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

[已回复] 获取句柄无效 [复制链接]

1#
Dim MyArray,Ux,Uy,sRect,Hwnd,HwndEx
Hwnd = Plugin.Window.MousePoint()
sRect = Plugin.Window.GetWindowRect(Hwnd)
HwndEx = Plugin.Window.FindEx(Hwnd, HwndEx,0,0)
HwndEx = Plugin.Window.FindEx(Hwnd, HwndEx,0,0)
MyArray = Split(sRect,"|")
Ux = CLng(MyArray(0))
TracePrint Ux
Uy = CLng(MyArray(1))
TracePrint Uy
Dim a,b,QX,QY,n,t,x,y
a =320 : b=196 : c = QX : d = QY
Randomize
n=Int((100 - 80 + 1) * Rnd + 80)
t=50
KeyPress "Tab", 1
Delay 100
Randomize
FindPic 0,0,1024,768,"Attachment:\1.bmp",1,intX,intY
If intX > 0 And intY > 0 Then
QX = ((intx + 545 - intx + 1) * Rnd + intx)
QY = ((inty + 276 - inty + 1) * Rnd + inty)
TracePrint QX
TracePrint QY
Call 老鼠慢慢跑()
End If
Sub 老鼠慢慢跑
MoveTo a, b
Delay t
For n
x=(QX-a)/n:y=(QY-b)/n
MoveR x, y
Delay t
Next
End Sub
获取句柄显示 无效的调用或参数,缺少对象 下表越界 还有下边找图代码我想在范围内用鼠标移动轨迹移动过去点击,该怎么改参数啊,谢谢了

本主题由 超级版主 瑞祥幽冥狼 于 2021/1/12 23:24:22 执行 主题分类 操作
发新话题 回复该主题