0

Web サイトにログインしてパラメーターのリストを渡す必要があるページにアクセスしようとしています。サイトにログインできるように見えます (ログインの詳細を変更すると、401 無許可エラーが発生します) が、400 不正な要求エラーが発生します。コードは少しハッシュ化されているため、何かが間違っていることはわかっていますが、どこにあるのかわかりません。

編集されたコード

        Public Sub TestConn()


    Dim customeremailaddress As String = HttpUtility.UrlEncode("r.test@test.com")
    Dim customername As String = HttpUtility.UrlEncode("Ryan")
    Dim referenceid As String = HttpUtility.UrlEncode("ordertest123")
    Dim languagecode As String = HttpUtility.UrlEncode("1043")
    Dim expirydays As String = HttpUtility.UrlEncode("30")

    Dim UserName As String = "testusername"
    Dim password As String = "testpassword"
    Dim siteCredentials As New NetworkCredential(UserName, password)

    Dim URLAuth As String = "http://service.someurl.com/process.xml"
    Dim postString As String = String.Format("customeremailaddress={0}&customername={1}&referenceid={2}&languagecode={3}&expirydays={4}", customeremailaddress, customername, referenceid, languagecode, expirydays)

    Dim postBytes As Byte() = Encoding.UTF8.GetBytes(postString)

    Const contentType As String = "application/x-www-form-urlencoded"
    System.Net.ServicePointManager.Expect100Continue = False

    Dim cookies As New CookieContainer()
    Dim webRequest__1 As HttpWebRequest = TryCast(WebRequest.Create(URLAuth), HttpWebRequest)
    webRequest__1.Method = "POST"
    webRequest__1.ContentType = contentType
    webRequest__1.CookieContainer = cookies
    webRequest__1.ContentLength = postBytes.Length
    webRequest__1.UserAgent = "Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.9.0.1) Gecko/2008070208 Firefox/3.0.1"
    webRequest__1.Accept = "text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8"
    webRequest__1.Referer = "http://service.someurl.com/process.xml"
    webRequest__1.Credentials = siteCredentials

    Try
        Dim requestStream As Stream = webRequest__1.GetRequestStream()
        requestStream.Write(postBytes, 0, postBytes.Length)
        Dim responseReader As New StreamReader(webRequest__1.GetResponse().GetResponseStream())
        Dim responseData As String = responseReader.ReadToEnd()
        responseReader.Close()
        webRequest__1.GetResponse().Close()

    Catch ex As Exception
        Lbl_ConnTest_error.Text = ex.Message
    End Try

End Sub
4

1 に答える 1

1

postString文字列自体ではなく、バイトを送信する必要があります。

Dim postBytes As Byte() = Encoding.UTF8.GetBytes(postString)
...
webRequest__1.ContentLength = postBytes.Length
...
Dim requestStream As Stream = webRequest__1.GetRequestStream()
requestStream.Write(postBytes, 0, postBytes.Length)

詳細はこちら。

于 2013-03-26T09:34:45.783 に答える