+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+--- الموضوع : [vb6.0] طلب مساعدة ضروري في كود التحكم بالوقت + كود أحضار أسم المتصفح الافتراضي (/showthread.php?tid=14410)
طلب مساعدة ضروري في كود التحكم بالوقت + كود أحضار أسم المتصفح الافتراضي - Jonewickk - 17-01-16
السلام عليكم
احتاج المساعدة العاجلة اخواني
لدي كود
كود :
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 هذا الأمر سوف يقوم بالعمل
لكن سوف يوقف عمل البرنامج بالكامل
أحتاج ان استغمل تايمر في هذه العملية ... لكي يفتح كل موقع كل 20 دقيقه مثلا :
==============
والكود الاخر هو أريده ان يقفل الصفحة بعد دقيقتين مثلا
( أرجوو المساعدة يا أخواني :
وهذا مثال مرفق