[a_almisery]

الــسلام علــيكم ... طــاب مسـاكم لـمن راه الــمنــشور في الــيل , ومن راه في الـصبح طاب يــومك ..
كــ]فيكم ...؟!
احــبتي اعــتقد من الــموضوع مــفـهوم ما الــمطلــوب
لنـبسط الامــر اكــثر ...
نـفترض ان لديــنا مــوقع يعـرض لك بـياناتك ولـكن بــعد تــسجيل الدخــول ...!!
اي عند الــذهاب الى موقع يطلب منـك ادخـــأل user , pass ومن ثممـــأ يـنقلك الى صفحتك حيـث تــوجد هـناك بيــاناتك ...!!
قــمت بــوضع فــورمان الاول فــيه تخطيط مكــان الـبيانات فــارغه وعند الضـغط ع جلب بــيانات يــقوم بفتح فورم ثــاني ومنه تقـوم الــمستخدم بكتـابه الـ user , pass من الفــورم الـثاني ومن ثمـا يـقوم بضغط جـلب ويـنفتح الـفورم الاول والذي فيه الادوات ( تيكست ) فارغه سـابقاً يـقوم بملأهــأ ببيـاناتك ....
ففي الـفـورم الثاني وضعت هذا الـكود في زر جلب الـبيانات بعد ادخال اليوزر والباس ولكنني لـست متـاكد من عملـها لانني لم اكمل الـبرنامج بعد بسبب افقد الى كود جلب الـبيانات اذا اسـتطاع الـكود الاول العـمل وهــو :/

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 


طبعــاً الـرجاء من اصـحاب الــخبره الـنظر في الـكود , شــاكرين لهم تــعاوننـهم معنـا ...
اذا كان هذا الكود سليم فلمشكله التــألي هيى كـيفيه سيتم اســتدعاء او جلب البيانات وعرضها في فورم اخــر هل سـيكون بعمل موديل او كلاس ...؟!!!
وشكــراً