论坛 › 『 作品展览 』 › 新浪微博批量关注，评论，转发工具

geary 发表于 2012-5-10 17:50:39

新浪微博批量关注，评论，转发工具

本帖最后由 geary 于 2012-5-10 18:12 编辑

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

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

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


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

jkq920 发表于 2012-5-10 18:19:33

支持一下了..................

ooxxgod 发表于 2012-5-10 20:17:29

有点意思 支持下

komaau3 发表于 2012-5-10 21:03:02

很强 ，此等好贴 不顶实在可惜

lpxx 发表于 2012-5-10 21:34:44

虽不玩微博，纯支持

pigWoWo 发表于 2012-5-10 21:44:13

不玩微薄的 支持too

MicroBlue 发表于 2012-5-10 21:45:08

牛逼！！！！！

lpxx 发表于 2012-5-10 22:10:14

特意注册了个帐号，结果。

geary 发表于 2012-5-10 22:15:09

回复 8# lpxx


    能说下在哪出错么

geary 发表于 2012-5-10 22:15:13

回复 8# lpxx


    能说下在哪出错么

geary 发表于 2012-5-10 22:45:51

回复 8# lpxx


    我刚也用新注册的微博试了下。都正常哦。你的是在哪出错呢？

lpxx 发表于 2012-5-10 22:48:42

回复lpxx


    我刚也用新注册的微博试了下。都正常哦。你的是在哪出错呢？
geary 发表于 2012-5-10 22:45 http://www.autoitx.com/images/common/back.gif


点击登陆后就这样

lpxx 发表于 2012-5-10 22:59:32

测试http://www.autoitx.com/thread-31859-1-1.html
出现这个提示

geary 发表于 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,"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,"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) ;;关注直接登录就出错的，你再试下看，因为我发现在网速慢的时候会出错，因为是读取源码再匹配的，可能读取不到源码。

h20040606 发表于 2012-5-11 07:50:16

希望能够提供一个腾讯微博的，可以挂QQ等级

查看完整版本: 新浪微博批量关注，评论，转发工具