自动翻页转发,自动滚屏,一条一条地转发。
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
时间: 2024-10-13 05:04:14