新浪微博自动转发评说 源码 按键精灵实现 详细注释 几十行代码实现 涉及图像识别模拟键盘鼠标

新浪微博自动转发评论 源码 按键精灵实现 详细注释 几十行代码实现 涉及图像识别模拟键盘鼠标

自动翻页转发,自动滚屏,一条一条地转发。

1.打开微博,登录

2.打开按键精灵,进入调试

3.回到要转发的微博界面,按F10启动转发。

我的微博已经转发了很多条。不信可以看看:http://weibo.com/p/1005053019480453/myfollow

新浪微博自动转发评说 源码 按键精灵实现 详细注释 几十行代码实现 涉及图像识别模拟键盘鼠标

源码:

Dim iy
Rem head
iy = 0
Rem nextfind
FindPic 0,iy,1366,768,"Attachment:\zf.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then 
    //MessageBox "yes"
    MoveTo intX , intY
    Delay 500
    LeftClick 1
    MoveTo 0,0
    Delay 500
    //   //确认转发
//    Delay 500
//    SayString "小黄人软件淘宝旗舰店 程序源码,定制专家 手机:18910620895 旺旺:chenhao0568 QQ:345139427 店铺:http://chenhao0568.taobao.com"
//    Delay 500
    //确认转发
    KeyDown 17, 1
    KeyPress 13, 1
    KeyUp 17, 1
    Delay 3000
    //如果未发成功,退回
    KeyPress "Esc", 1
    Delay 500
    //屏幕向下找
    iy = intY + 40
    If iy > 768 Then 
        KeyPress "PageDown", 1
        Delay 1000
        Goto nextpage
    End If
    Goto nextfind
End If
Delay 2000
KeyPress "PageDown", 1
Delay 1000
//下一页
Rem nextpage
FindPic 0,0,1366,768,"Attachment:\next3.bmp",1,intX,intY
If intX > 0 And intY > 0 Then 
//    MessageBox "aa"
    MoveTo intX , intY
    Delay 5000
    LeftClick 1
    MoveTo 0,0
    Delay 500
Else 
//    MessageBox "can not find next3"
End If

Goto head

大家不要随便用 ,会被扣分的。

新浪微博自动转发评说 源码 按键精灵实现 详细注释 几十行代码实现 涉及图像识别模拟键盘鼠标

附两张图片。

新浪微博自动转发评说 源码 按键精灵实现 详细注释 几十行代码实现 涉及图像识别模拟键盘鼠标




运行业中。

新浪微博自动转发评说 源码 按键精灵实现 详细注释 几十行代码实现 涉及图像识别模拟键盘鼠标



如需定制请联系:程序源码,定制专家手机:18910620895 旺旺:chenhao0568  QQ:345139427

1楼chenhao05685小时前
粘贴的图片为什么不显示?