[elgokr]

بخصوص كود الرسالة

يمكنك حذف هذا الكود

كود :

                   Dim t As New Threading.Thread(AddressOf closeMsgbox)
                   t.Start(1) '1 = 1 second
                   ii += 1
                   MsgBox("الصفحة رقم " & ii)

وياليه هذا الكود

كود :

  Private Declare Sub keybd_event Lib "user32" _
                    (ByVal bVk As Byte,
                     ByVal bScan As Byte,
                     ByVal dwFlags As Byte,
                     ByVal dwExtraInfo As Byte)
  Private Const VK_RETURN As Byte = &HD
  Private Const KEYEVENTF_KEYDOWN As Byte = &H0
  Private Const KEYEVENTF_KEYUP As Byte = &H2

  Private Sub closeMsgbox(ByVal delay As Object)
      Threading.Thread.Sleep(CInt(delay) * 1000)
      AppActivate(Me.Text)
      keybd_event(VK_RETURN, 0, KEYEVENTF_KEYDOWN, 0)
      keybd_event(VK_RETURN, 0, KEYEVENTF_KEYUP, 0)
  End Sub

واذا كنت تريد اخفاء الرسالة فقط مؤقت حتى تري ماذا سيحدث

يكفى حذف هذا اجزء

كود :

MsgBox("الصفحة رقم " & ii)

اما بخصوص المرفق

فالمشكلة انك قمت بالتعديل على كل شئ الا الجزء المهم وهو

كود :

htm.Substring

حيث انك قمت بجعل القيمة 40 كما هى

لذلك جلب رابط الصورة وايضاً رابط الموضوع غير صحيح

حتى توضح الصورة لك راجع هذا الرابط

https://www.youtube.com/watch?v=SI9hBRA0414

تحياتى لك

وتمنياتى لك التوفيق