按键精灵脚本

code_abc

一,定期刷远古时代捕猎和收税
//转移到城市
MoveTo 898,466
LeftClick 1
Delay 10000

//点收税
MoveTo 776,865
LeftClick 1
Delay 20000

//进入刷捕猎循环
Call Research()

//转移到城市
MoveTo 898,466
LeftClick 1
Delay 10000

//点全部收取
MoveTo 1336,511
LeftClick 1
Delay 10000

//进入研究循环
Call Research()


Sub Research()
//点研究
MoveTo 724,466
    LeftClick 1
    Delay 20000

//点远古时代
    MoveTo 689,517
    LeftClick 1
    Delay 20000

//第一次研究
    MoveTo 1286,840
    LeftClick 1
    Delay 20000

//循环约半小时,点继续研究
    For 128
    MoveTo 1264,543
        LeftClick 1
        Delay 13550
Next
End Sub

二 工会会员界面自动加好友
Sub AddFriend()

Dim retX, retY

Rem FindReturn
FindPic 584,208,1360,442,"Attachment:\rt.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
        retX = intX+10
        retY = intY+5
Else
        Delay 1000
        Goto FindReturn
End If

//找“加为盟友"
FindPic 584,208,1360,442,"Attachment:\join.bmp",0.99,intX,intY
If intX > 0 And intY > 0 Then
        MoveTo intX + 10, intY + 5
        Delay 1500
        LeftClick 1
        Delay 1000
        //找确认
       
        Rem FindOK
        FindPic 584,208,1360,442,"Attachment:\ok.bmp",0.9,intX,intY
        If intX > 0 And intY > 0 Then
                 MoveTo intX + 10, intY + 5
                 Delay 1500
                 LeftClick 1
                 Delay 1000
                
                 //找“军队”,实际是等待页面刷新
                
                 Rem FindMT
                 FindPic 584,208,1360,442,"Attachment:\mt.bmp",0.9,intX,intY
                If intX > 0 And intY > 0 Then
                         MoveTo retX, retY
                         Delay 1500
                        LeftClick 1
                Else
                        Delay 1000
                        Goto FindMT
                End If
        Else
                Delay 1000
                Goto FindOK
        End If
       
Else
        MoveTo retX, retY
        LeftClick 1
End If


End Sub

//列表的行高
HT = 31
//找会员字样的图片
FindPic 584,208,1360,442,"Attachment:\member.bmp",0.99,intX,intY
If intX > 0 And intY > 0 Then
        X = intX + 37
        Y = intY + 41
        MoveTo X, Y
        Delay 1000
        LeftClick 1
        Delay 1000
        AddFriend
        For 19
                Y = Y + HT
                MoveTo X, Y
                Delay 1000
                LeftClick 1
                Delay 1000
                AddFriend
        Next
Else
        MessageBox "找不到列表"
End If

nightcat

看不懂！忒专业了！
心中有所疑虑，这算不算外挂呢？@老兵帅客 你不加入我们的行列，白白浪费你的技能，好可惜！

老兵帅客

nightcat 发表于 2013-6-2 09:18
看不懂！忒专业了！
心中有所疑虑，这算不算外挂呢？@老兵帅客 你不加入我们的行列，白白浪费你的技 ...

没时间呀，周末你们在玩，我在加班干活呢。

nightcat

老兵帅客 发表于 2013-6-2 22:36
没时间呀，周末你们在玩，我在加班干活呢。

你最近好忙啊！

老兵帅客

nightcat 发表于 2013-6-2 09:37
你最近好忙啊！

是啊，我也不喜欢，但是没办法，这个周末我已经扔进去八个小时了。

code_abc

第一个脚本比较初级,硬编码了屏幕坐标.第二个使用了屏幕找图的功能,只需要把几个关键地方的图事先截下来附加在脚本上就好了.

code_abc

nightcat 发表于 2013-6-2 22:18
看不懂！忒专业了！
心中有所疑虑，这算不算外挂呢？@老兵帅客 你不加入我们的行列，白白浪费你的技 ...

不算外挂,外挂就直接使用HTTP访问了

nightcat

老兵帅客 发表于 2013-6-2 22:39
是啊，我也不喜欢，但是没办法，这个周末我已经扔进去八个小时了。

可怜的老兵，等你有空再加入我们吧！
保重！

nightcat

code_abc 发表于 2013-6-2 22:39
第一个脚本比较初级,硬编码了屏幕坐标.第二个使用了屏幕找图的功能,只需要把几个关键地方的图事先截下来附 ...

@喜欢 @喜欢就捧捧场 @流水无情 @老爷王 @蓦然回首 @不爱吱声 你们看得懂吗？

蓦然回首

nightcat 发表于 2013-6-2 22:48
@喜欢 @喜欢就捧捧场 @流水无情 @老爷王 @蓦然回首 @不爱吱声 你们看得懂吗？  ...

膜拜。不明觉厉。

喜欢

原来寞洑用的就是这个呀，你用了吗？好用？得自己准备那几个图片文件？按键精灵从哪里下载？

从来没用过类似的东东，虽然有时很想见识见识。。

喜欢

nightcat 发表于 2013-6-2 09:48
@喜欢 @喜欢就捧捧场 @流水无情 @老爷王 @蓦然回首 @不爱吱声 你们看得懂吗？  ...

我不知道把这东西往哪里搁……

不过感谢@me，第一次看见这样的东东呢。

寞洑

喜欢 发表于 2013-6-4 02:02
原来寞洑用的就是这个呀，你用了吗？好用？得自己准备那几个图片文件？按键精灵从哪里下载？

从来没用过类 ...

http://www.anjian.com/

这个软件不用什么编程知识，它不仅支持鼠标左右键操作，还可以支持抓点（得到坐标），这样就可以产生移动鼠标的效果，一步一步按照指示做就好了，上面还有几个简单的视频教程，看看就会了。