[ali.alfoly]

السلام عليكم
اسف علي التاخير والله مشغول جدا
بعد اذن اخي شرح الكود

كود :

Public Class Form1

    '- الاعلان عن متغير نصي ليحمل النص الموجود في الملف
    Dim fileContents As String
    '- الاعلان عن مصفوفة نصية باستخدام علامتي () لتخزين النص  بعد تقسيمه عن طريق الاسطر
    Dim Lines() As String

    '- متغير رقمي لاستخدامه في عد الاسطر
    Dim u As Integer = -1

    '- عند تحميل الفورم
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        '- جلب النص من الملف
        '- Application.StartupPath  -  تعني مسار المجلد الذي تم فتح البرنامج منه
        fileContents = My.Computer.FileSystem.ReadAllText(Application.StartupPath & "\Url.txt")

        '-  تقوم بتقسيم النص الي مصفوفة عن طرق حرف معين Split الدالة
        '- وهي تعني سطر vbNewLine هنا سيتم تقسيم النص عن طريق الدالة
        Lines = Split(fileContents, vbNewLine) ' وضع كل سطر بالملف النصي بعنصر بالمصفوفة


        '- وضع جميع العناصر الموجودة في المصفوفة في اليست بوكس
        ListBox1.Items.AddRange(Lines)

        '- تشغيل التايمر
        '- الخاص بالتايمر Tick وعند تشغيله سيتم تنفيذ اي كود يتم كتابته في الحدث
        Timer1.Enabled = True


    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        On Error Resume Next

        '- نقص العدد الموجود في اليبل ب 1
        Label2.Text = Label2.Text - 1

        '- عند انتهاء العد والوصول الي الصفر
        If Label2.Text = 0 Then

            '- زيادة العداد بواحد
            u = u + 1

            '-  تقوم بفتح اي شي برنامج ملف نصي او موقع اي رابط نعطيها اياه راح تفتحه Process.Start الدالة
            '- هنا اعطيناها رابط الموقع من المصفوفة عن طريق رقمه في العداد
            Process.Start(Lines(u))

            '- تغير العدد ليبدء في العد من جديد
            Label2.Text = 60

        End If

    End Sub
End Class