كيف استخرج نص الهوتمل من أداة WebBrowser ؟

#13 يناير 2006 في 15:08 صاحب الموضوع

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

إخوتي الكرام أريد استخراج نص الهوتميل للملفات التي تعرضها أداة WebBrowser1

آمل أن أجد من يتكرم بتعديل البريمج المرفق

{ رب أوزعني أن أشكر نعمتك التي أنعمت علي وعلى والدي وأن أعمل صالحاً ترضاه وأصلح لي في ذريتي إني تبت إليك وإني من المسلمين }

#23 يناير 2006 في 16:22

الحقيقة اسمك رهيب جداً :D

يوم شفت موضوعك

الكاتب 0

عدد الردود 0

أخر رد 0

قلت كيف يكون اسمك فقط خانة واحدة :wacko:

شكل الرجال واسطة :P

لكن يبدو أنك اظهرت خطأ برمجي في المنتدي :D

أن شاء الله الإخوة يعطوك الإجابة المطلوبة :)

تم تعديل هذه المشاركة بواسطة MSVS في 3 يناير 2006 في 16:31

أخي سوف تبكي عليك العيون * * * وتـسـأل عـنك دمـوع المـئـين

فإن جف دمعي سيبكي الغمام * * * يـرصـع قـبرك بــالـياسـمـيـن

أخـي مـا يـأسـنـا ولـن نيـأسـا * * * وما طال في القلب لبث الأسى

ومـا حـل أفــئــدة الــمــــؤمـن * * * سـوى أمـل في الـجنـان رسـى

أخي فانتظر ولتعش في غـد * * * سـيـنـبـثـق الأمـل الـسـرمـد

فـإن مـزقـتـنـا سني الــحـيـاة * * * فإنـا مع الـنصـر فـي مـوعــد

#34 يناير 2006 في 11:45

بسم االله الرحمن الرحيم

والملف الانترنت المرفق مع البرنامج اسمه 0 هههههههههه

ما فهمت قصدك هل تريد نقل كل النص الظاهر في أداة WebBrowser1 الى صندوق النص .

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

********************* ******************** *********************

(( أشــهد أن لا اله الا الله ..... وأشهد أن محمد رسول الله ))

********************* ******************** *********************

لا تقـل من أيـن أبدأ

طـاعـة الله الـبدايـة

***

لا تقـل أين طـريـقي

شــرع الله الهـدايـة

***

لا تـقـل أيـن نعـيمي

جـنـة الله كـفـايـــــة

***

لا تقـل في الغـد أبدأ

ربمـــا تأتـي النهـايـــة

**************** **************** ****************

#44 يناير 2006 في 12:39

الأخ MSVS

اسمي اربعة أصفار لكنها فعلا ظهر بصفر واحد وهذا غريب ، لكن الأصفار الأربعة لا تعني أني صفرا في معلوماتي البرمجية ، بل عليك أن تتخيل يسارها رقما أو أكثر

شكرا يا MSVS

الأخ البريشي

نعم أريد نقل كل النص الظاهر في أداة WebBrowser1 الى صندوق النص ، لكن إن أمكن أن أحصل على نص شيفرة الهوتميل فهو الأفضل

والبريمج المرفق أعلاه يحتوي على الشيفرة التي أرغب في تطويرها

شكرا عزيزي

{ رب أوزعني أن أشكر نعمتك التي أنعمت علي وعلى والدي وأن أعمل صالحاً ترضاه وأصلح لي في ذريتي إني تبت إليك وإني من المسلمين }

#54 يناير 2006 في 12:44

ماذا تقصد بـ ( نص شيفرة الهوتميل )

أرجو التوضيح

********************* ******************** *********************

(( أشــهد أن لا اله الا الله ..... وأشهد أن محمد رسول الله ))

********************* ******************** *********************

لا تقـل من أيـن أبدأ

طـاعـة الله الـبدايـة

***

لا تقـل أين طـريـقي

شــرع الله الهـدايـة

***

لا تـقـل أيـن نعـيمي

جـنـة الله كـفـايـــــة

***

لا تقـل في الغـد أبدأ

ربمـــا تأتـي النهـايـــة

**************** **************** ****************

#64 يناير 2006 في 14:24

بسم الله الرحمن الرحيم

اولا قم باضافة أداة microsoft internet transfer control 6.0 من components

ثم اكتب الكود التالي

Private Sub Command2_Click()
Inet1.URL "/ibflposts.php"
TYext = Inet1.OpenURL
i = 0
While i <> -1
    b = InStr(1, s, "<")
    If b > -1 Then
        e = InStr(b, s, ">")
        If e >= -1 Then
            s = Mid(s, 1, b) & Mid(s, e)
        Else
        i = -1
        End If
    End If
Wend

End Sub

********************* ******************** *********************

(( أشــهد أن لا اله الا الله ..... وأشهد أن محمد رسول الله ))

********************* ******************** *********************

لا تقـل من أيـن أبدأ

طـاعـة الله الـبدايـة

***

لا تقـل أين طـريـقي

شــرع الله الهـدايـة

***

لا تـقـل أيـن نعـيمي

جـنـة الله كـفـايـــــة

***

لا تقـل في الغـد أبدأ

ربمـــا تأتـي النهـايـــة

**************** **************** ****************

#74 يناير 2006 في 16:31

شكرا عزيزي

برنامجي يتعامل مع صفحات على الشبكة يتم تحديثها آليا خلال ثوان ، وقد سبق أن جربت الأداة Inet1 التي استخدمتها أنت في الشيفرة المعروضة أعلاه فتبين لي أنها ممتازة مع الصفحات الثابتة ، لكنها كسلانة جدا مع الصفحات المتجددة ، بل قد تتسبب بأخطاء تؤدي إلى قطع البرنامج ، وفي أحسن أحوالها تعجز عن المتابعة السريعة ، علما بأنها لن تستغني عن أداة المؤقت بالنسبة لبرنامجي

إذن الأداة WebBrowser1 وحدها هي التي تتناسب مع برنامجي حيث تعَامَلَت مع الصفحات المتجددة آليا بنفس أسلوب وسرعة المتصفح تماما

لذا فإن الكود المطلوب هو ذلك الذي ينقل النص من أداة الـ WebBrowser1 وليس من الملف المصدر مباشرة

شاكرا ومقدرا اهتمامك بالموضوع

{ رب أوزعني أن أشكر نعمتك التي أنعمت علي وعلى والدي وأن أعمل صالحاً ترضاه وأصلح لي في ذريتي إني تبت إليك وإني من المسلمين }

#84 يناير 2006 في 17:11

استخدم WebBrowser1.Document

راجع هذاالمثال

http://support.microsoft.com/kb/238313

إن شاء الله الشباب حيفيدوك في هذا الشئ

"First they ignore you, then they laugh at you, then they attack you, then you win"

===

اقتباس
حُكَّامُـنَا إِنْ تَصَـدّوا لِلْحِمَــى اقْتَحَمُـوا ***** وَإِنْ تَصَدَّى لَـهُ المُسْتَعْمِـرُ انْسَحَبُـوا
هُمْ يَفْرشـُونَ لِجَيْـشِ الغَــزْوِ أَعْيُنَـهُـمْ ***** وَيَدَّعُــونَ وُثُـوبَـاً قَـبْـلَ أَنْ يَثِـبُــوا
الحَاكِمُـونَ و«وَاشُنْـطُـنْ» حُكُومَتُـهُـمْ ***** وَاللامِعُــونَ وَمَـا شَعَّـوا وَلا غَرَبُــوا
القَاتِلُـــونَ نُبُــوغَ الشَّـعْــبِ تَرْضِـيَـــةً ***** لِلْمُعْتَدِيــنَ وَمَـا أَجْـدَتْـهُـمُ الـقُــرَبُ
لَهُمْ شُمُـوخُ «المُثَنَّـى» ظَاهِـرَاً وَلَهُـمْ ***** هَـوَىً إِلَـى بَابَـك الخَرْمِـيّ يُنْتَسَـبُ
البردوني "أبو تمام وعروبة اليوم" 1971

===

اقتباس
عبيد الهوى يحكمون البـلاد ***** ويحكمهــم كلّهـــم درهــــــم
و تقتـادهـم شهـوة لا تنــام ***** وهـــم فـي جـهالتهــم نــــوّم
ففــي كـــلّ ناحيــة ظـالـــم ***** غبــــــيّ يسـلـّطــــه أظلـــم
أيا من شبعتم على جوعــنا ***** وجـــوع بنينـا ألـم تتخمـــوا ؟
ألم تفهموا غضبة الكادحين ***** على الظلـم ؟ لا بدّ أن تفهموا
البردوني "نحن و الحاكمون "

#94 يناير 2006 في 20:10

متاز أخي / cipher

إذن الحل هو :

Option Explicit



Private Sub Command1_Click()

Dim TextInfo As String
Dim Range As IHTMLTxtRange

Set Range = WebBrowser1.Document.body.createTextRange
TextInfo = TextInfo & Range.Text & vbCrLf

RichTextBox1.Text = TextInfo

End Sub

Private Sub Form_Load()
WebBrowser1.Navigate App.Path & "\0.htm"

End Sub

مع إضافة المرجع Microsoft HTML Object Library

ولكن لن تظهر لك رموز الـ html التي في الصفحة

إذا أدرت شيفرة html اكتب السطر :

TextInfo = TextInfo & Range.htmlText & vbCrLf

أي تقرأ الخاصية htmlText للكائن Range بدلاً من الخاصية Text

والسلام عليكم

تم تعديل هذه المشاركة بواسطة MSVS في 4 يناير 2006 في 20:18

أخي سوف تبكي عليك العيون * * * وتـسـأل عـنك دمـوع المـئـين

فإن جف دمعي سيبكي الغمام * * * يـرصـع قـبرك بــالـياسـمـيـن

أخـي مـا يـأسـنـا ولـن نيـأسـا * * * وما طال في القلب لبث الأسى

ومـا حـل أفــئــدة الــمــــؤمـن * * * سـوى أمـل في الـجنـان رسـى

أخي فانتظر ولتعش في غـد * * * سـيـنـبـثـق الأمـل الـسـرمـد

فـإن مـزقـتـنـا سني الــحـيـاة * * * فإنـا مع الـنصـر فـي مـوعــد

#105 يناير 2006 في 20:37

MSVS

لبريشي

cipher

هذا الكود رائع جدا

فشكرا لكم ، حيث نجحت في تحقيق ما أريد ، ولي رجعة إلى هذا الموضوع مرة أخرى

{ رب أوزعني أن أشكر نعمتك التي أنعمت علي وعلى والدي وأن أعمل صالحاً ترضاه وأصلح لي في ذريتي إني تبت إليك وإني من المسلمين }

#116 يناير 2006 في 04:54

اقتباس
متاز أخي / cipher

شكراً للإطراء ..

انا لا ابرمج بالفيجوال بيسك لذا لم اضع مثالاً , أضف الى ذلك أني لا أضع أمثلة جاهزة إلا بعد رؤية محاولات من صاحب السؤال ...

هي الفكرة متشابهه في اكثر من لغة , مع الدلفي هناك شئ مشابه ...

"First they ignore you, then they laugh at you, then they attack you, then you win"

===

اقتباس
حُكَّامُـنَا إِنْ تَصَـدّوا لِلْحِمَــى اقْتَحَمُـوا ***** وَإِنْ تَصَدَّى لَـهُ المُسْتَعْمِـرُ انْسَحَبُـوا
هُمْ يَفْرشـُونَ لِجَيْـشِ الغَــزْوِ أَعْيُنَـهُـمْ ***** وَيَدَّعُــونَ وُثُـوبَـاً قَـبْـلَ أَنْ يَثِـبُــوا
الحَاكِمُـونَ و«وَاشُنْـطُـنْ» حُكُومَتُـهُـمْ ***** وَاللامِعُــونَ وَمَـا شَعَّـوا وَلا غَرَبُــوا
القَاتِلُـــونَ نُبُــوغَ الشَّـعْــبِ تَرْضِـيَـــةً ***** لِلْمُعْتَدِيــنَ وَمَـا أَجْـدَتْـهُـمُ الـقُــرَبُ
لَهُمْ شُمُـوخُ «المُثَنَّـى» ظَاهِـرَاً وَلَهُـمْ ***** هَـوَىً إِلَـى بَابَـك الخَرْمِـيّ يُنْتَسَـبُ
البردوني "أبو تمام وعروبة اليوم" 1971

===

اقتباس
عبيد الهوى يحكمون البـلاد ***** ويحكمهــم كلّهـــم درهــــــم
و تقتـادهـم شهـوة لا تنــام ***** وهـــم فـي جـهالتهــم نــــوّم
ففــي كـــلّ ناحيــة ظـالـــم ***** غبــــــيّ يسـلـّطــــه أظلـــم
أيا من شبعتم على جوعــنا ***** وجـــوع بنينـا ألـم تتخمـــوا ؟
ألم تفهموا غضبة الكادحين ***** على الظلـم ؟ لا بدّ أن تفهموا
البردوني "نحن و الحاكمون "

#127 يناير 2006 في 06:44

بسم الله السميع العليم

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

للفائدة اقول ... كي تستخرج كل الكود ( HTML ) الموجود في صفحة إنترنت مفتوحة داخل WebBrowser1 يمكنك استخدام الشفرة التالية :

MsgBox WebBroswer1.Document.Body.innerHTML

اما اذا اردت استخراج النص فقط و ليس شفرة الـ HTML استخدم التالي :

MsgBox WebBrowser.Document.Body.innerText

افاد الله بكم المسلمين

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

مواضيع برمجية تقنية جديدة

----------------------------------------------------------------------------------------------------------------------------------------------

• إستغلال خدمة الـ RSS في برامجنا ومواقعنا ! (VB.NET)

----------------------------------------------------------------------------------------------------------------------------------------------

• برنامج للبحث في الملفات ومحتواياتها (VB.NET)

----------------------------------------------------------------------------------------------------------------------------------------------

• فئة للتراسل بين برنامجين في جهاز واحد ! (VB.NET)

----------------------------------------------------------------------------------------------------------------------------------------------

مواضيع برمجية تقنية قديمة

----------------------------------------------------------------------------------------------------------------------------------------------

• إستغلال رسائل البالونات Balloons في الوينذوز أكس بي(VB.NET)

----------------------------------------------------------------------------------------------------------------------------------------------

• مقالة : لماذا يجب ان نعتني بشفرات برامجنا !؟- (VB6.0)

----------------------------------------------------------------------------------------------------------------------------------------------

• لمطوري البرامج و مواقع الويب - برنامج تركيب ألوان - (VB6.0)

----------------------------------------------------------------------------------------------------------------------------------------------

• برنامج : بسيط للتحكم بالنظام, عن طريق الريجستري - (VB6.0)

----------------------------------------------------------------------------------------------------------------------------------------------

• برنامج : لتقييد و منع تشغيل البرامج الاخرى - (VB6.0)

----------------------------------------------------------------------------------------------------------------------------------------------

• النوافذ المنبثقة و طريقة لإستغلالها في برامجنا -(VB.NET)

----------------------------------------------------------------------------------------------------------------------------------------------

• تقنية الإستدعاء الذاتي - (VB.NET , VB6.0)

----------------------------------------------------------------------------------------------------------------------------------------------

• مصفوفات الأدوات Control Arrays افكار وتلميحات ! - (VB.NET)

----------------------------------------------------------------------------------------------------------------------------------------------

• أفكار و تلميحات[ المعنى الحقيقي للـ True و False ] - أمثلة (VB.NET VB6.0)

----------------------------------------------------------------------------------------------------------------------------------------------

• دوال الـ APIs و مايقابلها في الدوت نت ! - (VB.NET)

----------------------------------------------------------------------------------------------------------------------------------------------

#137 يناير 2006 في 10:22

الأخ : رغيد الطيب

فعلا هذا هو الأسلوب الذي كنت أبحث عنه

علما بأن طريقة الأخوين MSVS - cipher فعالة وقد ساعدتني على تخطي مشكلة استخراج كود الـ ( HTML )

لكن طريقتك سهلة جدا ، لا تحتاج إلى أدوات أخرى مساعدة ، وهذا هو ما كنت أبحث عنه فجزاك الله خيرا

الآن أريد منكم خدمة جديدة ، وهي معرفة اللحظة التي ينتهى فيها تحميل الصفحة الحالية كي أصدر أمرا لتحميل الصفحة التي تليها

حيث لدي عددا من الصفحات المرتبة تصاعديا ( وهي متجددة ) وقد استخدمت ( FOR - TO - NEXT ) لفتحها واحدة بعد الأخرى ، ثم العودة للصفحة رقم 1 وهكذا

هذه الفكرة نجحت في تحميل الصفحات بشكل متتابع من داخل الجهاز ، لكنها تعثرت إذا عندما حاولت النقل من الشبكة بسبب بطء التحميل

{ رب أوزعني أن أشكر نعمتك التي أنعمت علي وعلى والدي وأن أعمل صالحاً ترضاه وأصلح لي في ذريتي إني تبت إليك وإني من المسلمين }

#147 يناير 2006 في 11:08

انظر لأحداث الأداة

أخي سوف تبكي عليك العيون * * * وتـسـأل عـنك دمـوع المـئـين

فإن جف دمعي سيبكي الغمام * * * يـرصـع قـبرك بــالـياسـمـيـن

أخـي مـا يـأسـنـا ولـن نيـأسـا * * * وما طال في القلب لبث الأسى

ومـا حـل أفــئــدة الــمــــؤمـن * * * سـوى أمـل في الـجنـان رسـى

أخي فانتظر ولتعش في غـد * * * سـيـنـبـثـق الأمـل الـسـرمـد

فـإن مـزقـتـنـا سني الــحـيـاة * * * فإنـا مع الـنصـر فـي مـوعــد

#157 يناير 2006 في 12:31

الأخ : MSVS

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)

هو كما تقول ، وقد استخدمت الحدث أعلاه ، والتجارب الأولية ناجحة تماما والحمد لله

وما زلت أيضا بحاجة لبعض المساعدة فجزاكم الله خيرا

{ رب أوزعني أن أشكر نعمتك التي أنعمت علي وعلى والدي وأن أعمل صالحاً ترضاه وأصلح لي في ذريتي إني تبت إليك وإني من المسلمين }

كيف استخرج نص الهوتمل من أداة WebBrowser ؟

مواضيع مشابهة