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

[SoRoUsH 300]

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

حالا من یه مشکل دیگه دارم...برای تست این WebView1 رو از Initialize در آوردم و از دیزاینر ادش کردم...حالا میبینم که کپچایی که توی برنامه نمایش میده با اون یکی کپچای اتصلی توی سایت فرق داره!

اینا کدامه:

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")
	Activity.Color=Colors.White
    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("متن درون تصویر را در جعبه متن زیر وارد نمائید' src='")+53)
	cap = "http://estelam.rahvar120.ir/"&cap.SubString2(0,cap.IndexOf("'")-0)
	HttpJob1.Download(cap)
End Sub

Sub JobDone(Job As HttpJob)
	img.Bitmap=Job.GetBitmap
	img.Gravity=Gravity.FILL
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

مشکل چیه؟! ممنون میشم کمکم کنید!

[SoRoUsH 300]

چرا باید حل بشه؟:| سورس آموزش آقای ایزدی هستش دیگه :|

دوستان کسی بلد نیست واقعا توی این انجمن با این همه عضو؟!

[bhe 17]

سلام

من دارم روی گت المنت کار میکنم من اینجوری لینک عکس رو میگیرم

حالا درست غلطشو نمیدونم

خب اول ایدی که لیک عکس داخل است

outerHTML

می کنم

بعد این کد رو میگذارم

Sub WebView1_PageFinished (Url As String)

	WebViewExtras1.executeJavascript(WebView1,"B4A.CallSub('html1',true,document.getElementById('capimg').outerHTML)")
End Sub

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

لینک عکس رو میگیرم

توی بقیش موندم  خخخخخ

ببین کمکی بهت میکنه

موفق باشی

[SoRoUsH 300]

یعنی من دقیقا باید چ کنم؟ راه کاری نداره؟!

[SoRoUsH 300]

الان اینی که شما دادی کامل لینک عکسو میگیره هربار؟!

[SoRoUsH 300]

up

[SoRoUsH 300]

up...

دوستان لطفا یکی یه راهکاری ارائه بده...

[کاربر ناشناس 2,148]

این سورس رو ببین

ببین مشکلت حل میشه

 

 

http://answercenter.ir/topic/9311-%D8%B3%D9%88%D8%B1%D8%B3-%DA%AF%D8%AA-%D8%A7%D9%84%D9%85%D9%86%D8%AA-%D9%84%D9%88%D8%AF-%D8%B9%DA%A9%D8%B3-%DA%AF%D8%B1%D9%81%D8%AA%D9%86-%DA%A9%D8%AF%D9%87%D8%A7%DB%8C-%D8%B3%D8%A7%DB%8C%D8%AA/

[پژمان نیکروان 6,055]

سلام

 

این لینک یه کپتچا از سایت رزبلاگ هست ، بازش کنید و همش ریلود کنید.

میبینید که لینک تغییری نکرده اما همون لینک همش رفرش میشه و عکس کپتچاش عوض میشه.

 

این سایت شما هم به همین صورته ، اصلا لینک کپتچای سایت مورد نظر شما تغییر نمیکنه ، همیشه یه لینکه.

 

شما وقتی میاید اینجا لینک رو میگیرید از سایت و دانلودش میکنید عکس با اونی که تو سایت هست عوض میشه.

cap = "http://estelam.rahvar120.ir/"&cap.SubString2(0,cap.IndexOf("'")-0)
	HttpJob1.Download(cap)

دقیقا مثل لینک بالایی که دادم.

 

پس نباید کپتچا رو بگیرید و دانلود کنید برای اینکه اون لینک بعد از هر بار رفرش عکسش عوض میشه.

آقای ایزدی که اون سایت دانشگاه رو توضیح دادن لینکش ثابت نبود ، بلکه لینک های مختلف بود و هر لینک فقط یه عکس داشت.

 

این نوع کپتچا هارو من یادمه با سی شارپ یا وی بی دات نت از طریق همون جاوا اسکریپت میومدیم دقیقا همون عکس که توی سایت هست رو کپی میکردیم (دانلود نمیکردیم) و داخل PictureBox فرم نمایشش میدادیم.

که توی بیسیک من خیلی وقت پیش روش یکمی کار کردم ولی به نتیجه نرسیدم ولش کردم.

حالا بازم سعی میکنم.