自动翻页转发,自动滚屏,,一条一条地转发。
1.打开微博,登录
2.打开按键精灵,进入调试
3.回到要转发的微博界面,按F10启动转发。
我的微博已经转发了很多条。不信可以看看:
源码:
Dim iyRem headiy = 0Rem nextfindFindPic 0,iy,1366,768,"Attachment:\zf.bmp",0.9,intX,intYIf intX > 0 And intY > 0 Then//MessageBox "yes"MoveTo intX , intYDelay 500LeftClick 1MoveTo 0,0Delay 500// //确认转发// Delay 500// SayString "小黄人软件淘宝旗舰店 程序源码,定制专家 手机:18910620895 旺旺:chenhao0568 QQ:345139427 店铺:"// Delay 500//确认转发KeyDown 17, 1KeyPress 13, 1KeyUp 17, 1Delay 3000//如果未发成功,退回KeyPress "Esc", 1Delay 500//屏幕向下找iy = intY + 40If iy > 768 ThenKeyPress "PageDown", 1Delay 1000Goto nextpageEnd IfGoto nextfindEnd IfDelay 2000KeyPress "PageDown", 1Delay 1000//下一页Rem nextpageFindPic 0,0,1366,768,"Attachment:\next3.bmp",1,intX,intYIf intX > 0 And intY > 0 Then // MessageBox "aa"MoveTo intX , intYDelay 5000LeftClick 1MoveTo 0,0Delay 500Else // MessageBox "can not find next3"End IfGoto head大家不要随便用 ,会被扣分的。
附两张图片。
运行业中。
如需定制请联系:程序源码,定制专家手机:18910620895 旺旺:chenhao0568 QQ:345139427
我就想是一只草原中被牧童遗忘的羊,