[كود] ارسـال معـلومات الى الـموقع وجلـب بيانات

PHP كود :

Dim cookieJar As New Net.CookieContainer()
        Dim request As Net.HttpWebRequest
        Dim response As Net.HttpWebResponse
        Dim strURL As String

        Try
            
            strURL = "http://adsl.yemen.net.ye/en/login.aspx"
            request = Net.HttpWebRequest.Create(strURL)
            request.UserAgent = "Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.9.2.3) Gecko/20100401 Firefox/3.6.3"
            request.Method = "GET"
            request.CookieContainer = cookieJar
            response = request.GetResponse()

            For Each tempCookie As Net.Cookie In response.Cookies
                cookieJar.Add(tempCookie)
            Next

          
            request = Net.HttpWebRequest.Create(strURL)
            request.UserAgent = "Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.9.2.3) Gecko/20100401 Firefox/3.6.3"
            request.Method = "POST"
            request.AllowAutoRedirect = True
            request.CookieContainer = cookieJar

            Dim writer As StreamWriter = New StreamWriter(request.GetRequestStream())
            writer.Write("ctl00_ContentPlaceHolder1_loginframe_UserName" = TextBox1.Text, "ctl00_ContentPlaceHolder1_loginframe_Password" = TextBox2.Text)
            writer.Close()
            response = request.GetResponse()

       
            Dim stream As StreamReader = New StreamReader(response.GetResponseStream())
            Dim data As String = stream.ReadToEnd()
          If data.Contains("<big>Welcome") = True Then
            
            End If

        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

PHP كود :

Dim webAddress As String = "http://adsl.yemen.net.ye/en/login.aspx"
        Dim reader As StreamReader
        Dim request As WebRequest
        Dim response As WebResponse
        Dim data As String = ""
        Try
            request = WebRequest.Create(webAddress)
            request.Timeout = 30000
            response = request.GetResponse()
            reader = New StreamReader(response.GetResponseStream())
            data = reader.ReadToEnd
            Label1.Text = data
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try 