查看: 120|回复: 10
在这4个点正方形319, 8& &318, 55&&366, 9 364, 56区域内随机找到一个坐标
你从网站上弄的代码，不是你要的功能，他那个代码没有保障在四次点击，每一个坐标都点到。
要实现你这个功能，用数组比较方便，代码我不解释了，你自己看着办，代码如下：
Dim Num(4), x(4), y(4)
x(1) = 1 : y(1) = 1
x(2) = 10 : y(2) = 10
x(3) = 33 : y(3) = 33
x(4) = 654 : y(4) = 75
While True
For i = 1 To 4
Num(i) = 0
While n = n Then
Num(n) = a
//MessageBox Num(1) & &|& & Num(2) & &|& & Num(3) & &|& & Num(4)
For i = 1 To 4
m = Num(i)
Call Plugin.Bkgnd.LeftdoubleClick(Hwnd, x, y)
如果你只想点击四个坐标一次，你就把While True……Wend去掉。
Randomize x = Int(1000* Rnd) if x&and x
随机点一个，和依次点完不能重复，这两者是矛盾的，你还是说清楚点。还有，被点的图片会不会消失，这一点如果用大漠插件就无所谓，要是用按键精灵自带找图功能，是很重要的，本人建议用大漠插件，比较方便。
楼主遇到的问题 靶子应该是随机出现的位置，所以需要快速扫描可能出现的区域再判断颜色。
//Rnd 函数的使用 例如: Dim n Randomize n =Int((3 * Rnd) + 1) If n=1 then MoveTo 12,34 LeftDoubleClick 1 ElseIf n=2 then MoveTo 56,78 LeftDoubleClick 1 ElseIf n=3 MoveTo 99，100 LeftDoubleClick 1 End if
落叶红遍天
click = WaitClick TracePrint &用户按下的键是：& & click If click = 32769 Then MoveTo x, y Delay 100 LeftClick 1 Delay 100 ElseIf click = 32773 Then MoveTo x1, y1 Delay 100 LeftClick 1 Delay 100 End If
可以加个随机 再变量到延时
狂奔的小蜗牛
Randomize x = Int(481 * Rnd + 20) Randomize y = Int(201 * Rnd + 600) MoveTo x, y RightClick 1
FindPic 0,0,,&Attachment:\4.bmp&,0.9,intX,intY If intX & 0 And intY & 0 Then KeyPress &R&, 1 Else ExitScript End If
乖乖的鬼鬼
Rem 开始 FindColorEx 476,552,618,552,&,0.9,aX,aY If aX & 0 And aY & 0 Then MoveTo intX, intY Delay 100 LeftClick 1 End If FindColorEx 476,552,618,552,&0000ff&,1,0.9,bX,bY If bX & 0 And bY & 0 Then MoveTo bX, bY Delay 1