CF自动开枪脚本开源--所有版本源码公布
经典版与全兼容版源码全部发布，以后大家就自己做脚本吧，很简单的，根据我个人估计，这2个脚本，1年之内，都可以使用的，如果TP拦截，那么就需要按键精灵会员版里面的NP神盾，不过机率不大！认真的说一句： 我不喜欢会员拿着我的代码，然后打包成小精灵出去卖钱，这样的人，我十分的鄙视，诅咒它用不起脚本！
UserVar 戰ぐ小夜=吾爱破解论坛 CF枪王辅助V1.0正式版
UserVar 52pojie=www.52pojie.cn 吾爱破解论坛
UserVar ok=︻┳═一 ︻┳═一
UserVar suikers=↓↓设置项目↓↓ ↓↓↓下面为设置项↓↓↓
UserVar resolution=DropList{800*600:0|1024*768:1|1280*800:2}=1 游戏分辨率[目前只支持1024*768]
UserVar pv=30 开枪频率【M4推荐频率】
UserVar killx=1 单次开枪子弹数量
UserVar onekill=0 第一枪延时[爆破模式]
UserVar c1=超越简单游脚本 在游戏内可以随时修改开枪频率
SetEnv "onekill",onekill
SetEnv "killx",killx
SetEnv "resolution",resolution
SetEnv "sleep",pv
If resolution=1
sMsg="1024*768"
EndIf
If resolution=2
sMsg="1280*800"
EndIf
If resolution=0
sMsg="800*600"
EndIf
//MessageBox smsg
msg="游戏分辨率为:"&sMsg&vbcrlf& "开枪频率为"&pv &vbcrlf& "单次开枪子弹数量为"&killx &vbcrlf& "第一枪延时为"&onekill &vbcrlf&"随客CF枪王辅助脚本已经开始运行，确认无误后就进入游戏吧！"
Plugin Msg.ShowScrTXT(0,0,1024, 100, msg, "0000FF")
BeginThread "fire"
While 1
GetLastKey key
If key=121
sl=GetEnv("sleep")
sl=sl+1
SetEnv "sleep",sl
Plugin Msg.ShowScrTXT(300,240,800,600, "开枪频率为:"&sl, "0000FF")
ElseIf key=120
sle=GetEnv("sleep")
sle=sle-1
If sle<5
sle=5
EndIf
SetEnv "sleep",sle
Plugin Msg.ShowScrTXT(300,240,800,600, "开枪频率为:"&sle, "0000FF")
EndIf
Delay 10
EndWhile
EndScript
Sub fire
XY=GetEnv("resolution")
o=GetEnv("onekill")
X1=380
Y1=345
X2=420
Y2=355
If XY=1
X1=X1+112
X2=X2+112
Y1=Y1+84
Y2=Y2+84
EndIf
If XY=2
X1=X1+240
X2=X2+240
Y1=Y1+100
Y2=Y2+100
EndIf
While 1
VBSCall FindColorEx(X1,Y1,X2,Y2,"3239A0",0,0.7,x,y)
If x>0
Delay o
Gosub gun
EndIf
Delay 1
VBSCall FindColorEx(X1,Y1,X2,Y2,"2A3EB8",0,0.7,x,y)
If x>0
Gosub gun
EndIf
Delay 1
VBSCall FindColorEx(X1,Y1,X2,Y2,"1849F0",0,0.7,x,y)
If x>0
Gosub gun
EndIf
Delay 1
VBSCall FindColorEx(X1,Y1,X2,Y2,"1849F0",0,0.7,x,y)
If x>0
Gosub gun
EndIf
Delay 1
EndWhile
Return
Sub gun
k=GetEnv("killx")
s=GetEnv("sleep")
LeftClick k
Delay s
Return
以上是经典版源码，开枪速度最快，基于按键精灵7可以无错编辑。
以下是全兼容版，开枪速度也很快，主要是支持所有分辨率和压枪[基于按键精灵8可以无错编辑]：
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 ifBingo()
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)="3239A0"
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()
LeftClick iFN //左键单击 * 次
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
全兼容版，可以通过方向键上下左右，来调节延迟和频率。
刮刮乐送吾爱币：看完不回复的木JJ
不玩CF这种脑残游戏，还是顶一个 好东西大家一起分享
记得支持噢！！{:301_997:} 我愁= =早知道不看刮刮乐了。。 {:1_909:}早知道不看刮刮乐了但是有了源码也不会用啊 总的来说一句楼主辛苦了 小薪 发表于 2012-2-6 13:27 static/image/common/back.gif
我愁= =早知道不看刮刮乐了。。
{:301_1001:}看了有好处哦 我愁= =早知道不看刮刮乐了。。 不知道还有效不 哈哈。我果断刮了，然后果断回了。{:17_1068:} 不玩游戏 好东西还是要支持一下的三。 戰ぐ小夜 发表于 2012-2-6 13:36 static/image/common/back.gif
看了有好处哦
好处就是木JJ啊= =日.... 青春 发表于 2012-2-6 13:35 static/image/common/back.gif
早知道不看刮刮乐了但是有了源码也不会用啊 总的来说一句楼主辛苦了
看了刮刮乐不素得了吾爱币了撒 ！！ {:301_1008:}也不发个成品的。