按键精灵 后台窗口判断颜色问题
我想弄个小游戏的辅助,用后台插件,不影响挂游戏的同时看网站,大概是这样:1后台查找窗口坐标x,y(血条)处的颜色,假如是黑色,就在坐标E,F(加血按钮处)处点击一下2再判...
我想弄个小游戏的辅助,用后台插件,不影响挂游戏的同时看网站,大概是这样:
1 后台查找窗口坐标x,y(血条)处的颜色,假如是黑色,就在坐标E,F(加血按钮处)处点击一下
2 再判断X、Y处的颜色,若是黑色,就返回 1 若不是黑色,向下执行 (这里我想造成这样的效果:在挂机状态按加血时没用的。假如血条是黑色,加血按钮一直在快速点击,这样会自动退出挂机,然后点击加血按钮才能加血,但是我的脚本做不到在检测颜色的同时 快速点击加血按钮)
3 在坐标W、T(宠物加血按钮)处点击一下,
4 在坐标Q、R(挂机按钮)处点击一下
5 返回1
下面是我写的按键精灵代码
Delay 100
Dim hwnd
hwnd = Plugin.Window.MousePoint()
Delay 1000
Rem 循环
Rem 循环1
GetColor = Plugin.Bkgnd.GetPixelColor(Hwnd, 194, 49)
If GetColor=A11 Then
Call Plugin.Bkgnd.LeftClick(Hwnd, 229, 52)
End If
Color = Plugin.Bkgnd.GetPixelColor(Hwnd, 194, 49)
If Color = A11 Then
Goto 循环1
End If
Call Plugin.Bkgnd.LeftClick(Hwnd, 236, 106)
Delay 100
Call Plugin.Bkgnd.LeftClick(Hwnd, 895, 612)
Delay 10000
Goto 循环 展开
1 后台查找窗口坐标x,y(血条)处的颜色,假如是黑色,就在坐标E,F(加血按钮处)处点击一下
2 再判断X、Y处的颜色,若是黑色,就返回 1 若不是黑色,向下执行 (这里我想造成这样的效果:在挂机状态按加血时没用的。假如血条是黑色,加血按钮一直在快速点击,这样会自动退出挂机,然后点击加血按钮才能加血,但是我的脚本做不到在检测颜色的同时 快速点击加血按钮)
3 在坐标W、T(宠物加血按钮)处点击一下,
4 在坐标Q、R(挂机按钮)处点击一下
5 返回1
下面是我写的按键精灵代码
Delay 100
Dim hwnd
hwnd = Plugin.Window.MousePoint()
Delay 1000
Rem 循环
Rem 循环1
GetColor = Plugin.Bkgnd.GetPixelColor(Hwnd, 194, 49)
If GetColor=A11 Then
Call Plugin.Bkgnd.LeftClick(Hwnd, 229, 52)
End If
Color = Plugin.Bkgnd.GetPixelColor(Hwnd, 194, 49)
If Color = A11 Then
Goto 循环1
End If
Call Plugin.Bkgnd.LeftClick(Hwnd, 236, 106)
Delay 100
Call Plugin.Bkgnd.LeftClick(Hwnd, 895, 612)
Delay 10000
Goto 循环 展开
1个回答
展开全部
Delay 100
DimEnv hwnd
hwnd = Plugin.Window.MousePoint()
Delay 1000
Rem 循环
GetColor = Plugin.Bkgnd.GetPixelColor(Hwnd, 194, 49)
If GetColor=A11 Then
BeginThread 快速点击
BeginThread 快速找图
End If
Call Plugin.Bkgnd.LeftClick(Hwnd, 236, 106)
Delay 100
Call Plugin.Bkgnd.LeftClick(Hwnd, 895, 612)
Delay 10000
Goto 循环
Do
Delay 1000
Loop
Sub 快速点击
Call Plugin.Bkgnd.LeftClick(Hwnd, 229, 52)
End Sub
Sub 快速找图
Color = Plugin.Bkgnd.GetPixelColor(Hwnd, 194, 49)
If Color = A11 Then
Goto 循环
End If
End Sub
你说的这么详细 但我很糊涂..
最后才懂了点你的意思
.“检测颜色的同时 快速点击加血按钮”
对吧?
那就启动多线程咯
复制上面的看看有没有效果
这里说下循环的话还是用条件循环好一点
不要用跳转
,
DimEnv hwnd
hwnd = Plugin.Window.MousePoint()
Delay 1000
Rem 循环
GetColor = Plugin.Bkgnd.GetPixelColor(Hwnd, 194, 49)
If GetColor=A11 Then
BeginThread 快速点击
BeginThread 快速找图
End If
Call Plugin.Bkgnd.LeftClick(Hwnd, 236, 106)
Delay 100
Call Plugin.Bkgnd.LeftClick(Hwnd, 895, 612)
Delay 10000
Goto 循环
Do
Delay 1000
Loop
Sub 快速点击
Call Plugin.Bkgnd.LeftClick(Hwnd, 229, 52)
End Sub
Sub 快速找图
Color = Plugin.Bkgnd.GetPixelColor(Hwnd, 194, 49)
If Color = A11 Then
Goto 循环
End If
End Sub
你说的这么详细 但我很糊涂..
最后才懂了点你的意思
.“检测颜色的同时 快速点击加血按钮”
对吧?
那就启动多线程咯
复制上面的看看有没有效果
这里说下循环的话还是用条件循环好一点
不要用跳转
,
本回答被提问者和网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询