السلام عليكم
استخدم كود لفتح صفحة ويب اعدادات الروتر
كود :
WebBrowser1.Navigate "http://admin:admin@192.168.1.1"
و اريد فقط حفظ النص داخلها الى تكست بوكس او ملف نصي
حاولت بعدة طرق لم تنجح
هل تقصد حفظ مصدر الصفحة؟؟
قم بتعريف متغير منطقي في المنطقه العامه في أعلى كود الفورم لكي تخبر المستعرض متى يبدا الانتباه لحالة اكتمال تحميل الصفحة وليكن اسم هذا المتغير 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