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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] التحكم باعدادات التايمر vb6 amer2000 6 104 28-11-16, 12:50 AM
آخر رد: amer2000
  مساعدة في كود جلب الصورة وحفظها في قاعدة البيانات مصمم هاوي 3 174 04-09-16, 09:36 AM
آخر رد: مصمم هاوي
  [vb6.0] اخوتي الاعزاء في المنتدى مساعدة عاجلة sher 0 92 30-08-16, 09:37 AM
آخر رد: sher
  picture box مساعدة بخصوص اداة ابو مهدي 2 125 21-08-16, 01:40 PM
آخر رد: ابو مهدي
  [vb6.0] مساعدة من اهل الخبرة sher 2 201 21-07-16, 12:24 PM
آخر رد: Amir_alzubidy
  [vb6.0] مساعدة لتخطي هذه المشكلة sher 1 104 18-07-16, 03:10 PM
آخر رد: Amir_alzubidy
  كيف يمكن التحكم فى شفافية Picturebox ؟ gedo 0 103 15-06-16, 07:49 AM
آخر رد: gedo
  مساعدة في تصميم برنامج صغير (طرة وكتبة) starwarr2005 2 185 22-05-16, 01:42 PM
آخر رد: starwarr2005
  طلب كيفية التحكم في الارقام tighrmte 2 252 12-05-16, 09:32 PM
آخر رد: اسلام الكبابى
Question [كود] مساعدة فى كود برنامج اتصال برودباند mangawy 2 1,829 13-04-16, 11:03 AM
آخر رد: MicroDoha

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


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