Hello all
Having some issues with v1.1 Twitter API.
I ported old UDF and after 3 successful follows I get 410 error.
It is always 3 successes and then 410
Need help figuring out why and how to fix it
Thanks
p.s. you need to authorize your account via www.supertweet.net
Having some issues with v1.1 Twitter API.
I ported old UDF and after 3 successful follows I get 410 error.
It is always 3 successes and then 410
Need help figuring out why and how to fix it
Thanks
p.s. you need to authorize your account via www.supertweet.net
Global $twYourScreenName ="" Global $stwYourPassword ="" Global $oXMLRequest=0; Func SuperTweet_Follow($twScreenName, ByRef $LimitExceeded) $oXMLRequest = ObjCreate("WinHttp.WinHttpRequest.5.1") If $oXMLRequest = 0 Then SetError(1, 1, 0) Local $SupTweetUrl = "http://api.supertweet.net/1.1/friendships/create.json"; Local $sLogin = _Base64Encode($twYourScreenName & ":" & $stwYourPassword) $oXMLRequest.Open("POST", $SupTweetUrl, False) $oXMLRequest.setRequestHeader("Content-Type", "application/x-www-form-urlencoded") $oXMLRequest.setRequestHeader("Authorization", "Basic " & $sLogin) $sData=StringFormat("screen_name=%s&follow=true",$twScreenName) ; $oXMLRequest.send($sData) $Status=$oXMLRequest.status; ConsoleWrite($oXMLRequest.ResponseText); $oXMLRequest=0; If $Status <> 200 Then SetError(2, 2, 0) if $Status =401 then MsgBox(0,"Username/password","Check your Username or Password for user:"&$twYourScreenName,5); if $Status =403 then $LimitExceeded=True; Return $Status; EndFunc