Real Studio xAuth Class

Real Studio用のxAuth Classが出来ましたので、一応公開いたします。

This xAuth Class needs SHA1 Class.
http://www.declareSub.com
direct link
http://www.declaresub.com/article/132/sha1-update

This xAuth Class needs HTTPSecureSocket with REALStudio Pro.

//Sample Code
dim xAuth1 as  xAuth
dim xAuthBool as Boolean
dim myoauth_token,myoauth_token_secret as String
xAuth1 = new xAuth
xAuth1.set_consumer_key("YOUR_CONSUMER_KEY")
xAuth1.set_consumer_secret("YOUR_CONSUMER_SECRET")
xAuthBool = xAuth1.getXAuthToken("ID","PASS")
if xAuthBool = true then
myoauth_token = xAuth1.get_oauth_token()
myoauth_token_secret = xAuth1.get_oauth_token_secret()
end if

dim server_res as string
//GET
server_res = xAuth1.xAuthRequest("https://twitter.com/statuses/home_timeline.xml","GET","count=5")

//POST
server_res = xAuth1.xAuthRequest("https://twitter.com/statuses/update.xml","POST","status=TEST")

DOWNLOAD