منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .

السلام عليكم احبابي في الله ان شاء الله تكونو بخير
كما هو مكتوب في العنوان اريد جلب نص من صفحة ويب
استعملت مكتبة xnet

كود :

       While True

            Using request As New HttpRequest

                request.UserAgent = Http.ChromeUserAgent

                request.Proxy = Nothing

                request.IgnoreProtocolErrors = True

                request.Cookies = New CookieDictionary(False)

                request.AddParam("amountgen", TextBox1.Text)

                Dim res As String = request.Post("http://netflixgen.nicotroll.com/index.php").ToString

                Dim farfour As Match = Regex.Match(res, "rows=""10"" cols=""50"">(.*?)</textarea><button")

                TextBox2.Text = farfour.groups(1).Value

            End Using

        End While

ممكن تعديل على الكود و شكرا