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

软件版本: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#
大佬们,怎么将鼠标移动轨迹的代码调入自己写好的游戏代码里?需要改什么参数?新手小白初次上路,还请多多指教!谢谢了

本主题由 超级版主 瑞祥幽冥狼 于 2021/1/12 23:14:03 执行 审核帖子 操作
2#
收 徒 索 引 ← ← ← ← ← ← ← ← ← ← 点 击

个 人 Q Q 1 : 1 2 2 3 1 1 6 6 1 8[将满]
个 人 Q Q 2 : 6 1 7 0 9 5 5 4 3[可加]
3#

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
获取句柄显示 无效的调用或参数,缺少对象 下表越界 还有下边找图代码我想在范围内用鼠标移动轨迹移动过去点击,该怎么改参数啊,谢谢了

4#

回复 3楼15036950571的帖子

注:你好 另外一个问题 请提供可以直接测试出错误的代码 这样的代码 无法具体解答[这边测试未报错]
  1. QX = 100
  2. QY = 500
  3. GetCursorPos mx,my
  4. Call 老鼠慢慢跑(mx,my,QX,QY,100,50)//起点(100,100),终点(500,500)移动100次每次50毫秒
  5. Sub 老鼠慢慢跑(a,b,c,d,n,t)'坐标1x,坐标1y,坐标2x,坐标2y,多少次移动到位,每一次移动相隔多少时间
  6. MoveTo a, b
  7. Delay t
  8. For n
  9. x=(c-a)/n:y=(d-b)/n
  10. MoveR x, y
  11. Delay t
  12. Next
  13. End Sub
复制代码

最后编辑瑞祥幽冥狼 最后编辑于 2021-01-12 23:25:07
收 徒 索 引 ← ← ← ← ← ← ← ← ← ← 点 击

个 人 Q Q 1 : 1 2 2 3 1 1 6 6 1 8[将满]
个 人 Q Q 2 : 6 1 7 0 9 5 5 4 3[可加]
发新话题 回复该主题