17-01-16, 11:40 AM
السلام عليكم
احتاج المساعدة العاجلة اخواني
لدي كود
هذا الكود لبرنامج اقوم بأضافات مواقع في الـ list وهو يقوم بفتحها واحد ورا الأخر بالمتصفح الافتراضي الجهاز
لكن المشكلة انا أريده ان يفتح كل موقع كل 20 دقيقة مثلا عند أستخدم sleep ولنقول sleep 60000 * 20 هذا الأمر سوف يقوم بالعمل
لكن سوف يوقف عمل البرنامج بالكامل
أحتاج ان استغمل تايمر في هذه العملية ... لكي يفتح كل موقع كل 20 دقيقه مثلا :
==============
والكود الاخر هو أريده ان يقفل الصفحة بعد دقيقتين مثلا (
أرجوو المساعدة يا أخواني :
وهذا مثال مرفق
احتاج المساعدة العاجلة اخواني
لدي كود
كود :
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 دقيقه مثلا :
==============
والكود الاخر هو أريده ان يقفل الصفحة بعد دقيقتين مثلا (
أرجوو المساعدة يا أخواني :
وهذا مثال مرفق