Member 10239479 Ответов: 1

Проблема в подключении к серверу adobe connect server


Я пишу ниже код для подключения к серверу adobe connect
adobe connect server responsed: Not Found

где же ошибка?
Пожалуйста, помогите решить эту проблему

Что я уже пробовал:

Dim request As HttpWebRequest = WebRequest.Create("http://myip/api/xml?action=login&login=mupass@yahoo.com&password=mypass")

Dim response As HttpWebResponse = request.GetResponse()
Dim dataStream As Stream = response.GetResponseStream()
Dim reader As New StreamReader(dataStream)
Dim responseFromServer As String = reader.ReadToEnd()
TextBox1.Text &= responseFromServer

'Rsponse in textbox is"
'
'<results><status code="ok">
'<owasp_csrf_token><token>ba481f41bb75d42d6e021e8062960723dfd9b9cb6caf5b0d424f022a1ee00418
'


If CType(response, HttpWebResponse).StatusDescription = "OK" Then

    'read response header
    Dim strr As String = ""
    For i As Integer = 0 To response.Headers.Count - 1
        strr &= response.Headers.Keys(i) & "," & response.Headers(i)
    Next
    TextBox2.Text = strr

    'response header is:
    'Content-Length,194Cache-Control,max-age:5Content-Type
    ',text/xmlDate,Fri, 18 Sep 2020 17:06:59 GMTExpires,nowSet-Cookie,BREEZESESSION=breeziip2qd4cezwfbqhx;HttpOnly;path=/Server,Apache-Coyote/1.1


    'find seassion data:
    Dim toool As Integer = strr.IndexOf(";HttpOnly;") - strr.IndexOf("BREEZESESSION=") - 14
    strr = strr.Substring(strr.IndexOf("BREEZESESSION=") + 14, toool)
    Label1.Text &= strr

    'create new user with new question

    Dim reqq As HttpWebRequest = HttpWebRequest.Create("http://185.164.252.155/xml?action=principal-update&first-name=reza&last-name=yar&login=reza&email=reza@yahoo.com&password=123&type=user&has-children=0")

    Dim NewCooki As New Cookie("BREEZESESSION", strr, "/", "/")


    If reqq.CookieContainer Is Nothing Then
        reqq.CookieContainer = New CookieContainer
    End If
    reqq.CookieContainer.Add(NewCooki)
    Dim respp As HttpWebResponse = reqq.GetResponse
    Dim dataStream3 As Stream = respp.GetResponseStream()
    Dim reader3 As New StreamReader(dataStream3)
    Dim responseFromServer3 As String = reader3.ReadToEnd()
    TextBox3.Text &= responseFromServer3

   

End If

1 Ответов

Рейтинг:
2

Sandeep Mewara

adobe connect server responsed: Not Found

Вы уверены что url правильно ли это?

Я вижу:
WebRequest.Create("http://myip/api/xml?action=login&login=mupass@yahoo.com&password=mypass")

Если это шаблон, то используемый вами url-адрес не имеет интерфейс прикладного программирования в этом.
HttpWebRequest.Create("http://185.164.252.155/xml?action=principal-update&first-name=reza&last-name=yar&login=reza&email=reza@yahoo.com&password=123&type=user&has-children=0")


База будет состоять в том, чтобы проверить, что url-адрес доступен и действителен, прежде чем пытаться ввести код.