Android Tutorial Twitter - V1.1 API example (application-only auth)

need help

i tried this example but i get an error like this

 

Hi Erel,

I've tried the above example & it works perfect to logon & retrieve tweets from a particular user, using the above code how can I modify it to logon in the same way & send a basic tweet with the push of a single button?

Thanks,

Wexican.

Tested on HTC One X!

 

Thanks for the reply Erel,

If I create a twitter account is there an easy way to post tweets?
I was thinking of using a webview, login with an account details, then manipulate the website with javascript through the webview to send tweets, but if the website changes my b4a app may fail to login etc.

I've done this with Vodafone website before, but looking for an easier & more robust way.

Thanks,

Wexican

 

Hi Erel,

Thanks for this example. I'm using it to read the twitter feeds of just one twitter user (my local independent cinema).

What I'd like to do is just access the twitter feeds once, instead of every 15 minutes.

I tried putting CancelScheduledService(TwitterService) in the Main.Pause sub but when I come out of the app and look in Task manager, the app is still using cpu.

I also put StopService(Me) in the TwitterService.Service_Destroy sub.

And I tried StartService instead of StartServiceAt in TwitterService.Service_Start but that appeared to loop.

Any ideas?

Thanks,
Chris

 

Thanks Erel, that works perfectly. I obviously don't yet understand services properly. But I'm working on it.

 

How to post tweets in new API v1.1 ,badly need it ..tnx..

 

Can you please post a function to get access token using api 1.1?
I have been looking for an easy tutorial for days to get it working but I am not good at languages I found examples for.
Please post a B4A Function

 

Thank you . But is this access token capable of doing other functions like tweet , retweet and follow?

 

I am sorry for annoying you . Can you please tell me how to get the right access token?
Thank you in advance

 

I tried to modify your function to get the right access token but could not succeed . here is my horrible code

Code:

Public Sub GetToken '(rd As RequestData)
    Dim tok As HttpJob
    tok.Initialize("tok", Me)
'    Dim fullkey As String = Main.AppKey.Trim & ":" & Main.AppSecret.Trim
    Dim su As StringUtils
    Dim auth As String="OAuth oauth_nonce=K7ny27JTpKVsTgdyLdDfmQQWVLERj2zAK5BslRsqyw,oauth_callback="&main.cb&", oauth_signature_method="&"~HMAC-SHA1~".Replace("~",QUOTE)&", oauth_timestamp="&DateTime.Now&", oauth_consumer_key="&main.AppKey.Trim&", oauth_signature="&"~Pc%2BMLdv028fxCErFyi8KXFM%2BddU%3D~, oauth_version=~1.0~".Replace("~",QUOTE)
    Dim b64 As String = su.EncodeBase64(auth.GetBytes("UTF-8"))
    tok.PostString("https://api.twitter.com/oauth/request_token", "oauth_callback="&Main.cb)
    tok.GetRequest.SetHeader("Authorization", b64)
'    tok.Tag = rd
End Sub

Can you or anyone help me?

 

Here is the link

https://dev.twitter.com/docs/api/1/post/oauth/request_token

I am still modifying the function but with no success , actually I do not think I fully understood the new api 1.1

Code:

Public Sub GetToken '(rd As RequestData)
    Dim tok As HttpJob
    tok.Initialize("tok", Me)
'    Dim fullkey As String = Main.AppKey.Trim & ":" & Main.AppSecret.Trim
    Dim su As StringUtils
    Dim baseurl As String="https://api.twitter.com/oauth/request_token"
    Dim parameterstring As String="OAuth oauth_nonce=K7ny27JTpKVsTgdyLdDfmQQWVLERj2zAK5BGyZeRyw&"&"oauth_callback="&Main.cb&"&oauth_signature_method="&"~HMAC-SHA1~".Replace("~",QUOTE)&"&oauth_timestamp="&DateTime.Now&"&oauth_consumer_key="&Main.AppKey.Trim&"& oauth_version=~1.0~".Replace("~",QUOTE)
    Dim suu As StringUtils
   
    Dim signaturebasestring As String="POST&"&suu.EncodeUrl(baseurl,"ASCII")&"&"&suu.EncodeUrl(parameterstring,"ASCII")
   
    Dim signingkey As String=suu.EncodeUrl(Main.AppSecret.Trim,"ASCII")&"&"'&suu.EncodeUrl(main.AppSecret.Trim,"ASCII")
    Dim sinature As String=CreateHash("HMAC-SHA1",signaturebasestring&signingkey,"UTF-8")
    Log(sinature)
    Dim auth As String="OAuth oauth_nonce=K7ny27JTpKVsTgdyLdDfmQQWVLERj2zAK5BGyZeRyw,oauth_callback="&Main.cb&", oauth_signature_method="&"~HMAC-SHA1~".Replace("~",QUOTE)&", oauth_timestamp="&DateTime.Now&", oauth_consumer_key="&Main.AppKey.Trim&", oauth_signature="&sinature&", oauth_version=~1.0~".Replace("~",QUOTE)
    Dim b64 As String = su.EncodeBase64(auth.GetBytes("UTF-8"))
    tok.PostString(baseurl, Main.cb)
    tok.GetRequest.SetHeader("Authorization", b64)
'    tok.Tag = rd
End Sub