+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [سؤال] محتويات صفحة ويب (/showthread.php?tid=10424)
محتويات صفحة ويب - asto - 19-10-14
السلام عليكم
استخدم كود لفتح صفحة ويب اعدادات الروتر
كود :
WebBrowser1.Navigate "http://admin:admin@192.168.1.1"و اريد فقط حفظ النص داخلها الى تكست بوكس او ملف نصي
حاولت بعدة طرق لم تنجح
RE: محتويات صفحة ويب - سعود - 19-10-14
هل تقصد حفظ مصدر الصفحة؟؟
RE: محتويات صفحة ويب - Ahmed_Mansoor - 19-10-14
قم بتعريف متغير منطقي في المنطقه العامه في أعلى كود الفورم لكي تخبر المستعرض متى يبدا الانتباه لحالة اكتمال تحميل الصفحة وليكن اسم هذا المتغير 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