每日一贴,CF自动瞄准基本代码及思路实现 [复制链接]

本帖最后由 zhouhui886 于 2014-9-24 22:12 编辑

在网上很多朋友对CF自瞄纠结不已，而且跟可笑的是还有人卖源码，仔细看我写的就几行实现了，今天给大家带来一个思路以及简单代码。

在今天无聊时写代码

Event Form1.Load
Delay 3000
Hwnd = Plugin.Window.Find(0, "穿越火线")
Call Plugin.Window.Move(Hwnd, 0, 0)
开启脚本=BeginThread(it)
End Event
Sub it
Dim a,XY1
a = 1
Hwnd = Plugin.Window.Find(0, "穿越火线")
sRect = Plugin.Window.GetWindowRect(Hwnd)
XY1 = Split(sRect, "|")
SetSimMode 2
For i = 0 To a
FindColorEx 0, 0, XY1(2), XY1(3), "1D1E8D", 0,0.9, intX, intY
'Delay 2500
var = GetCursorShape(0)
Form1.Label1.Caption=var
If intX > 0 And intY > 0 Then
End If
If intX <> "-1" And intY <> "-1" Then
X2 = Split(X1, "|")
GetCursorPos x, y
MoveR intX - x, intY - y
End If
a = a + 1
Next
End Sub

具体实现还要考自己去找角色颜色。

以上代码是我在新手训练场写的，我用的是窗口模式，游戏鼠标速度设置在5-10之间，至于全屏还的稍微改下，自动锁定靶子中心。由于写了一个死循环，所以实现了达到指定条件就锁定，用户无法移动鼠标。至于过检测很简单，我就不在这里啰嗦了，东西就到这里。