Steffest Digitale Pulptuur

twitter2identica and plurk2identica

Another day, another social network.

Today all the buzz was about, a twitter clone, but based on the open source Laconica

the 140 char limit posting thing made it an ideal target to hook up to Feedtweeter: Keeping track of all those social networks gets a little insane, so it makes sense to have a tool that syncs all your networks, no ? Post something in twitter or plurk, and it will appear in too.
Here's the post-to-idetica script in VB has no official API yet, but the approach is the same as the Plurk posting: just hit the website and simulate the login and posting forms.

identicaAccount = "Steffest"
identicaPass = "*********"
identica("hello identicaworld!")
function identica(message)
	' based on
	url_login = ""
	url_post = ""
	' first: login
	useragent = Request.ServerVariables("HTTP_USER_AGENT")
	poststring = "nickname=" & identicaAccount & "&password=" & identicaPass
	set objXMLHTTP = Server.CreateObject("MSXML2.SERVERXMLHTTP")
	objXMLHTTP.Open "POST", url_login, false
	objXMLHTTP.setRequestHeader "User-Agent",useragent 
	objXMLHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
	objXMLHTTP.Send poststring
	' then send the message
	poststring  = "status_textarea=" & message
	objXMLHTTP.Open "POST", url_post, false,plurkAccount,plurkPass
	objXMLHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
	objXMLHTTP.Send poststring
	identica = objXMLHTTP.responseText
end function

Tags: in English, Programming, Scripting, Twitter, Web 2.0Geef je reactie (0)