تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تنفيذ اكثر من عملية في نفس الوقت
#1
السلام عليكم ورحمة الله وبركاته
اخواني انا عندي هذا الكود ووظيفته تحميل السورس كود للمواقع الموجودة داخل الملف list.txt

عند اضافة butoon و richtextbox وتشغيل البرنامج ستلاحظ ان البرنامج يقوم بفتح المواقع موقع موقع
سؤالي هو
كيف اخليه يفتح مثلاً عشرة مواقع دفعة واحدة في نفس الوقت بدل مايفتح موقع واحد ؟
PHP كود :
Imports System.NetSystem.IO
Imports System
.Threading
Public Class Form1

    Private Sub Form1_Load
(sender As ObjectAs EventArgsHandles MyBase.Load
        CheckForIllegalCrossThreadCalls 
False
    End Sub
    Private Sub Button1_Click
(sender As ObjectAs EventArgsHandles 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 
صراحة اعتذر اذا كان عنوان الموضوع يختلف عن محتوى الموضوع لاني لم اجد عنوان مناسب للموضوع الا هذا العنوان ولي اكثر من اسبوع وانا ابحث عن اي حل لكن للاسف خبرتي بسيطة في الفيجوال بيسك

وشكرا لكم
الرد }}}}
تم الشكر بواسطة:
#2
السلام عليكم ورحمة الله وبركاته

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

كود :
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

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

بالتوفيق
الرد }}}}
تم الشكر بواسطة:
#3
(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

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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [كود] عملية حفظ واسترجاع ملفات عبدالرحمن المكاوي 22 383 22-02-17, 08:55 PM
آخر رد: khodor1985
  [VB.NET] كيفية تنفيذ كود فى حدث معين على اى فورم فى المشروع ؟ الماجيك مسعد 5 136 19-02-17, 04:59 PM
آخر رد: الماجيك مسعد
  حساب الوقت التقديري للانتهاء Mohamed20 1 60 13-02-17, 09:55 PM
آخر رد: Mohamed20
  منع المستخدم من التعديل على أكثر من معلومة في نفس الوقت اليوم مبتدئة وغداً محترفة 5 110 07-02-17, 08:35 PM
آخر رد: Amir_alzubidy
Information [VB.NET] مساعده في الفيجوال بيسك هل اقدر اسوي اكثر من فورم a_abdullah 5 282 28-01-17, 02:14 PM
آخر رد: أسامة السالمي
  منع تغير التاريخ و الوقت noway 5 149 25-01-17, 03:00 PM
آخر رد: مساعدة
Photo [سؤال] ارجوا توضيح المشكلة بعد عملية الحفظ أبووسم 7 158 21-01-17, 03:07 AM
آخر رد: أبووسم
  كود بخذف الاسماء القديمة التي تجاوز عمرها اكثر من 90 يوم من تاريخ اليوم الدريساوي 3 108 20-01-17, 11:07 PM
آخر رد: الدريساوي
  [VB.NET] مساعدة في قراءة داتابيس اكثر من نسخة للبرنامج 0theghost0 9 218 13-01-17, 10:44 AM
آخر رد: 0theghost0
  [VB.NET] خطا بالكود عند اجراء عملية حذف لاحد العملاء في البنك بسبب وجود علاقة بين الحقول في ال Asmaa adel 2 145 08-12-16, 11:57 AM
آخر رد: Asmaa adel

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم