按键精灵 CF自瞄源码 哪错了? 求修改
发布网友
发布时间：2023-05-27 20:51
我来回答
共3个回答
热心网友
时间：2023-11-08 22:07
ZMTIME = Var1 / 5
r = 1
h = 1
t = 1
s = sex
izz = 0
ixx = 0
a=1
xy=0
zmxh=3
zmkz=0
If acc < 5 Then
acc = 5
End If
X1 = 380
Y1 = 345
X2 = 420
Y2 = 355
ZX = 400
ZY = 300
XA = 392
YA = 292
XB = 408
YB = 308
Dim sColor(4)
sColor(0) = "33389E"
sColor(1) = "303AA5"
sColor(2) = "303AA6"
sColor(3) = "313AA4"
sColor(4) = "2F3AA8"
DO
For i = 1 To 4 Step 1
r = r + 1
If r = acc Then
r = 1
ElseIf r = 1 Then
h = int((10 * Rnd)+2)
t = int((8 * Rnd)+2)
s = int((3 * Rnd)+1)
ElseIf r = acc - 1 Then
h = int((35 * Rnd)+70)
t = int((25 * Rnd)+80)
s = int((15 * Rnd) + 40)
ElseIf r = Int(acc/2 - 1) then
h = int((15 * Rnd)+2)
t = int((10 * Rnd)+1)
s = int((5 * Rnd) + 2)
ElseIf r = Int(acc/3 + 1) then
h = int((30 * Rnd)+70)
t = int((20 * Rnd)+80)
s = int((20 * Rnd) +40)
ElseIf a = 1 Then
h = int((10 * Rnd )+ 5)
t = int((40 * Rnd ) + 10)
s = sex
ElseIf a = 2 Then
h = int((10 * Rnd) + 10)
t = int((40 * Rnd )+ 30)
s = sex + (30 * Rnd)
ElseIf a = 3 Then
h = int((10 * Rnd) + 20)
t = int((70 * Rnd) + 30)
s = sex + (60 * Rnd)
Else
h = int((10 * Rnd) + 3)
t = int((40 * Rnd )+ 26)
s = int((sex * Rnd) + 5)
End If
Call FindColorEx(X1,Y1,X2,Y2,sColor(i),1,0.7,iX,iY)
If iX > 0 And iY > 0 And zmkz = 0 Then
Delay h
Call zm()
End If
Next
Delay 4
Loop
sub zm
For Var1 //自瞄时间 及循环
FindColorEx XA,YA,XB,YB,"111111",0,0.75,X,Y
If X > 0 Then
MoveRS (X - ZX), (Y - ZY)
End If
Delay 5 //延时 自瞄时间
Next
End Sub
热心网友
时间：2023-11-08 22:07
最后那行缺个 子程序结束代码
sub zm
只有开头没有结尾
End Sub 这个是结尾代码
热心网友
时间：2023-11-08 22:08
再加两行，如下：
Next
End Sub
