مشکل در گرفتن سورس کد های سایت

[amir00700 66]

من میخوام سورس های سایت رو بگیرم ولی این ارور میده توی لاگ و گفتم توی ادیت تکست نشون بده و نمیده

Uncaught TypeError: Cannot read property 'outerHTML' of undefined in  (Line: 1)

این هم کد هام

	Private WebView1 As WebView
	Dim webs As WebViewExtras

	webs.addJavascriptInterface(WebView1,"B4A")
	webs.addWebChromeClient(WebView1,"")
	WebView1.Loadurl("https://www.ncr.ir/")


        Sub WebView1_PageFinished (Url As String)
	         webs.executeJavascript(WebView1,"B4A.callsub('process_HTML',true,document.DocumentElement.outerHTML)")
	         Log("page finished")
        End Sub

Sub process_HTML (HTML As String)
	HTML = HTML.Replace("""","'")
	EditText1.Text = HTML
End Sub