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

[SoRoUsH 300]

سلام دوستان من آموزش های آقای ایزدی برای گت المنت رو دیدم. اما الان نمیتونم کپچا رو نشون بدم ، یعنی توی اونم مرحله از پارت دوی فیلم که باید لینک کپچا رو مسیج باکس بده ، اینو میده:

 

سایتی که میخوام گت المنت کنم:

http://estelam.rahvar120.ir/?siteid=1&fkeyid=&siteid=1&pageid=2540

نمونه لینک کپچا:

http://estelam.rahvar120.ir/includes/captcha.jpg?rand=0.588792267953977

کد هام:

Sub Globals
	Private img As ImageView
	Private etcap,etcode As EditText
	Private Button1 As Button
	'''
	Dim HttpJob1 As HttpJob
	Dim WebViewExtras1 As WebViewExtras
	Dim WebView1 As WebView
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("khalafi")
    HttpJob1.Initialize("MyJob1",Me)
	WebView1.Initialize("WebView1")
	WebViewExtras1.addJavascriptInterface(WebView1,"B4A")
	WebViewExtras1.addWebChromeClient(WebView1,"")
	WebView1.LoadUrl("http://estelam.rahvar120.ir/?siteid=1&pageid=2540")
End Sub

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

Sub html1(HTML As String)
	HTML=HTML.Replace("""","'")
    Dim cap As String
	cap=HTML.SubString(HTML.IndexOf("'includes/captcha.jpg?rand=")+1)
	cap = "http://estelam.rahvar120.ir/"&cap.SubString2(0,cap.IndexOf("'")-0)
	Msgbox(cap,"link")
End Sub

[مهدی ایزدی 9,203]

درود

تشکر بابت پیگیری آموزش های انجمن.

اینجوری کار کنید :

Sub html1(HTML As String)
	HTML=HTML.Replace("""","'")
    Dim cap As String
	cap=HTML.SubString(HTML.IndexOf("متن درون تصویر را در جعبه متن زیر وارد نمائید' src='")+53)
	cap = "http://estelam.rahvar120.ir/"&cap.SubString2(0,cap.IndexOf("'")-0)
	Msgbox(cap,"link")
End Sub

[SoRoUsH 300]

تشکر جناب ایزدی ، مشکل حل شد...علامت زدم که کسی مشکل مشابه داشت مراجعه کنه...