تقييم الموضوع :
  • 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
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  طريقة طباعة محتويات الفلكس جريد الى اكتيف ريبورت scsi7000 2 663 20-06-15, 07:10 PM
آخر رد: scsi7000
Bug [سؤال] سؤال عن إضافة صفحة ويب وكم شيء :$ a7m2dz 1 384 09-06-15, 09:02 PM
آخر رد: KamelArab
  [سؤال] ايجاد اجمالي ماقبله بداية كل صفحة aymnypc 1 413 08-06-15, 08:21 PM
آخر رد: KamelArab
  هل يمكن طباعة جزء من صفحة نت AEDC 2 616 18-11-14, 06:22 PM
آخر رد: AEDC
  استدعاء النصوص من صفحة ويب makkiessa 2 307 12-08-14, 04:11 PM
آخر رد: makkiessa
  [سؤال] كيف أنتقل من صفحة لصفحة آخر علي ناجم 0 439 21-01-14, 01:04 PM
آخر رد: علي ناجم

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


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