كيف افتح اكثر من موقع انترنت بفترة زمنية متباعدة

[محمد احمد لطفى]

السلام عليكم ورحمة الله وبركاته 

لدى مشكلة فى الدخول على صفحات الانترنت 

هناك بعض المواقع اذا تم الدخول اليها من اكثر من لينك يعرف اننى برنامج 

فالمطلوب هوه عند الضغط زرار افتح الجميع هنا 

يفتح موقع و بعد 10 ثوانى يفتح الموقع الاخر و هكذا 
تحدث هذه المشكلة اذا فتحت نفس الموقع مثلا 3 او 4 او 5 مرات فى وقت واحد 

فيجيب ان يكون هناك فرق توقيت بين كل موقع 

وجزاكم الله خيراً

579.1.test1900.rar

[jjafferr]

تفضل

 

تستطيع ان تتحكم في مدة التأخير ، والتي وضعتها انا لمدة 10 ثوان حسب طلبك

Private Sub cmd_Open_All_Click()

    Dim rst As DAO.Recordset
    Set rst = Me.RecordsetClone
    rst.MoveLast: rst.MoveFirst
    RC = rst.RecordCount
    
    For i = 1 To RC
        Application.FollowHyperlink rst!Site
        
        PauseTime = 10   ' Set duration in seconds.
        Start = Timer    ' Set start time.
        Do While Timer < Start + PauseTime
            DoEvents    ' Yield to other processes.
        Loop

        rst.MoveNext
    Next i
    
    rst.Close: Set rst = Nothing
    
End Sub

 

جعفر

[محمد احمد لطفى]

جزاك الله خيرا أستاذى
jjafferr