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

[AHA_AMIRHOSEIN 19]

با سلام و خسته نباشید

 

حقیقتش تاپیک های مربوط به کپچا رو پک کردم ولی به جواب نرسیدم!!!

 

این ادس سایتی که باید کپچا رو بگیرم

http://chamrantv-ker.ac.ir/StudentLoginForm.aspx?Language=Fa&Status=Students&lr=lang_fa

و اینم ادرس یک کپچا

http://chamrantv-ker.ac.ir/CaptchaImage.aspx?guid=1b1b7db6-88cd-48df-93dc-26bb7812dea8

 و اینم قسمتی از کد های من

Sub getHTML(HTML As String)
	HTML = HTML.Replace("""","'")
		Dim img As String
		
	img = HTML.SubString(HTML.IndexOf("'CaptchaImage.aspx?guid=")+1)
	img = "http://chamrantv-ker.ac.ir/" & img.SubString2(0,img.IndexOf("'")-0)
	HttpJob1.Download(img)


End Sub

اگه مشیه مثل همیشه کمکم کنید خیلی ممنون

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

سلام

الان مشکل توی گرفتن لینک کپتچا هست؟؟

سایت مورد نظر رو قرار بدید و بگید کپتچایی که میخواین بگیرید کدوم قسمتشه.

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

سلام

تست کنید و قبل از httpjob1.download بیایید بنویسید :

log(img)

ببینید توی log بهتون چه آدرسی میده؟ راحت میشه تشخیص داد که تا کجا پیش رفتید

[AHA_AMIRHOSEIN 19]

سلام

تست کنید و قبل از httpjob1.download بیایید بنویسید :

log(img)

ببینید توی log بهتون چه آدرسی میده؟ راحت میشه تشخیص داد که تا کجا پیش رفتید

 

 

توی لاگ اینو بهم داد

** Service (starter) Create **
** Service (starter) Start **
** Activity (main) Create, isFirst = true **
** Activity (main) Resume **
** Activity (main) Pause, UserClosed = true **
** Activity (login) Create, isFirst = true **
** Activity (login) Resume **
Uncaught SyntaxError: Unexpected end of input in http://chamrantv-ker.ac.ir/StudentLoginForm.aspx?Language=Fa&Status=Students&lr=lang_fa (Line: 1)
Uncaught TypeError: Cannot read property 'innerText' of null in http://chamrantv-ker.ac.ir/StudentLoginForm.aspx?Language=Fa&Status=Students&lr=lang_fa (Line: 1)

و اینم سورس برنامه ام

#Region  Activity Attributes 
	#FullScreen: False
	#IncludeTitle: False
#End Region

Sub Process_Globals
	'These global variables will be declared once when the application starts.
	'These variables can be accessed from all modules.

End Sub

Sub Globals
	'These global variables will be redeclared each time the activity is created.
	'These variables can only be accessed from this module.
	Dim web1 As WebView
	Dim WebE1 As WebViewExtras
	Dim font As Typeface
	Private Button1 As Button
	Private EditText1 As EditText
	Private EditText2 As EditText
	Private Label1 As Label
	Private Label2 As Label
	Private Panel1 As Panel
	Private Panel2 As Panel
	Dim HttpJob1 As HttpJob
	Private Label3 As Label
	Private Panel3 As Panel
	Private ImageView1 As ImageView
	Private EditText3 As EditText
	Private ImageView2 As ImageView
	Private Label6 As Label
End Sub

Sub Activity_Create(FirstTime As Boolean)
	'Do not forget to load the layout file created with the visual designer. For example:
	Activity.LoadLayout("login")

  If FirstTime = True Then
  	
  	Panel3.Visible = True
	else if FirstTime = False Then
		
Panel3.Visible = False
End If


'	ProgressDialogShow2("در حال بارگذاری...",False)
	HttpJob1.Initialize("Myjob1" , Me)
'web1.Initialize("web1")
	web1.LoadUrl("http://chamrantv-ker.ac.ir/StudentLoginForm.aspx?Language=Fa&Status=Students&lr=lang_fa")  'http://chamrantv-ker.ac.ir/StudentLoginForm.aspx  
	WebE1.addJavascriptInterface(web1,"B4A")
	WebE1.addWebChromeClient(web1,"")


	'------------------------------------------------
	font = Typeface.LoadFromAssets("yekan.ttf")
	Label1.Typeface = font
	Label2.Typeface = font
	EditText1.Typeface = font

	Label1.Gravity = Gravity.CENTER
	Label1.Gravity = Gravity.CENTER
	Label2.Gravity = Gravity.CENTER
	
	

End Sub









Sub web1_PageFinished (Url As String)

	WebE1.executeJavascript(web1,"B4A.callsub('getHTML',true,document.DocumentElment.outerHTML")

	WebE1.executeJavascript(web1,"B4A.CallSub('captcha_txt',true,document.getElementById('label2').innerText)")
	


	Panel3.Visible = False



End Sub


Sub Get_Date(text As String)

Label3.Text=text
ProgressDialogHide
End Sub


Sub captcha_txt(text As String)

Label6.Text=text
ProgressDialogHide
End Sub

Sub getHTML(HTML As String)
	HTML = HTML.Replace("""","'")
		Dim img As String
		
	img = HTML.SubString(HTML.IndexOf("'CaptchaImage.aspx?guid=")+1)
	img = "http://chamrantv-ker.ac.ir/" & img.SubString2(0,img.IndexOf("'")-0)
	Log(img)
	HttpJob1.Download(img)


End Sub
Sub Activity_Resume

End Sub

Sub jobdone (job As HttpJob)
	ImageView2.Bitmap = job.GetBitmap
	ImageView2.Gravity = Gravity.FILL
	
End Sub


Sub Activity_Pause (UserClosed As Boolean)

End Sub


Sub EditText2_TextChanged (Old As String, New As String)
	'Password
	WebE1.executeJavascript(web1,"document.getElementsByName('TxtPassword')[0].value = '"&New&"';")
End Sub

Sub EditText1_TextChanged (Old As String, New As String)
	'UserName
	WebE1.executeJavascript(web1,"document.getElementsByName('TxtUserName')[0].value = '"&New&"';")
End Sub

Sub EditText3_TextChanged (Old As String, New As String)
	
	WebE1.executeJavascript(web1,"document.getElementsByName('CaptchaControl1')[0].value = '"&New&"';")
End Sub

Sub Button1_Click


	 If EditText1.Text = "" Or EditText2.Text = "" Or EditText3.Text = "" Then
	    ToastMessageShow("همه قسمت ها را پر کنید",False)
	Else 
		
		
		
		

	    WebE1.executeJavascript(web1,"document.getElementsByName('TxtUserName')[0].value= '"&EditText1.Text&"';")
		WebE1.executeJavascript(web1,"document.getElementsByName('TxtPassword')[0].value= '"&EditText2.Text&"';")
		WebE1.executeJavascript(web1,"document.getElementsByName('chkRemember')[0].value= '"&EditText3.Text&"';")
		WebE1.executeJavascript(web1,"document.getElementsByName('Button1')[0].click();")

		ProgressDialogShow("در حال ورود به حساب کاربری وگرفتن اطلاعات...!")
		
	End If



	
End Sub

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

بدون GetElement کردن هم میشه اصلا این رو در آورد :

Sub Globals
Dim HttpJob1 As HttpJob
Dim httpjob2 As HttpJob
Dim imageview1 As ImageView
End Sub

Sub Activity_Create(FirstTime As Boolean)
    Activity.LoadLayout("Layout1")
    HttpJob1.Initialize("MyJob1",Me)
    httpjob2.Initialize("MyJob2",Me)
    HttpJob1.Download("http://chamrantv-ker.ac.ir/StudentLoginForm.aspx?Language=Fa&Status=Students&lr=lang_fa")
End Sub

Sub JobDone(job As HttpJob)
    If job.JobName = "MyJob1" Then
     Dim s As String = job.GetString.Replace("""","'")
        Dim captcha As String
        captcha = s.SubString(s.IndexOf("'CaptchaImage.aspx?guid=")+1)
        captcha = "http://chamrantv-ker.ac.ir/"&captcha.SubString2(0,captcha.IndexOf("'")-0)
        httpjob2.Download(captcha)
        Log("address " & captcha)
    else if job.JobName = "MyJob2" Then
        imageview1.Bitmap = job.GetBitmap
    End If    
End Sub

خودتون میتونید با GetElements هم همین کار رو کنید

httpjob1 اینجا داره همون کار outerHTML رو انجام میده !

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

[AHA_AMIRHOSEIN 19]

بدون GetElement کردن هم میشه اصلا این رو در آورد :

Sub GlobalsDim HttpJob1 As HttpJobDim httpjob2 As HttpJobDim imageview1 As ImageViewEnd SubSub Activity_Create(FirstTime As Boolean)	Activity.LoadLayout("Layout1")	HttpJob1.Initialize("MyJob1",Me)	httpjob2.Initialize("MyJob2",Me)	HttpJob1.Download("http://chamrantv-ker.ac.ir/StudentLoginForm.aspx?Language=Fa&Status=Students&lr=lang_fa")EndSubSub JobDone(job As HttpJob)	If job.JobName = "MyJob1" Then	 Dim s As String = job.GetString.Replace("""","'")		Dim captcha As String		captcha = s.SubString(s.IndexOf("'CaptchaImage.aspx?guid=")+1)		captcha = "http://chamrantv-ker.ac.ir/"&captcha.SubString2(0,captcha.IndexOf("'")-0)		httpjob2.Download(captcha)		Log("address " & captcha)	else if job.JobName = "MyJob2" Then		imageview1.Bitmap = job.GetBitmap	End If	End Sub 

خودتون میتونید با GetElements هم همین کار رو کنید

httpjob1 اینجا داره همون کار outerHTML رو انجام میده !

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

متاسفانه باز نشون نداد

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

این ایدی منه

@amir_hosein

[میلاد 441]

با سلام و خسته نباشید

 

حقیقتش تاپیک های مربوط به کپچا رو پک کردم ولی به جواب نرسیدم!!!

 

این ادس سایتی که باید کپچا رو بگیرم

http://chamrantv-ker.ac.ir/StudentLoginForm.aspx?Language=Fa&Status=Students&lr=lang_fa

و اینم ادرس یک کپچا

http://chamrantv-ker.ac.ir/CaptchaImage.aspx?guid=1b1b7db6-88cd-48df-93dc-26bb7812dea8

 و اینم قسمتی از کد های من

Sub getHTML(HTML As String)
	HTML = HTML.Replace("""","'")
		Dim img As String
		
	img = HTML.SubString(HTML.IndexOf("'CaptchaImage.aspx?guid=")+1)
	img = "http://chamrantv-ker.ac.ir/" & img.SubString2(0,img.IndexOf("'")-0)
	HttpJob1.Download(img)


End Sub

اگه مشیه مثل همیشه کمکم کنید خیلی ممنون

سلام

 

از کتابخونه پیکاسو استفاده کن 

	
				 pico.Initialize
		pico.LoadUrl(adrees).IntoImageView(ImageView1) 

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

[AHA_AMIRHOSEIN 19]

سلام

 

از کتابخونه پیکاسو استفاده کن 

	
				 pico.Initialize
		pico.LoadUrl(adrees).IntoImageView(ImageView1) 

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

مشکل الان سر گرفتن لینک کپچا هست

[AHA_AMIRHOSEIN 19]

دوستان من مشکلم حل نشده هنوز کسی نمیتونه کمکم کنه؟[emoji20]

[AHA_AMIRHOSEIN 19]

سلام

الان مشکل توی گرفتن لینک کپتچا هست؟؟

سایت مورد نظر رو قرار بدید و بگید کپتچایی که میخواین بگیرید کدوم قسمتشه.

این ادس سایتمه

http://chamrantv-ker.ac.ir/StudentLoginForm.aspx

[mehdi77rezai 6]

در در 1395/05/03, 17:37:42، مهدی ایزدی گفته است :

دوست عزیز من که بهتون گفتم چیکار کنید

یقین بدونید وقتی تاپیک رو ول کردم یعنی ضعف و کم کاری از خود شماست.

فقط کافی بود اون 1 رو میکردید 24 !

سورس و دمو نهایی رو براتون پیوست کردم

 

موفق باشید

get captcha(answerCenter.ir).rar

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

این آدرس سایته

http://217.219.20.41/login.aspx

میشه راهنماییم کنید مرسی

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

دوست عزیز من که بهتون گفتم چیکار کنید

یقین بدونید وقتی تاپیک رو ول کردم یعنی ضعف و کم کاری از خود شماست.

فقط کافی بود اون 1 رو میکردید 24 !

سورس و دمو نهایی رو براتون پیوست کردم

 

موفق باشید

get captcha(answerCenter.ir).rar

[AHA_AMIRHOSEIN 19]

up... !