[ali.alfoly]

ما شاء الله دروس روعة انا كنت شفتها قبل كده لاكن للاسف وقتها كنت مشغول بشئ اخر
انا طبقت الدرس الاول لاكن في مشكلة مش عارفها ارجو مراجعه الكود

كود :

Dim _cookies As New CookieContainer()

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        '-  معرفة الترميز عن طريق الدالة
        Dim charset As System.Text.Encoding = getEncoding("http://vb4arb.com/vb")

        Dim stringData As String = String.Format("action=do_login&url=http%3A%2F%2Fvb4arb.com%2Fvb%2Findex.php&quick_login=1&quick_username={0}&quick_password={1}&submit=%D8%AF%D8%AE%D9%88%D9%84&quick_remember=yes", Me.TextBox1.Text.Trim, Me.TextBox2.Text.Trim)
        Dim postData As Byte() = charset.GetBytes(stringData)

        Dim LoginRequset As HttpWebRequest = WebRequest.Create("http://vb4arb.com/vb/member.php")
        LoginRequset.ContentType = "application/x-www-form-urlencoded"""
        LoginRequset.Method = WebRequestMethods.Http.Post
        LoginRequset.ContentLength = postData.Length
        LoginRequset.CookieContainer = _cookies
        LoginRequset.KeepAlive = True
        Dim wr As System.IO.Stream = LoginRequset.GetRequestStream()
        wr.Write(postData, 0, postData.Length)
        wr.Close()

        ' فور انتهاء البلوكا LoginResponse لكي يتم تدمير الكائن using استعملن
        ' response لأن يحصل خطا اذا سويت طلبين لنفس الموقع وماقمت بدمير ال
        Using LoginResponse As HttpWebResponse = LoginRequset.GetResponse()
            '- ينتهي هذا الكود بحفظ كوكيز العضوية في المتغير العام
            _cookies.Add(LoginResponse.Cookies)
        End Using



        Dim onlineRequset As HttpWebRequest = WebRequest.Create("http://vb4arb.com/vb/member.php?action=profile&uid=1")
        onlineRequset.Method = "GET"
        onlineRequset.CookieContainer = _cookies ' //مهم
        Dim onlineResponse As HttpWebResponse = onlineRequset.GetResponse()
        Me.WebBrowser1.DocumentStream = onlineResponse.GetResponseStream()


    End Sub