1

2

3

4

5

- - 竟然没人 回复 伤心。。。 不过 如果 有新手想学这玩意 我说下我的心得吧

很多新手 都喜欢看着别人的教程来学习 这点 我也经历过 但是 我之前遇到一个 人 看了1个多月的教程竟然没写过一句代码

- - 多写的问题 我就不想说了 我想说的是 除了 多写之外 你想进一步 就已经不是 教程可以教的了 那就是逻辑性 这东西 说的简单 IF OR DO FOR WHILE 看似 简单的命令 但是 如果你的逻辑性好的话 可以完成 很多功能 举例说 大漠的 模拟输入 收费的 其实就一段代码而已

吃饭 晚点继续写

楼上的 是 看了别人发的切牌源码 自己改的。那个槽点有点多 实在忍不住手 抱歉

Dim a
do
a = GetLastKey()//获取上次按键码
If a = 87 Then// 这里 也可以87改成“”w“”
FindColor 左上角X,左上角y,右下角x,右下角Y,"卡牌的颜色",intX,intY //因为我也没进LOL里面去取色 所以 自己用抓抓取下色 改下就好了 不懂可以问我 取决与你的显示器大小
If intX > 0 And intY > 0 Then
KeyPress "W", 1
End If
End If
Delay 3000
Loop
// 如果 不需要 判断 按下 W 以外的键 他就会暂停 当你再次使用W 他又会启动寻找 因为 按键 自身问题长期 读色会导致 卡顿 吃内存的情况 所以 让他在需要的时候启动是最好的 办法

Dim a
a = GetLastKey()//获取上次按键码
If a = 87 Then// 这里 也可以87改成“”w“”
s=1
End If
while s=1
FindColor 左上角X,左上角y,右下角x,右下角Y,"卡牌的颜色",intX,intY //因为我也没进LOL里面去取色 所以 自己用抓抓取下色 改下就好了 不懂可以问我 取决与你的显示器大小
If intX > 0 And intY > 0 Then
KeyPress "W", 1
s=0
End If
Delay 3000
wend
//或者这样也行

可怕 。。。 贴吧 菜鸟 还能装大神了。。难怪当初我学按键的时候 师傅坚决不让我来贴吧逛。。说容易毁三观。。这下算领教了

- - 唔 没有写超过10W行代码以上的 请保持平常心。。 浮躁 自大 只会让你退步