[Genius Live]

الفكرة ببساطة انك بعد تسجيل الاسم وكلمة المرور تجلب البيانات الموجودة في الصفحة وتعملها تصفية وتأخذ منها البيانات اللي انت عايزها فقط
وهذا الكود كمثال لجلب بيانات الصفحة المذكوره في Label1 وطبعا هتغيير العنوان

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 


وطبعا انت ممكن تجلب البيانات حسب السطر كالتالي بإستخدام Split :

PHP كود :

Label1.Text = Split(data, VBCrLf)(1) 


وبعد ذلك استخدم دوال النصوص لتصفية البيانات التي تريدها