Attempting to get bearer token and seem to be having one of those days.Searched the threads and I have corrected some things such as end point, no dice. Returns 403 Forbidden.
This was supposed to be a quick test app written in vb.net with 2 methods, here is the latest code
Private Function FORMAT_KEYS(ByVal sCONSUMERKEY_ As String, ByVal sSECRET_ As String) As String
Dim sCONSUMERKEY As String
Dim sSECRETKEY As String
Dim sBASETOKEN As String
Dim sBEARERTOKEN As String
Dim baTOKEN() As Byte
Try
sCONSUMERKEY = UrlEncode(sCONSUMERKEY_)
sSECRETKEY = UrlEncode(sSECRET_)
sBASETOKEN = sCONSUMERKEY & ":" & sSECRETKEY
baTOKEN = Encoding.UTF8.GetBytes(sBASETOKEN)
sBEARERTOKEN = Convert.ToBase64String(baTOKEN)
Return sBEARERTOKEN
Catch
End Try
End Function
Private Function GET_ACCESS_TOKEN(ByVal sBEARERTOKEN_ As String) As String
Dim objCLIENT As New WebClient()
Dim baRESPONSE() As Byte
Dim sRESPONSE As String
Dim sURL As String
Dim sDATA As String
Dim baDATA() As Byte
Try
' add the header
objCLIENT.Headers.Add("Authorization", "Basic " & sBEARERTOKEN_)
objCLIENT.Headers.Add("User-Agent", "SAIL-TWITTER-AGENT")
objCLIENT.Headers.Add("Content-Type", "application/x-form-urlencoded,charset=UTF-8")
' set the url
sURL = "https://api.twitter.com/oauth2/token"
' format the data to upload
sDATA = "grant_type=client_credentials"
baDATA = Encoding.UTF8.GetBytes(sDATA)
' upload the post values get response
baRESPONSE = objCLIENT.UploadData(sURL, baDATA)
sRESPONSE = System.Text.Encoding.UTF8.GetString(baRESPONSE)
Return sRESPONSE
Catch exc As Exception
Return exc.ToString
End Try
End Function
Read the documentation, looks right and so probably right in front of me. Overall should be simple, get the bearer token, use with search tweets REST api. No user, no posting. I was sort of hoping to get to the search portion before it died
Thanks in advance
VLG
“Do you know how to use that thing”
“Well yeah, at least I think I do” - Dr. Peter Vinckman
