CF红名按键精灵源码（按键精灵cf自瞄源代码）
本文目录一览：
cf按键精灵发源码
源代码错了把先下个按键精灵 在按键精灵里面录入For ∞ VBSCall GetCursorPos(x,y) Delay 200 MoveTo x,y+550 Delay 200 KeyPress 52,1 Delay 200 LeftClick 1 Delay 200 KeyPress 17,1 Delay 200 KeyDown 87,1 Delay 700EndFor 保存退出 设置启动热键启动CF进入地图后 开启启动热键
cf按键精灵发源码电脑常识
求个好心的易语言大神把这按键精灵源代码改成E语言写法有重谢哟!
.版本 2
.子程序 子程序_冲锋枪
.局部变量 intX, 整数型
.局部变量 intY, 整数型
.局部变量 intX1, 整数型
.局部变量 intY1, 整数型
.局部变量 X, 整数型
.局部变量 Y, 整数型
.局部变量 intX2, 整数型
.局部变量 intY2, 整数型
.局部变量 intX3, 整数型
.局部变量 intY3, 整数型
.局部变量 intXX1, 整数型
.局部变量 intYY1, 整数型
.局部变量 intXX2, 整数型
.局部变量 intYY2, 整数型
.循环判断首 ()
' 绿色准心
FindCenterColor（ (宽 / 2) - 50 + Ux, (高 / 2) - 50 + Uy, (宽 / 2) + 50 + Ux, (高 / 2) + 50 + Uy, "00FD00", intX, intY）
.如果真 (intX ＞ 0 且 intY ＞ 0)
' 寻找敌人身上(或头上)醒目的颜色(这里颜色仅做参考)
' 找到后鼠标偏移过去
' 找敌人颜色1
FindColorEx (intX - 170, intY - 50, intX + 170, intY + 50, "2A334F", 1, 0.85, intX1, intY1)
.如果 (intX1 ＞ 0 且 intY1 ＞ 0)
' 计算出需要偏移的量
X = intX1 - intX
Y = intY1 - intY
' 因为3D游戏与2D游戏偏移不同，具体除以多少根据实际调试
dm.MoveR X / 4.5, Y / 2.5
' 找到颜色后，用跳转语句跳过其他颜色的查找，提高效率
.否则
' 找敌人颜色2
FindColorEx (intX - 170, intY - 50, intX + 170, intY + 50, "232A43", 1, 0.85, intX2, intY2)
.如果 (intX1 ＞ 0 且 intY1 ＞ 0)
' 计算出需要偏移的量
X ＝ intX2 － intX
Y ＝ intY2 － intY
' 因为3D游戏与2D游戏偏移不同，具体除以多少根据实际调试
dm.MoveR X / 4.5, Y / 2.5
' 找到颜色后，用跳转语句跳过其他颜色的查找，提高效率
.否则
FindColorEx (intX - 170, intY - 50, intX + 170, intY + 50, "323B50", 1, 0.85, intX3, intY3)
.如果真 (intX1 ＞ 0 且 intY1 ＞ 0)
' 计算出需要偏移的量
X ＝ intX2 － intX
Y ＝ intY2 － intY
' 因为3D游戏与2D游戏偏移不同，具体除以多少根据实际调试
dm.MoveR X / 4.5, Y / 2.5
' 找到颜色后，用跳转语句跳过其他颜色的查找，提高效率
.如果真结束
.如果结束
.如果结束
' 自瞄锁定敌人后，就单单循环找红名，知道敌人死亡
' 找红名
FindColor (intX - 65, intY - 20, intX + 60, intY + 85, "0000FC", intXX1, intYY1)
.如果真 (intXX1 ＞ 0 且 intYY1 ＞ 0)
LeftClick (1)
.循环判断首 ()
FindColor (intX - 65, intY - 20, intX + 60, intY + 85, "0000FC", intXX2, intYY2)
.如果 (intXX2 ＞ 0 且 intYY2 ＞ 0)
LeftClick (1)
.否则
跳出循环 ()
.如果结束
.循环判断尾 ()
.如果真结束
.如果真结束
.循环判断尾 ()
我没有大漠插件，所以无法调试。你自己试试吧
如何用按键精灵制作CF脚本!
使用步骤:
1.
制作脚本:按照需求网搜集脚本或者自制作脚本您脚本别收集请先脚本文件拷贝按键精灵文件夹script文件夹再运行按键精灵
2.选择效窗口:建议您选择所窗口效您需要脚本某窗口前台效请选择窗口名称比龙族
3.让需要执行脚本效效栏勾脚本才执行
4.进入游戏...
按键精灵 CF自瞄源码 哪错了？ 求修改
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
