㈠ 誰給個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,如果滿意請頂下帖子!~