找回密码
 加入
搜索
查看: 15739|回复: 50

[原创] 新浪微博批量关注,评论,转发工具

 火... [复制链接]
发表于 2012-5-10 17:50:39 | 显示全部楼层 |阅读模式
本帖最后由 geary 于 2012-5-10 18:12 编辑

上个帖子写的是模拟新浪微博关注的,http://www.autoitx.com/thread-31859-1-1.html,当时就想做批量关注,现在终于实现了。。

批量关注,评论,转发。
批量关注时是去关注别人的粉丝,所以需要给他一个别人的微博地址,这样才能关注。
评论和转发的是你打开微博时的15条微博。。

功能还写得不是很好,过后会完善的。。


小菜一枚,没什么技术含量的小工具。

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?加入

×

评分

参与人数 3金钱 +47 贡献 +1 收起 理由
5845 + 10 + 1 不错
黑色袜子 + 20 - - !
lpxx + 17

查看全部评分

发表于 2012-5-10 18:19:33 | 显示全部楼层
支持一下了..................
发表于 2012-5-10 20:17:29 | 显示全部楼层
有点意思 支持下
发表于 2012-5-10 21:03:02 | 显示全部楼层
很强 ,此等好贴 不顶实在可惜
发表于 2012-5-10 21:34:44 | 显示全部楼层
虽不玩微博,纯支持
发表于 2012-5-10 21:44:13 | 显示全部楼层
不玩微薄的 支持too
发表于 2012-5-10 21:45:08 | 显示全部楼层
牛逼!!!!!
发表于 2012-5-10 22:10:14 | 显示全部楼层
特意注册了个帐号,结果。

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?加入

×
 楼主| 发表于 2012-5-10 22:15:09 | 显示全部楼层
回复 8# lpxx


    能说下在哪出错么
 楼主| 发表于 2012-5-10 22:15:13 | 显示全部楼层
回复 8# lpxx


    能说下在哪出错么
 楼主| 发表于 2012-5-10 22:45:51 | 显示全部楼层
回复 8# lpxx


    我刚也用新注册的微博试了下。都正常哦。你的是在哪出错呢?
发表于 2012-5-10 22:48:42 | 显示全部楼层
回复  lpxx


    我刚也用新注册的微博试了下。都正常哦。你的是在哪出错呢?
geary 发表于 2012-5-10 22:45



点击登陆后就这样
发表于 2012-5-10 22:59:32 | 显示全部楼层
测试http://www.autoitx.com/thread-31859-1-1.html
出现这个提示

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?加入

×
 楼主| 发表于 2012-5-10 23:54:54 | 显示全部楼层
回复 13# lpxx


    这个有问题我是知道的,因为新浪微博有体验版和标准版,默认是标准版,而我用的是体验版,所以出错了。
$weibo = BinaryToString(InetRead('http://weibo.com', 1), 4)
    GUIDelete ($Form1)
    $nick = StringRegExp($weibo,"\[\'nick\'\] = \'(.*)\'\;",3) ;;名字
    $sex = StringRegExp($weibo,"\$CONFIG\[\'sex\'\] \= '(.*)\'\;",3) ;;性别
    $sex1 = StringReplace(StringReplace($sex[0],"m","男"),"f","女") ;;m为男,f为女
    $domain = StringRegExp($weibo,"domain\'\] = \'(.*)\'\;",3) ;;bygeary
    $wei = StringRegExp($weibo,'<strong node-type="weibo">(.*)</strong>',3) ;;微博条数
    $fans = StringRegExp($weibo,'<strong node-type="fans">(.*)</strong>',3) ;;粉丝
    $follow = StringRegExp($weibo,'<strong node-type="follow">(.*)</strong>',3) ;;关注
替换成下面代码,应该就可以了。
    $weibo = BinaryToString(InetRead('http://weibo.com', 1), 4)
        $xinxi = StringReplace(Encode2Unicode($weibo), "", "")
    GUIDelete ($Form1)
    $nick = StringRegExp($xinxi,"\[\'nick\'\] = \'(.*?)\'\;",3) ;;名字
    $sex = StringRegExp($xinxi,"\$CONFIG\[\'sex\'\] \= '(.*?)\'\;",3) ;;性别
    $sex1 = StringReplace(StringReplace($sex[0],"m","男"),"f","女") ;;m为男,f为女
    $domain = StringRegExp($xinxi,"domain\'\] = \'(.*?)\'\;",3) ;;bygeary
    $wei = StringRegExp($xinxi,'<strong node-type="weibo">(.*?)</strong>',3) ;;微博条数
    $fans = StringRegExp($xinxi,'<strong node-type="fans">(.*?)</strong>',3) ;;粉丝
    $follow = StringRegExp($xinxi,'<strong node-type="follow">(.*?)</strong>',3) ;;关注
直接登录就出错的,你再试下看,因为我发现在网速慢的时候会出错,因为是读取源码再匹配的,可能读取不到源码。

评分

参与人数 1金钱 +20 收起 理由
lpxx + 20 谢谢回答,不玩微博,不测试了

查看全部评分

发表于 2012-5-11 07:50:16 | 显示全部楼层
希望能够提供一个腾讯微博的,可以挂QQ等级
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-4-20 07:21 , Processed in 0.081145 second(s), 22 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表