• 按键公众号 :
按键精灵电脑版
立即下载

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

按键精灵安卓版
立即下载

软件版本:3.7.2
软件大小:46.2M
更新时间:2023-05-10

按键精灵iOS版
立即下载

软件版本:1.8.0
软件大小:29.2M
更新时间:2023-03-21

按键手机助手
立即下载

软件版本:3.8.0
软件大小:262M
更新时间:2023-05-30

快捷导航

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

发新话题 回复该主题

大漠不能完成的后台,361做到了 [复制链接]

1#
hwnd = Plugin.WndEx7_50.GetMousePointWindow()
//35FF79
Do While 1 = 1
//1颜色
// Call Plugin.BGCP2_02.FindColor(hwnd, 0, 0, 1024, 768, Lib.算法.十六进制转十进制("35FF79"), 0, 0, x, y)
// TracePrint "游戏坐标1:"&CStr(x)&","&CStr(y)
// If x > 0 and y > 0 Then
// Call Plugin.WndEx7_50.SendMouse(hwnd, 1, 772, 597)
//
// Do While x > 0 and Y > 0
// TracePrint "游戏坐标1:"&CStr(x)&","&CStr(y)
// Call Plugin.BGCP2_02.FindColor(hwnd, 0, 0, 1024, 768, Lib.算法.十六进制转十进制("35FF79"), 0, 0, x, y)
//
// Call Plugin.WndEx7_50.SendMouse(hwnd,1,x+6,y+4)
// Delay 500
// Loop
// Call Plugin.WndEx7_50.SendMouse(hwnd, 1, 772, 597)
// End If
// Delay 300
//2
Call Plugin.BGCP2_02.FindColor(hwnd, 0, 110, 892, 568, Lib.算法.十六进制转十进制("FFAA00"), 0, 0, x, y)
TracePrint "游戏坐标2:"&CStr(x)&","&CStr(y)
If x > 0 and y > 0 Then
Call Plugin.WndEx7_50.SendMouse(hwnd, 1, 772, 597)
Do While x > 0 and Y > 0
TracePrint "游戏坐标2:"&CStr(x)&","&CStr(y)
Call Plugin.BGCP2_02.FindColor(hwnd, 0, 110, 892, 568, Lib.算法.十六进制转十进制("FFAA00"), 0, 0, x, y)
Call Plugin.WndEx7_50.SendMouse(hwnd,1,x+6,y+4)
Delay 500
Loop
Call Plugin.WndEx7_50.SendMouse(hwnd, 1, 772, 597)
End If
Delay 300
//3
Call Plugin.BGCP2_02.FindColor(hwnd, 0, 110, 892, 568, Lib.算法.十六进制转十进制("ABE216"), 0, 0, x, y)
TracePrint "游戏坐标3:"&CStr(x)&","&CStr(y)
If x > 0 and y > 0 Then
Call Plugin.WndEx7_50.SendMouse(hwnd, 1, 772, 597)
Do While x > 0 and Y > 0
TracePrint "游戏坐标3:"&CStr(x)&","&CStr(y)
Call Plugin.BGCP2_02.FindColor(hwnd, 0, 110, 892, 568, Lib.算法.十六进制转十进制("ABE216"), 0, 0, x, y)
Call Plugin.WndEx7_50.SendMouse(hwnd,1,x+6,y+4)
Delay 500
Loop
Call Plugin.WndEx7_50.SendMouse(hwnd, 1, 772, 597)
End If
Delay 300
//4
Call Plugin.BGCP2_02.FindColor(hwnd, 0, 110, 892, 568, Lib.算法.十六进制转十进制("B6FF00"), 0, 0, x, y)
TracePrint "游戏坐标4:"&CStr(x)&","&CStr(y)
If x > 0 and y > 0 Then
Call Plugin.WndEx7_50.SendMouse(hwnd, 1, 772, 597)
Do While x > 0 and Y > 0
TracePrint "游戏坐标4:"&CStr(x)&","&CStr(y)
Call Plugin.BGCP2_02.FindColor(hwnd, 0, 110, 892, 568, Lib.算法.十六进制转十进制("B6FF00"), 0, 0, x, y)
Call Plugin.WndEx7_50.SendMouse(hwnd,1,x+6,y+4)
Delay 500
Loop
Call Plugin.WndEx7_50.SendMouse(hwnd, 1, 772, 597)
End If
Delay 300
//5
Call Plugin.BGCP2_02.FindColor(hwnd, 0, 110, 892, 568, Lib.算法.十六进制转十进制("D941E2"), 0, 0, x, y)
TracePrint "游戏坐标:"&CStr(x)&","&CStr(y)
If x > 0 and y > 0 Then
Call Plugin.WndEx7_50.SendMouse(hwnd, 1, 772, 597)
Do While x > 0 and Y > 0
TracePrint "游戏坐标:"&CStr(x)&","&CStr(y)
Call Plugin.BGCP2_02.FindColor(hwnd, 0, 110, 892, 568, Lib.算法.十六进制转十进制("D941E2"), 0, 0, x, y)
Call Plugin.WndEx7_50.SendMouse(hwnd,1,x+6,y+4)
Delay 500
Loop
Call Plugin.WndEx7_50.SendMouse(hwnd, 1, 772, 597)
End If
Delay 300
Loop

以上代码正常运行,唯一问题就是鼠标操作在游戏中反应很慢,和实际操作感觉慢3秒左右,不知道是什么原因,求解,另求代码优化

2#

该用户帖子内容已被屏蔽

3#

看到重复性的操作很多可对进行简化。子程序传参

4#

你这脚本这是什么作用啊?

发新话题 回复该主题