السلام عليكم
ما الخطأ src فارغ
ما الخطأ مع أن الأكواد صحيحة
هذا أول برنامج لي ب .net
فقط كنصيحة لتجنب ظهور بعض الإعلانات المشينة بالأخلاق
قم بتكبير الصفحة أعني http://thepiratebay.sx الى 150% أو 200
و بذلك لن تظهر الإعلان
لتكبير الصفحة إشغط CTRL + زائد
هذه الإعلانات هي من جعلتني أحاول صنع هذا البرنامج
وظيفته أن يظهر نتائج البحث في ليست دون الدخول للموقع
ما الخطأ src فارغ
ما الخطأ مع أن الأكواد صحيحة
PHP كود :
Imports System.Net
Imports System.IO
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
ProgressBar1.Value = 0
Application.DoEvents()
Dim Wordsearch
Wordsearch = Replace(TextBox1.Text, " ", "%20")
RichTextBox1.Text = "http://thepiratebay.sx/search/" & Wordsearch & "/0/99/0"
Application.DoEvents()
Dim req As HttpWebRequest = HttpWebRequest.Create("http://thepiratebay.sx/search/" & Wordsearch & "/0/99/0")
Application.DoEvents()
ProgressBar1.Value = 25
Application.DoEvents()
Dim res As HttpWebResponse = req.GetResponse()
Application.DoEvents()
ProgressBar1.Value = 50
Dim reader As New StreamReader(res.GetResponseStream())
Application.DoEvents()
ProgressBar1.Value = 75
Dim scr As String = reader.ReadToEnd()
Application.DoEvents()
RichTextBox1.Text = scr
ProgressBar1.Value = 100
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim Wordsearch
Wordsearch = Replace(TextBox1.Text, " ", "%20")
RichTextBox1.Text = "http://thepiratebay.sx/search/" & Wordsearch & "/0/99/0"
End Sub
End Class
فقط كنصيحة لتجنب ظهور بعض الإعلانات المشينة بالأخلاق
قم بتكبير الصفحة أعني http://thepiratebay.sx الى 150% أو 200
و بذلك لن تظهر الإعلان
لتكبير الصفحة إشغط CTRL + زائد
هذه الإعلانات هي من جعلتني أحاول صنع هذا البرنامج
وظيفته أن يظهر نتائج البحث في ليست دون الدخول للموقع
منقطع .. للدراسة