• 新浪微博:
  • 微信 :
按键精灵电脑版
立即下载

软件版本:2014.05
软件大小:21.6M
更新时间:07-04

按键精灵安卓版
立即下载

软件版本:3.3.5
软件大小:62.5M
更新时间:9-25

按键精灵iOS版
立即下载

软件版本:1.3.5
软件大小:29.2M
更新时间:06-14

最新企业版UiBot
立即下载

软件版本:3.3
软件大小:282M
更新时间:08-06

快捷导航

登录 后使用快捷导航
没有帐号? 注册

登录 注册
返回列表 12345678» / 33
发新话题 回复该主题

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

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

    已有4评分我要评分查看所有评分

    2#


    3#

    哈哈哈哈哈

    4#


    5#

    1111111111111111111111

    6#

    学习一下

    7#

    先谢楼主分享

    8#

    得到

    9#

    66666666666

    10#

    学习学习

    11#

    111

    12#

    先看看

    13#

    学习学习

    14#

    学习

    15#

    666666666666

    16#

    给力 支持

    17#


    18#

    不玩很多rh

    19#

    感谢分享

    20#

    都是北方的

    发新话题 回复该主题