مشکل در گت المنت کردن کپچا

[SoRoUsH 300]

سلام دوستان...عیدتون پیشاپیش مبارک... ببخشید ، من ی مشکلی داشتم توی گت المنت کپچای این وبسایت:

https://savabegh.tamin.ir/savabegh/login.htm

طبق آموزش آقای ایزدی پیش رفتم (توی پارت 2) ، ولی جایی که باید کد کپچا رو مسیج باکس بده ، اینو میده:

اینا هم کدامه ، ممنونم میشم کمکم کنید!:

Sub Process_Globals

End Sub

Sub Globals
	Dim HttpJob1 As HttpJob
	Dim WebViewExtras1 As WebViewExtras
	Dim WebView1 As WebView
	Private EditText1,EditText2,EditText3,EditText4 As EditText
	Private ImageView1 As ImageView
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("Layout1")
	HttpJob1.Initialize("Myjob1",Me)
	WebView1.Initialize("WebView1")
	WebViewExtras1.addJavascriptInterface(WebView1,"B4A")
	WebViewExtras1.addWebChromeClient(WebView1,"")
	WebView1.LoadUrl("https://savabegh.tamin.ir/savabegh/login.htm")
	

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub WebView1_PageFinished(url As String)
	WebViewExtras1.executeJavascript(WebView1,"B4A.CallSub('Procces_HTML',true,document.documentElement.outerHTML)")
End Sub

Sub Procces_HTML (HTML As String)
	HTML=HTML.Replace("""","'")
	Dim cap As String
	cap=HTML.SubString(HTML.IndexOf("'savabegh/seam/resource/graphicImage/org.jboss.seam.ui.GraphicImageStore.-52943ec9-15385ca57d7--")+1)
	cap="https://savabegh.tamin.ir/savabegh/login.htm/"&cap.SubString2(0,cap.IndexOf("'")-0)
	Msgbox(cap,"Link")
End Sub

[pejman 24]

سلام دوست عزیز این صفحه امن شدست فک نکنم بشه get element کرد