按鍵精靈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游戲愛好者真誠為您解答
┅┉━—┄━☆
╰═-┛
★
(*^﹏^*)