㈠ 谁给个CF注入源码
败笔网络安全小组那里有，你去那里下载吧，
那里还有很多游戏注入的源码可以免费使用
㈡ 谁有CF的源代码
ABC......XYZ
㈢ 手游cf源代码
你想知道源代码?
你问问老马同意不，毕竟马化腾公司的人不是吃素的
㈣ CF源代码是多少啊
知道源代码我就去TX公司了
㈤ cf方框透视源码，要不乱飞不重叠，队友死人没有方框的那种，好心人给个
在这发行不 邮箱麻烦 发网址的
㈥ 给个易语言cf辅助源码
你好
楼主。
很幸运的看到你的问题。
但是又很遗憾到现在还没有人回答你的问题。也可能你现在已经在别的地方找到了答案，那就得恭喜你啦。
对于你的问题我爱莫能助!
可能是你问的问题有些专业了。或者别人没有遇到或者接触过你的问题，所以帮不了你。建议你去问题的相关论坛去求助，那里的人通常比较多，也比较热心，可能能快点帮你解决问题。
希望我的回答也能够帮到你!
祝你好运。
最后祝您全家幸福健康快乐每一天
㈦ 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秒杀源码
用网络音乐。不过不要钱的毕竟有点问题，连接率不怎么高
歌曲放久了，有时候还会放不出来，然后就又换新的链接、
在网络MP3或是搜狗音乐播放器都有音乐链接。复制链接到空间网络歌曲那里就行了
不过有些链接会说什么格式错误啊，又不明符号啊什么的，不行你就换一个链接，换到行为止。
不明白再问我。
望采纳
㈨ CF自动射击脚本源代码
//定义变量
VBS Dim yanshi,qiangji
//自定义变量(射击时间间隔和单次设计子弹次数)
UserVar yanshi=DropList{60毫秒:60|70毫秒:70|80毫秒:80}=1 延时设置
UserVar qiangji=DropList{1次:1|2次:2|3次:3}=1 射击次数
//脚本内容
Rem 开始
//循环检测加好延时
Delay 10
//检测区域色点
VBSCall FindColorEx(350,300,450,375,"174AF2",1,0.9,intX,intY)
If intX>0 and intY>0
//表达方式成立进入自动射击后返回重新检测色点,更好的把握设计精准度
Delay yanshi
For qiangji
Delay 1
LeftClick 1
EndFor
Delay 1
Goto 开始
Else
//表达方式不成立返回重新找色
Delay 1
Goto 开始
EndIf
EndScript
//脚本结束,原创290256,如果满意请顶下帖子!~