Connor's Day

Time for my first ‘You sad bastard’ tumblr post. This is how to post to twitter through the API :) It’s a Visual basic Script Found it somewhere on the internet and changed it a bit to be easier to use :) To use it, change the USERNAME and PASSWORD lower down in the text to your username and password then copy and paste it into notepad and save it as WHATEVERYOUWANT.vbs Double click the created file and check your twitter updates :) ‘============================================================== ’ ’ Scriptname: PostToTwitterSimple.vbs ’ ’ SITEJUNCTION ’ TWITTER STATUS UPDATE ’ ’ With this script you can update your Twitter status ’ ’ July 2009 - Erick Hiemstra ’ ’ more info: ’ http://sitejunction.awardspace.com/vbscript_tweets/basic_script/ ’ ‘============================================================== OPTION EXPLICIT ‘Be sure you have declared all your variables. ’ ————————————— ’ SOME VARIABLES ’ In this script the response is hardcoded directly into a variable ’ to keep the script readable, but could of ’ course come from whatever source. ’ ————————————— Dim strUsername, strPassword, strMessage strUsername = “USERNAME” ’ Your Twitter username strPassword = “PASSWORD” ’ Your Twitter password strMessage = “Been on www.connorsday.tumblr.com and downloaded this! ” ’ Write the message you would like to seen on your Twitter here. ’ Calling the function and store the result in a variable. Dim strTwitterXMLResponse strTwitterXMLResponse = SendToTwitter(strMessage, strUsername, strPassword) ’ Post back the result with a messagebox so you know something happend MsgBox strTwitterXMLResponse, VbOkOnly, “TWITTER STATUS UPDATE” ’ ————————————— ’ FUNCTIONS ’ This is where the actual work is done ’ ————————————— Function SendToTwitter(strMessage, strUsername, strPassword) ’ This is the function wicht does all the work. ’ It uses XMLHTTP to post your message to Twitter.. Dim objHTTP Set objHTTP = CreateObject(“Microsoft.XMLHTTP”) objHTTP.open “POST”, “http://twitter.com/statuses/update.xml”, false, strUsername, strPassword objHTTP.send “status=” & strMessage ’ The function stores the Twitter response to the result of the function so you can use this later SendToTwitter = objHTTP.responseText Set objHTTP = nothing ‘Release the object End Function

peter is gay And That was by Tom. Thankyou Tom.