通过API设置Twitter状态（不带oAuth）

Posted 2021-02-25

This script works good condition, and not use "oAuth".
Your should get username and password with cleartext (standart html controls) without authentication and just add them into variables in your code...
(twitter_username and twitter_password)
And also get status from textbox and set variable named "new_status"

Response.Buffer = True
Dim xml
Set xml = Server.CreateObject("Microsoft.XMLHTTP")
 
twitter_username = "YOUR USERNAME"	'change to your twitter username
twitter_password = "YOUR PASSWORD"	'change to your twitter password
 
new_status = "YOUR STATUS"		'change to your new status
 
xml.Open "POST", "http://" & twitter_username & ":" & twitter_password & "@twitter.com/statuses/update.xml?status=" & server.URLencode(new_status), False
xml.setRequestHeader "Content-Type", "content=text/html; charset=iso-8859-1"
xml.Send
 
Response.Write xml.responseText		'view Twitter's response
 
Set xml = Nothing