تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[vb6.0] طلب مساعدة ضروري في كود التحكم بالوقت + كود أحضار أسم المتصفح الافتراضي
#1
السلام عليكم 

احتاج المساعدة العاجلة اخواني
لدي كود 
كود :
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   Sad Sad 
أحتاج ان استغمل تايمر في هذه العملية ... لكي يفتح كل موقع كل 20 دقيقه مثلا :Sad

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

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

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


الملفات المرفقة
.rar   New folder.rar (الحجم : 2.25 ك ب / التحميلات : 9)
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مساعدة فى تقسيم الشهر إلى 3 أقسام hsab 7 169 06-02-17, 10:39 PM
آخر رد: اسلام الكبابى
  [سؤال] التحكم باعدادات التايمر vb6 amer2000 6 209 28-11-16, 12:50 AM
آخر رد: amer2000
  مساعدة في كود جلب الصورة وحفظها في قاعدة البيانات مصمم هاوي 3 273 04-09-16, 09:36 AM
آخر رد: مصمم هاوي
  [vb6.0] اخوتي الاعزاء في المنتدى مساعدة عاجلة sher 0 150 30-08-16, 09:37 AM
آخر رد: sher
  picture box مساعدة بخصوص اداة ابو مهدي 2 199 21-08-16, 01:40 PM
آخر رد: ابو مهدي
  [vb6.0] مساعدة من اهل الخبرة sher 2 273 21-07-16, 12:24 PM
آخر رد: Amir_alzubidy
  [vb6.0] مساعدة لتخطي هذه المشكلة sher 1 155 18-07-16, 03:10 PM
آخر رد: Amir_alzubidy
  كيف يمكن التحكم فى شفافية Picturebox ؟ gedo 0 159 15-06-16, 07:49 AM
آخر رد: gedo
  مساعدة في تصميم برنامج صغير (طرة وكتبة) starwarr2005 2 242 22-05-16, 01:42 PM
آخر رد: starwarr2005
  طلب كيفية التحكم في الارقام tighrmte 2 345 12-05-16, 09:32 PM
آخر رد: اسلام الكبابى

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


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