اذهب الي المحتوي
أوفيسنا

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


إذهب إلى أفضل إجابة Solved by jjafferr,

الردود الموصى بها

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

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

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

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

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

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

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

Capture6546.JPG

579.1.test1900.rar

رابط هذا التعليق
شارك

  • أفضل إجابة

تفضل:smile:

 

تستطيع ان تتحكم في مدة التأخير ، والتي وضعتها انا لمدة 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

 

جعفر

  • Thanks 1
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information