تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] محتويات صفحة ويب
#1
السلام عليكم

استخدم كود لفتح صفحة ويب اعدادات الروتر 



كود :
WebBrowser1.Navigate "http://admin:admin@192.168.1.1"


و اريد فقط حفظ النص داخلها الى تكست بوكس او ملف نصي

حاولت بعدة طرق لم تنجح
الرد }}}
تم الشكر بواسطة:
#2
هل تقصد حفظ مصدر الصفحة؟؟
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء، اللهم أصلح لي ديني الذي هو عصمة أمري، وأصلح لي دنياي التي فيها معاشي، وأصلح لي آخرتي التي فيها معادي، واجعل الحياة زيادة لي في كل خير، واجعل الموت راحة لي من كل شر
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي جدي وهزلي وخطأي وعمدي وكل ذلك عندي، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
الرد }}}
تم الشكر بواسطة:
#3
قم بتعريف متغير منطقي في المنطقه العامه في أعلى كود الفورم لكي تخبر المستعرض متى يبدا الانتباه لحالة اكتمال تحميل الصفحة وليكن اسم هذا المتغير IsBrowsing ، الكود كالتالي :

كود :
'المنطقه العامه للاعلانات
Dim IsBrowsing As Boolean

كود :
'كود الزر
IsBrowsing = True
WebBrowser1.Navigate "http://admin:admin@192.168.1.1"

ضع هذا الكود في حدث اكتمال تحميل الصفحة لاداة المستعرض , كالتالي :

كود :
IF IsBrowsing = True Then

     Dim F As Integer

     F = FreeFile

     Open "C:\Router.txt" For Binary As #F
     Put #F, , WebBrowser1.Document.Body.OuterText
     Close #F
  
     IsBrowsing = False

     Msgbox "تم حفظ محتوى الصفحة"

End If
الرد }}}
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم