تقييم الموضوع :
  • 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 ك ب / التحميلات : 27)
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مساعدة في تحزيم المشروع VB6 عبد الرحمان البسكري 14 507 15-04-17, 11:01 AM
آخر رد: عبد العزيز البسكري
  [vb6.0] طلب مساعدة - أريد كود البحث السريع وعمل ملف تثبيت لبرنامجي المرفق Soufyane 1 212 10-04-17, 01:45 PM
آخر رد: Amir_alzubidy
  مساعدة بخصوص Listview haniblack 2 270 28-03-17, 06:21 PM
آخر رد: Amir_alzubidy
  مساعدة فى تقسيم الشهر إلى 3 أقسام hsab 7 568 06-02-17, 10:39 PM
آخر رد: اسلام الكبابى
  [سؤال] التحكم باعدادات التايمر vb6 amer2000 6 453 28-11-16, 12:50 AM
آخر رد: amer2000
  مساعدة في كود جلب الصورة وحفظها في قاعدة البيانات مصمم هاوي 3 628 04-09-16, 09:36 AM
آخر رد: مصمم هاوي
  [vb6.0] اخوتي الاعزاء في المنتدى مساعدة عاجلة sher 0 339 30-08-16, 09:37 AM
آخر رد: sher
  picture box مساعدة بخصوص اداة ابو مهدي 2 511 21-08-16, 01:40 PM
آخر رد: ابو مهدي
  [vb6.0] مساعدة من اهل الخبرة sher 2 466 21-07-16, 12:24 PM
آخر رد: Amir_alzubidy
  [vb6.0] مساعدة لتخطي هذه المشكلة sher 1 369 18-07-16, 03:10 PM
آخر رد: Amir_alzubidy

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


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