بخصوص كود الرسالة
يمكنك حذف هذا الكود
كود :
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)
اما بخصوص المرفق
فالمشكلة انك قمت بالتعديل على كل شئ الا الجزء المهم وهو
حيث انك قمت بجعل القيمة 40 كما هى
لذلك جلب رابط الصورة وايضاً رابط الموضوع غير صحيح
حتى توضح الصورة لك راجع هذا الرابط
تحياتى لك
وتمنياتى لك التوفيق
إقتباس :اما بخصوص المرفق
فالمشكلة انك قمت بالتعديل على كل شئ الا الجزء المهم وهو
حيث انك قمت بجعل القيمة 40 كما هى
لذلك جلب رابط الصورة وايضاً رابط الموضوع غير صحيح
بخصوص الرسالة واضح انها لن تعمل بدونها...
وبالنسبة للمرفق لم أصل لنتيجة للأسف أخى.
القيمة 40 بتأتى بناءا أصلا على ايه ؟
اذا قمت بمراجعة الفيديو السابق
ستعلم الـ 40 بتاتي بناءاً على ايه
لهذا السبب اعلم ستقوم بالسؤال فوضعت لك
فيديو ويضح ما وظيفتها....
تحياتى لك
وتمنياتى لك التوفيق
(30-07-18, 11:23 PM)elgokr كتب : [ -> ]اذا قمت بمراجعة الفيديو السابق
ستعلم الـ 40 بتاتي بناءاً على ايه
لهذا السبب اعلم ستقوم بالسؤال فوضعت لك
فيديو ويضح ما وظيفتها....
تحياتى لك
وتمنياتى لك التوفيق
طب ما تفهمهالى انت أخى لو تسمح لآن الفيديو مش مفهوم لى " انجليزى ضعيف "
لا اريد كود جاهز كما تظن بل اريد فهمها
ولا يهمك اخى ابو روضة
واسف لعدم التوضيح اكثر فى الرد السابق
الفكرة كلها عبارة عن تحديد جزء معين من النص
يبداء عند العدد محدد ويبداء من العد 0 الى العدد المحدد الاخر
فملاً انت عندك قيمة نص تحتوى على ابو روضة
كود :
TextBox1.text = Name.IndexOf(0,2)
فى اللحظة دى هيظهر فقط اسم ابو
بحيث بداء من صفر ومن ثم عدد 3 احرف وهو 0 - 1 - 2
لتكمل الصورة اكتر عن الموضوع تابع الرابط التالى
ستجد به شرح مفصل عن كيفية الاستخدام
وبخصوص هذا الرابط احببت ان استخدم كود منه ستجده فى المشروع المرفق
بحيث تعرف الاكواد المستخدمة ماذا تعنى وكيفية استخدامه مستقبلياً
السورس + البرنامج بعد التعديل وتشغيل وجلب البيانات كما تريد مرفق
المشكلة السابقة لعدم جلب الصورة والرابط ليس فقط المشكلة فى رقم 40
بال فى محتوى الصفحة لاكواد اللـ Html حيث انه تظهر فى معرف htm
بالاحرف الكبيرة كما ان ترتيب الكلمات مختلفة عن ما يعرض فى المتصفح الاخر
لذلك تم كتابة الكود الصحيح ولجلب رابط الصورة ورابط الموضوع وستجده فى السورس
تحياتى لك
وتمنياتى لك التوفيق
(31-07-18, 01:28 AM)elgokr كتب : [ -> ]ولا يهمك اخى ابو روضة
واسف لعدم التوضيح اكثر فى الرد السابق
الفكرة كلها عبارة عن تحديد جزء معين من النص
يبداء عند العدد محدد ويبداء من العد 0 الى العدد المحدد الاخر
فملاً انت عندك قيمة نص تحتوى على ابو روضة
كود :
TextBox1.text = Name.IndexOf(0,2)
فى اللحظة دى هيظهر فقط اسم ابو
بحيث بداء من صفر ومن ثم عدد 3 احرف وهو 0 - 1 - 2
لتكمل الصورة اكتر عن الموضوع تابع الرابط التالى
ستجد به شرح مفصل عن كيفية الاستخدام
وبخصوص هذا الرابط احببت ان استخدم كود منه ستجده فى المشروع المرفق
بحيث تعرف الاكواد المستخدمة ماذا تعنى وكيفية استخدامه مستقبلياً
السورس + البرنامج بعد التعديل وتشغيل وجلب البيانات كما تريد مرفق
المشكلة السابقة لعدم جلب الصورة والرابط ليس فقط المشكلة فى رقم 40
بال فى محتوى الصفحة لاكواد اللـ Html حيث انه تظهر فى معرف htm
بالاحرف الكبيرة كما ان ترتيب الكلمات مختلفة عن ما يعرض فى المتصفح الاخر
لذلك تم كتابة الكود الصحيح ولجلب رابط الصورة ورابط الموضوع وستجده فى السورس
تحياتى لك
وتمنياتى لك التوفيق
الله يبارك بعمرك اخى الجوكر ويجزيك كل الخيرات والبركات...
فعلا نجحت مائة فى المائة لكن لما بضغط على اى رابط لانتقل للموضوع بتم النقل للصفحة الرئيسية
ليس الصفحة المعنية.
بخصوص الرابط الذى يقوم بالتحويل الى الصفحة الرئيسية
كل ما عليك التعديل على هذا السطر
كود :
lbl.Tag = "http://www.storiesrealistic.com/" & lnk
بان تجعله بهذا الشكل
وستجد بان رابط الموضوع يعمل بدون مشكلة
تحياتى لك
وتمنياتى لك التوفيق
(31-07-18, 09:31 AM)elgokr كتب : [ -> ]بخصوص الرابط الذى يقوم بالتحويل الى الصفحة الرئيسية
كل ما عليك التعديل على هذا السطر
كود :
lbl.Tag = "http://www.storiesrealistic.com/" & lnk
بان تجعله بهذا الشكل
وستجد بان رابط الموضوع يعمل بدون مشكلة
تحياتى لك
وتمنياتى لك التوفيق
إن سألتك عن شيء بعدها فلا تصاحبني قد بلغت من لدني عذرا صدق الله العظيم...حقيقى لقد فاض صبرك بى وأشعر بذلك فاتمنى أن لا ياتى يوم وتقول لى فيه هذا فراق بينى وبينك من كثرة أسالتى وكثرة صبرك لكن هذا عشم أخى الجوكر ليس أكثر.. نجحت الطريقة تمام جزاك الله كل خير
صدق الله العظيم
فالحمد لله والشكر لله على كل حال
لكن اعترض معك اخى ابو روضة
فانا لن اقول مثل هذا ابداً فيمكنك ان تطلب وتسال كما تشاء
فكلما انا على قيد الحياه وبامكانى تقديم المساعدة للجميع ساقوم بذلك
دون اى تردد مهما كانت الظروف والوضع
فربنا اعطانا علماً كى نفيد به علم الاخرين بالخير
فمن بخل بالعلم فهو كالامي الذى لا يفقه شئ
فكما تعلم بان العلم نور ومن ليس له نور بالحياه فهو لا يعيش
بما اعطاه الله لعباده من علم
فالحمد لله على نعمة الاسلام
تحياتى لك
وتمنياتى لك التوفيق
(01-08-18, 01:31 AM)elgokr كتب : [ -> ]صدق الله العظيم
فالحمد لله والشكر لله على كل حال
لكن اعترض معك اخى ابو روضة
فانا لن اقول مثل هذا ابداً فيمكنك ان تطلب وتسال كما تشاء
فكلما انا على قيد الحياه وبامكانى تقديم المساعدة للجميع ساقوم بذلك
دون اى تردد مهما كانت الظروف والوضع
فربنا اعطانا علماً كى نفيد به علم الاخرين بالخير
فمن بخل بالعلم فهو كالامي الذى لا يفقه شئ
فكما تعلم بان العلم نور ومن ليس له نور بالحياه فهو لا يعيش
بما اعطاه الله لعباده من علم
فالحمد لله على نعمة الاسلام
تحياتى لك
وتمنياتى لك التوفيق
اقصد فاص صبرك من خلال هذا الموضوع اخى الكريم ولا اقصد لن اطلب منك شيئ فيما بعد
بالعكس انت انسان خلوق وخدوم لكنى احسست اننى تثاقلت عليك فى هذا الموضوع...
هذا كل ما اقصده فقط وربنا يحميك