『壹』 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,如果满意请顶下帖子!~

『贰』 CF源代码是多少啊

知道源代码我就去TX公司了

『叁』 谁能给我个cf代码 　

去代码基地看看吧！包括
ASP
源代码
┊
PHP
源代回码
┊
JSP
源代码
┊
CGI
源代码
┊
.NET源代码
┊
矢量素答材基地
┊
psd素材基地
┊
C#源代码
┊
Java源代码
┊
VB源代码
┊
VC/C++源代码
┊
Delphi源代码
┊
FLASH源代码
等等代码都有，蛮实用的。

『肆』 怎么修改穿越火线的网页源代码

我也是新手，刚学C语言。如果你会读程序的话，就仔细看，在它的量运算那里改一下，生成的源代码就会不一样的。这个需要技术的，最起码要会C语言才能修改源文件改变源代码。我这个方法提供给你参考。

『伍』 谁有CF的源代码

ABC......XYZ

『陆』 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的源代码可以改吗

可以的，你在下载CF的时候就可以改了，但是你必须有技术，一般人还是随其自然把，还有，CF代码改改之后应该会有所不同，（只是猜测）

『捌』 求CF源码

《诀缔仮击》的要吗 这游戏也不错

『玖』 手游cf源代码

你想知道源代码?
你问问老马同意不，毕竟马化腾公司的人不是吃素的

『拾』 cf有源码，但是怎么用

你得会源码对应的编程软件。最常见的易语言