30-07-18, 09:09 PM
بخصوص كود الرسالة
يمكنك حذف هذا الكودكود :
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 كما هى
لذلك جلب رابط الصورة وايضاً رابط الموضوع غير صحيح
حتى توضح الصورة لك راجع هذا الرابط
تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى
لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله
▼ شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى
لكل من يقوم بالمساهمةفى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله
▼ شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
