[silverlord]

(16-12-14, 12:12 AM)sooriaty03 كتب : السلام عليكم ورحمة الله وبركاته

تفضل أخي الكريم

كود :

Imports System.Net, System.IO
Imports System.Threading
Public Class Form1
   Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
       CheckForIllegalCrossThreadCalls = False
   End Sub
   Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
       Dim Thread As Threading.Thread
       For Each url In File.ReadAllLines("d:\list.txt")
           Thread = New Threading.Thread(AddressOf run)
           Thread.Start(url)
       Next
   End Sub
   Sub run(ByVal Url As String)
       Dim web As New WebClient
       web.DownloadString(Url)
       RichTextBox1.Text += Url + vbNewLine
   End Sub

End Class

لكن إذا كانت القائمة طويلة فأنصحك أن تقوم بتحميل عدد معين في كل مرة ..

بالتوفيق

الله يعطيك العافية البرنامج صاير مثل الصاروخ بعد ما قمت ببعض التعديلات على كودك
تحياتي لك