منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - طلب مساعدة ضروري في كود التحكم بالوقت + كود أحضار أسم المتصفح الافتراضي

السلام عليكم

احتاج المساعدة العاجلة اخواني
لدي كود

كود :

Dim RunAnim As Boolean

Dim Position As Long

On Error Resume Next

    Dim a As Integer

    RunAnim = True 'run

     Position = 0

 For a = Position To LST.ListCount - 1

        LST.ListIndex = a

        txtemail.Text = LST.Text

      'فتح الموقع بالمتصفح الافتراضي

      OpenBrowser txtemail.Text

      Sleep 1000

        Position = (a + 1) Mod LST.ListCount

        DoEvents

        If RunAnim = False Then Exit For

 'تحديد السرعة

   Sleep 1000

    Next a

    RunAnim = False

هذا الكود لبرنامج اقوم بأضافات مواقع في الـ list وهو يقوم بفتحها واحد ورا الأخر بالمتصفح الافتراضي الجهاز
لكن المشكلة انا أريده ان يفتح كل موقع كل 20 دقيقة مثلا عند أستخدم sleep ولنقول sleep 60000 * 20 هذا الأمر سوف يقوم بالعمل
لكن سوف يوقف عمل البرنامج بالكامل Confused

أحتاج ان استغمل تايمر في هذه العملية ... لكي يفتح كل موقع كل 20 دقيقه مثلا : Sad

==============
والكود الاخر هو أريده ان يقفل الصفحة بعد دقيقتين مثلا Sad

(

أرجوو المساعدة يا أخواني : Sad

وهذا مثال مرفق

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

Jonewickk