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 当然,发推前翻墙那是必要滴。