本帖最后由 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之间,至于全屏还的稍微改下,自动锁定靶子中心。由于写了一个死循环,所以实现了达到指定条件就锁定,用户无法移动鼠标。至于过检测很简单,我就不在这里啰嗦了,东西就到这里。