Twitterでフォローしてくれた人をフォローする。

を10行位、で。

同様の機能やスクリプトは沢山ありますが、WSHは見かけなかったので。 WSHなら渡せば動く。からね。相手がWindowsなら。

follow_all_followers.vbs

Const API_FOLLOWERS = "http://api.twitter.com/1/statuses/followers.xml"
Const API_FOLLOW = "http://api.twitter.com/1/friendships/create.xml"
user = WScript.Arguments(0)
pass = WScript.Arguments(1)
 
With GetResponseXML("GET", API_FOLLOWERS, user, pass, "")
    For Each node In .selectNodes("/users/user[following='false']")
        screen_name = node.selectSingleNode("screen_name").text
        id = node.selectSingleNode("id").text
        WScript.Echo "following " & screen_name
        GetResponseXML "POST", API_FOLLOW, user, pass, "user_id=" & id
        WScript.Sleep(1000)
    Next
End With
 
Function GetResponseXML(method, url, user, pass, param)
    With CreateObject("MSXML2.XMLHTTP")
        .Open method, url, False, user, pass
        .send param
        Set GetResponseXML = .ResponseXML
    End With
End Function

くらいでどうでしょうか。んー。20行。

フォロワーが100人以上いる場合は、最新100人分しか対象にしません。(API仕様) 全部を対象にしたい場合は"page="をパラメータに追加しながらループする必要がありますな。

多言語のサンプルだと一旦friend,followerをテキストに落として比較したりしてるけど、最近、API仕様が変わって"following"が分かるようになったのかな。

役だった?

選択肢 投票
はい 1  
いいえ、ケフィアです 3  

作成日 2010-03-15 (月) 19:14:48

投稿者メソ | パーマリンク | トラックバック(1) | コメント(0)

Tag: WSH 10行くらい


  • 現在の仕様だともう動かないので、改訂版があると嬉しいところ -- 2014-04-10 (木) 11:35:52

URL B I U SIZE Black Maroon Green Olive Navy Purple Teal Gray Silver Red Lime Yellow Blue Fuchsia Aqua White