学步园

Sub sendTweets()<br /> Dim xml, sUsername$, sPassword$, sTweets$<br /> Set xml = CreateObject("MSXML2.XMLHTTP")<br /> sUsername = "" ' your username<br /> sPassword = "" ' your password<br /> sTweets = "" ' your tweets<br /> xml.Open "POST", "http://" & sUsername & ":" & sPassword & _<br /> "@twitter.com/statuses/update.xml?status=" & sTweets, False<br /> xml.setRequestHeader "Content-Type", "content=text/html; charset=iso-8859-1"<br /> xml.Send<br /> Set xml = Nothing<br /> Debug.Print "OK"<br /> End Sub<br />  

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