[Ahmed_Mansoor]

قم بتعريف متغير منطقي في المنطقه العامه في أعلى كود الفورم لكي تخبر المستعرض متى يبدا الانتباه لحالة اكتمال تحميل الصفحة وليكن اسم هذا المتغير 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