按键精灵cf源码
‘壹’ 怎么看按键精灵的源码
打开按键精灵里的全部命令,上面有个搜索框,假如我要找DO这个命令的意思,在输入框输入do，搜索
然后在脚本编辑栏正下方选帮助查看脚本意思
看多了,用多了,自然能记得这些命令的含义
‘贰’ 按键精灵 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
‘叁’ cf源码谁有
CF自动开枪源码
|
浏览：3249
|
更新：
2013-12-26 14:34
1
2
3
4
5
分步阅读
CF自动开枪
工具/原料
按键精灵
方法/步骤
1
将以下代码复制
UserVar Var1=30 "开枪频率"
UserVar Var2=1 "单次开枪子弹数量"
UserVar Var3=0 "第一枪延迟"
UserVar Var4=55 "压枪延迟"
//定义变量
DimEnv iWidth ,iHeight //int 屏幕分辨率
DimEnv iFD //开枪频率
iFD=Var1
DimEnv iFN //几发连射
iFN=Var2
DimEnv iFFD //第一枪延迟
iFFD=Var3
DimEnv iND //压枪延迟
iND=Var4
//调用主函数
Call Main()
//**Main
//程序入口主函数
Sub Main()
//int 四个角的坐标
Dim iLT,iRT,iLB,iRB
//临时对象
Dim vTemp
Dim bCanShoot
Dim sStr
//得到分辨率(四个坐标)
sStr=getParameter()
//把返回的坐标分割成数组
vTemp=Split(sStr, "|", -1, 1)
iLT=vTemp(0)
iRT=vTemp(1)
iLB=vTemp(2)
iRB=vTemp(3)
//启用设置开枪频率线程
BeginThread setFireDelay
//循环脚本
While True
Delay 1
//搜索射程内的敌人
bCanShoot=findFoe(iLT,iRT,iLB,iRB)
//进入射程
If bCanShoot
//第一枪延迟
Delay iFFD
//射击
Call shootFoe()
//如果没有命中就压枪
If Bingo
Delay iND
End If
End If
Wend
End Sub
//**Function
//功能:判断屏幕分辨率
//返回:四个坐标的字符串
Function getParameter()
Dim iLT,iRT,iLB,iRB //int 四个角的坐标
iWidth = Plugin.Sys.GetScRX() //得到屏幕的宽度
iHeight = Plugin.Sys.GetScRY() //得到屏幕的高度
If iWidth=800 Then
iLT=0
iRT=0
iLB=0
iRB=0
ElseIf iWidth=1024 Then
iLT=112 //加上坐标偏移
iRT=84
iLB=112
iRB=84
ElseIf iWidth=1280 Then
iLT=240 //加上坐标偏移
iRT=100
iLB=240
iRB=100
End If
iLT=iLT+380 //LeftTop 左上角
iRT=iRT+345 //RightTop 右上角
iLB=iLB+420 //LeftBottom 左下角
iRB=iRB+355 //RightBottom 右下角
getParameter=iLT&"|"&iRT&"|"&iLB&"|"&iRB //返回字符串
End Function
//**Function
//功能:判断射程内是否有敌人
//返回:是True,否False
Function findFoe(iLT,iRT,iLB,iRB)
Dim sColor(3) //Array(string) 用于存放颜色的数组
Dim i //int 循环变量
Dim iX,iY //int 得到颜色的坐标
Dim bHave //boolean 是否找到敌人
//初始化颜色
sColor(0)="303AA5"
sColor(1)="2A3EB8"
sColor(2)="1849F0"
sColor(3)="1849F0"
bHave=false //初始化
//找颜色
For i=0 to 3 step 1
Call FindColorEx(iLT,iRT,iLB,iRB,sColor(i),1,0.7,iX,iY)
If iX>0 And iY>0
bHave=true //找到了
KeyPress 44, 1
Goto rHave //跳出
End If
Next
Rem rHave
findFoe=bHave//Return 函数返回值
End Function
//**Function
//功能:判断是否没有命中敌人
//返回:是True,否False
Function noBingo()
Dim iX,iY //int 得到颜色的坐标
Call FindColorEx(iWidth/2-5,iHeight/2-5,iWidth/2+5,iHeight+5,"7E7EC0",1,0.7,iX,iY)
If iX > 0 Then
noBingo=True
Else
noBingo=False
End If
End Function
//**Sub
//功能:射击
Sub shootFoe()
//------------------------------------------------------------
//下面是破cf230错误机枪开枪源码
s = Plugin.Sys.GetTime()
xs=int(s/1000/60/60)
fz=int(s/1000/60)-xs*60
m=Clng(s/1000)-fz*60-xs*60*60
//下面是我计算的获取毫秒用于开枪调用
hm=int(s-xs*60*60*1000-fz*1000*60-m*1000)+500
//下面是800毫秒正常开枪，不出230可以再往上调，反之往下调
If hm<800 Then
SetSimMode 2
LeftClick iFN
End If
Delay iFD //延迟 * 毫秒
End Sub
//**Sun
//参数(字符串,秒,第几行)
//功能:显示字符串
Sub showStr(str,n,row)
For n*100
Delay 1
Call Plugin.Msg.ShowScrTXT(0, (row-1)*19, 120, 19, str, "0000FF")
Next
End Sub
//**Sun
//功能:设置开枪延迟
//# 多线程启动
Sub setFireDelay()
Dim key
While True
key=WaitKey()
If key=37
iFD=iFD-1 //缩小开枪延迟
Call showStr("开枪频率为"&iFD&"毫秒",5,1)
ElseIf key=39 //方向键 右
iFD=iFD+1 //增加开枪延迟
Call showStr("开枪频率为"&iFD&"毫秒",5,1)
ElseIf key=38 //方向键 右
iFD=iFD+5 //增加开枪延迟
Call showStr("开枪频率为"&iFD&"毫秒",5,1)
ElseIf key=40 //方向键 右
iFD=iFD-5 //增加开枪延迟
Call showStr("开枪频率为"&iFD&"毫秒",5,1)
End If
Wend
End Sub
2
复制上面的代码，打开按键精灵点击新建。
3
点击源文件，并粘贴。
4
点击调试
5
这时它会问你是否保存，如果你想保存的话那就点击是。我这里点击是。
6
点击启动，然后打开CF游戏。这样就实现了自动开枪。
END
注意事项
我们只需要改
UserVar Var1=30 "开枪频率"
UserVar Var2=1 "单次开枪子弹数量"
UserVar Var3=0 "第一枪延迟"
UserVar Var4=55 "压枪延迟"
我们只要修改这些参数就好了
其他源码就来9秒社团,与300000源码爱好者一起｜微站源码
望采纳
‘肆’ 如何用按键精灵制作CF脚本!
使用步骤:
1.
制作脚本:按照需求网搜集脚本或者自制作脚本您脚本别收集请先脚本文件拷贝按键精灵文件夹script文件夹再运行按键精灵
2.选择效窗口:建议您选择所窗口效您需要脚本某窗口前台效请选择窗口名称比龙族
3.让需要执行脚本效效栏勾脚本才执行
4.进入游戏...
‘伍’ cf自雷按键精灵脚本源码
已经把按键精灵自雷脚本发给您了，打开就可以正常使用了！
如果您是第一次使用按键精灵脚本，请把游戏大厅中的“设置”按钮（在“快速加入”按钮 的右边）设置成您要找的房间。如果按F10不能启动小精灵，请关闭防火墙；关闭防火墙之后还是不能启动，请重新启动计算机注意：按键精灵自雷脚本是永久免费使用的，不存在不能使用的情况，如果您不能使用那一定是您的设置或者系统 出现了问题。
【给个最佳吧，谢!】
‘陆’ 如何用按键精灵制作CF脚本！
使用步骤如下：
1. 制作脚本：按照个人需求从网上搜集脚本或者自己制作脚本。如果您的脚本是从别的地方收集的，请先把脚本文件拷贝到按键精灵文件夹下的script文件夹中，然后再运行按键精灵。
2.选择有效的窗口：建议您选择“对所有窗口有效”。如果您只需要脚本当某个窗口在前台时有效，请选择窗口名称，比如“龙族”
3.让需要执行的脚本“有效”，只有“有效”一栏中勾中的脚本才会执行。
‘柒’ 求按键精灵 CF闪镜代码
脚本如下，不过本人未测试。这是从我自动狙击脚本里面取出来的一部分，我的能用，这个肯定也能用。
有问题请楼主继续追问。
如果切枪时反映过快，切出来刀以后没切回枪，请适当加大delay后面的数字
Rem A
IfColor 15, 15, "000000", 2 Then
Call shanju
End If
Goto A
Sub shanju
RightClick 1
Delay 20
LeftClick 1
Delay 50
KeyPress "3", 1
Delay 50
KeyPress "1", 1
Delay 350
End Sub
‘捌’ 如何用按键精灵编写CF盲狙的准星胡说八道一概PASS！求源码。
CF的准星就是屏幕中心，在中点显示+号这个你的屏幕中心就会不停闪一个白底红字的+号，你就将就点用吧。
Rx = Plugin.Sys.GetScRX()
Ry = Plugin.Sys.GetScRY()
while 1
Call Plugin.Msg.ShowScrTXT(Rx/2-5,Ry-6,Rx/2+5,Ry/2+6, "+", "0000FF")
Delay 10
Wend
//Rx/2-5,Ry-6,Rx/2+5,Ry/2+6 这个你根据显示效果修改一下，我忘了以前设置字符的宽高了。
‘玖’ 寻求按键小精灵CF自雷脚本
Kiss风儿按键精灵脚本，永久不会出现非法，安全无毒，另赠金牌网吧奖励（自动更新，+35%经验），留下邮箱，及时发到你邮箱，并请注意查收。。
莫忘给〃无奈De觉悟〃纳分！
莫忘给〃无奈De觉悟〃加分！！
莫忘给〃无奈De觉悟〃好评！！！
O(∩_∩)O谢谢！！
╭★
⊙.⊙
☆
╭┛
QQ游戏爱好者真诚为您解答
┅┉━—┄━☆
╰═-┛
★
(*^﹏^*)