+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : تنفيذ اكثر من عملية في نفس الوقت (/showthread.php?tid=10926)
تنفيذ اكثر من عملية في نفس الوقت - silverlord - 15-12-14
السلام عليكم ورحمة الله وبركاته
اخواني انا عندي هذا الكود ووظيفته تحميل السورس كود للمواقع الموجودة داخل الملف list.txt
عند اضافة butoon و richtextbox وتشغيل البرنامج ستلاحظ ان البرنامج يقوم بفتح المواقع موقع موقع
سؤالي هو
كيف اخليه يفتح مثلاً عشرة مواقع دفعة واحدة في نفس الوقت بدل مايفتح موقع واحد ؟
PHP كود :
Imports System.Net, System.IO
Imports System.Threading
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
CheckForIllegalCrossThreadCalls = False
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim Thread As Threading.Thread
Thread = New Threading.Thread(AddressOf run)
Thread.Start()
End Sub
Sub run()
Dim web As New WebClient
For Each url In File.ReadAllLines("d:\list.txt")
web.DownloadString(url)
RichTextBox1.Text += url + vbNewLine
Next
End Sub
End Class
وشكرا لكم
RE: تنفيذ اكثر من عملية في نفس الوقت - sooriaty03 - 16-12-14
السلام عليكم ورحمة الله وبركاته
تفضل أخي الكريم
كود :
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لكن إذا كانت القائمة طويلة فأنصحك أن تقوم بتحميل عدد معين في كل مرة ..
بالتوفيق
RE: تنفيذ اكثر من عملية في نفس الوقت - silverlord - 17-12-14
(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
لكن إذا كانت القائمة طويلة فأنصحك أن تقوم بتحميل عدد معين في كل مرة ..
بالتوفيق
تحياتي لك