Twitter

[_pi]

i just made a test on xp and it works.
http://twitter.com/deskareas

Function twittertest
Trigger F12     

Code:

Copy      Help

spe -1
str txt.getsel

if txt.len>0
,
,tweet txt

Function tweet

Code:

Copy      Help

;/
function $text [$username] [$password]

username="myusername"
password="mypassword"


str user.encrypt(4 _s.from(username ":" password) "" 3)
str status.from("status=" text)
Http h.Connect("twitter.com")
h.Post("statuses/update.xml" status 0 _s.from("Authorization: Basic " user))