本文介绍了如何在Twitter上发布消息的处理方法,对大家解决问题具有一定的参考价值,需要的朋友们下面随着小编来一起学习吧!
问题描述
HI
我收到错误消息"远程服务器返回错误:(401)未经授权."
我在很多站点都看到过,但都没有解决问题.
我试图在2天之内解决此问题,但我无法解决.请帮我提供一些示例代码.
这是现在正在使用的代码,
HI
I am getting an error "The remote server returned an error: (401) Unauthorized."
i have seen in so many sites but none of them solved the problem.
I am trying to fix this problem past 2 days but iam not able to do so. Please help me with some sample codes.
This is the code am using now,
Sub TwitIt(ByVal strUser As String, ByVal strPass As String, ByVal strMessage As String)
'this subroutine requires your ASP.NET page to have a label control with an ID of lblStatus
'create post variable for tweet
Dim strTweet As String = "status=" & Server.HtmlEncode(strMessage)
'convert post variable to byte array for transmission purposes
Dim bRequest As Byte() = System.Text.Encoding.ASCII.GetBytes(strTweet)
Try
'create HttpWebRequest to status update API resource
Dim objRequest As HttpWebRequest = WebRequest.Create("http://twitter.com/statuses/update.xml")
'pass basic authentication credentials
objRequest.Credentials = New NetworkCredential(strUser, strPass)
'set method to post and pass request as a form
objRequest.Method = "POST"
objRequest.ContentType = "application/x-www-form-urlencoded"
'tell the server it will not receive a 100 Continue HTTP response
objRequest.ServicePoint.Expect100Continue = False
'set content length of request
objRequest.ContentLength = bRequest.Length
'capture the stream (content) of the request
Dim objStream As Stream = objRequest.GetRequestStream()
'put the bytes into request
objStream.Write(bRequest, 0, bRequest.Length)
'close the stream to complete the request
objStream.Close()
'uncomment line below to report success
'lblStatus.Text = "Tweet sent!"
'You can also capture the XML response Twitter sends back
'uncomment lines below to capture responses
Dim objResponse As WebResponse = objRequest.GetResponse()
Dim objReader As New StreamReader(objResponse.GetResponseStream())
lblStatus.Text = objReader.ReadToEnd()
Catch ex As Exception
'uncomment line below to report ASP.NET errors
lblStatus.Text = ex.Message
End Try
End Sub
这是导致该问题的行"昏暗的objResponse As WebResponse = objRequest.GetResponse()
"
任何帮助都是可观的
谢谢
Govind
This is the line which causes that problem " Dim objResponse As WebResponse = objRequest.GetResponse()
"
Any Help would be appreciable
Thanks
Govind
推荐答案
这篇关于如何在Twitter上发布消息的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持!