本文介绍了如何在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上发布消息的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持!

05-30 03:14
查看更多