在Excel里发Twitter

 

Sub sendTweets()
    Dim xml, sUsername$, sPassword$, sTweets$

    Set xml = CreateObject("MSXML2.XMLHTTP")
    sUsername = ""                      ' your username
    sPassword = ""                      ' your password
    sTweets = ""                         ' your tweets

    xml.Open "POST", "http://" & sUsername & ":" & sPassword & _
       "@twitter.com/statuses/update.xml?status=" & sTweets, False
    xml.setRequestHeader "Content-Type", "content=text/html; charset=iso-8859-1"
    xml.Send
    Set xml = Nothing
    Debug.Print "OK"
End Sub

 

当然，发推前FQ那是必要滴。