trying to connect to Twitter stream with http. trying every URL I can find. Please see my code and errors. Here ismy Post content:
authHeader : "OAuth oauth_nonce=“NjM1NTU4MjA3NTEwNTA5MzMx”, oauth_signature_method=“HMAC-SHA1”, oauth_timestamp=“1420241951”, oauth_consumer_key=“F1if6ZvPaWcbrhq81leLFNOhT”, oauth_token=“859829466-AdZSBtACvpbQlY1hGgGi0YCVJJG0LgzhEP3HkWoK”,
oauth_signature=“A7XUQV3GtRHKpTL1%2BYE5AqBGwzs%3D”, oauth_version=“1.0"” String
postBody “status=Hoping%20to%20be%20authorized” String
------------------------------ http code follows: ---------------------------------------
' oauth implementation details
Dim oauth_version = "1.0"
Dim oauth_signature_method = "HMAC-SHA1"
' unique request details
Dim oauth_nonce = Convert.ToBase64String((New ASCIIEncoding()).GetBytes(Date.Now.Ticks.ToString()))
Dim timeSpan = Date.UtcNow - New Date(1970, 1, 1, 0, 0, 0, 0, DateTimeKind.Utc)
Dim oauth_timestamp = Convert.ToInt64(timeSpan.TotalSeconds).ToString()
' message api details
Dim status = "Hoping to be authorized"
Dim resource_url =
"https://api.twitter.com/oauth/request_token" not found
'"https://api.twitter.com/oauth/access_token" not found
'"https://api.twitter.com/1.1/" not found
'"https://stream.twitter.com/1.1/" not found
'"https://api.twitter.com/oauth/authorize" forbidden
'"https://stream.twitter.com/1.1/" forbidden
'"https://stream.twitter.com/1.1/statuses/filter.json" forbidden
' create oauth signature
Dim baseFormat = "oauth_consumer_key={0}&oauth_nonce={1}&oauth_signature_method={2}" & "&oauth_timestamp={3}&oauth_token={4}&oauth_version={5}&status={6}"
Dim baseString = String.Format(baseFormat, oauth_consumer_key, oauth_nonce, oauth_signature_method, oauth_timestamp, oauth_token, oauth_version, Uri.EscapeDataString(status))
'>>> baseString = here
baseString = String.Concat("POST&", Uri.EscapeDataString(resource_url), "&", Uri.EscapeDataString(baseString))
Dim compositeKey = String.Concat(Uri.EscapeDataString(oauth_consumer_secret), "&", Uri.EscapeDataString(oauth_token_secret))
'endcode the signature
Dim oauth_signature As String
Using hasher As New HMACSHA1(ASCIIEncoding.ASCII.GetBytes(compositeKey))
oauth_signature = Convert.ToBase64String(hasher.ComputeHash(ASCIIEncoding.ASCII.GetBytes(baseString)))
End Using
' create the request header
Dim headerFormat = "OAuth oauth_nonce=""{0}"", oauth_signature_method=""{1}"", " & "oauth_timestamp=""{2}"", oauth_consumer_key=""{3}"", " & "oauth_token=""{4}"", oauth_signature=""{5}"", " & "oauth_version=""{6}"""
Dim authHeader = String.Format(headerFormat, Uri.EscapeDataString(oauth_nonce), Uri.EscapeDataString(oauth_signature_method), Uri.EscapeDataString(oauth_timestamp), Uri.EscapeDataString(oauth_consumer_key), Uri.EscapeDataString(oauth_token), Uri.EscapeDataString(oauth_signature), Uri.EscapeDataString(oauth_version))
' make the request aka "command"
Dim postBody = "status=" & Uri.EscapeDataString(status)
ServicePointManager.Expect100Continue = False
'------------------------------- FIRST TRY
Dim request As HttpWebRequest = CType(WebRequest.Create(resource_url), HttpWebRequest)
request.Headers.Add("Authorization", authHeader)
request.Method = "POST"
request.ContentType = "application/x-www-form-urlencoded"
Dim content() As Byte = ASCIIEncoding.ASCII.GetBytes(postBody)
Using stream As Stream = request.GetRequestStream()
'writes a sequence of bytes to the current stream, and advances the position to content.length the end of the stream
stream.Write(content, 0, content.Length)
End Using
'after sending Post what is the response?
Dim response As WebResponse = request.GetResponse() '<<<<<<<<<,The remote server returned an error: (401) Unauthorized.
''=============================== SECOND TRY
'Dim req As WebRequest
'Dim res As HttpWebResponse
'req = WebRequest.Create(resource_url)
'req.Timeout = -1
'req.Headers.Add("Authorization", authHeader)
'res = DirectCast(req.GetResponse(), HttpWebResponse)
'Dim streamReader As StreamReader
'Dim strLine As String
'Dim encode As Encoding = System.Text.Encoding.GetEncoding("utf-8")
'streamReader = New StreamReader(res.GetResponseStream(), encode)
'While True
' strLine = streamReader.ReadLine()
' MsgBox(strLine) 'temp just in case it ever works!
'End While
'====================================
