Dent From Desktop

A VB script for sending Dents (status updates) to Identi.ca from a Windows desktop.

See related blog post here: Denting from the Desktop for more details.

'----------------------------------------------------------------------
'Dent From Desktop
'
'A VBscript quick logger for updating your Identi.ca status 
' A.M. Doherty, 20th March 2011
' Related information: http://codeandeffect.co.uk/blog/2011/programming/denting-from-the-desktop-identica-desktop-update-client
' Code supplied as-is - use at your own risk
'----------------------------------------------------------------------
Option Explicit
Dim inputText
Dim objHTTP 
Dim username
Dim password
Dim identica
username = "your_username"
password = "your_password"
identica = "identi.ca/api/statuses/update.xml"
inputText = InputBox("Status update for Identica account "&username&":")
if len(inputText) >0 then
call updateIdentica(trim(inputText) )
else
	msgBox "No status entered, update not posted."
end if
function updateIdentica(text)
	Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP.4.0")
	objHTTP.Open "POST", "http://identi.ca/api/statuses/update.xml", False,username, password
	objHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
	objHTTP.send "status="&text
	msgBox objHTTP.responsetext
set objHTTP = nothing
End function