V
vBasic
Misafir
Merhaba arkadaşlar VB6 ile Captcha okuma mantığından bahsetmek istiyorum.
İlk olarak mantığı reCaptcha üzerinden vermek istiyorum arkadaşlar. Örnek sitemize girdik ve reCaptcha önümüze geldi tarayıcımızdan CTRL+U yapıp kaynak kod sekmesine geliyoruz.
Yukarıda verdiğim gibi bir kod göreceksiniz. Kırmızı olarak belirttiğim URL(link)yi kopyalıyoruz burası bize lazım.
Şimdi kodlamamıza geçiyoruz:
Form'a 1 adet picture 1 adet web tarayıcı 1 adet timer ekliyoruz.
Form Load'ın içini şu şekilde dolduralım (webbrowser adını kodlabs yaptım):
Web tarayıcısının açılışına az önce belirttiğim url'yi yapıştırıyorsunuz.
Ardından Timer'ı şu şekilde ayarlayın:
İnterval = 1000
Enabled = True ve içine:
Örnek Projeyi İndir: Tıkla
kaynak
İlk olarak mantığı reCaptcha üzerinden vermek istiyorum arkadaşlar. Örnek sitemize girdik ve reCaptcha önümüze geldi tarayıcımızdan CTRL+U yapıp kaynak kod sekmesine geliyoruz.
Kod:
<noscript>
<iframe src="[COLOR=Red][U]http://api.recaptcha.net/noscript?k=6LfwKQQAAAAAAPFCNozXDIaf8GobTb7LCKQw54EA[/U][/COLOR]" height="300" width="500" frameborder="0"></iframe><br/>
<textarea name="recaptcha_challenge_field" rows="3" cols="40"></textarea>
<input type="hidden" name="recaptcha_response_field" value="manual_challenge"/>
</noscript>Şimdi kodlamamıza geçiyoruz:
Form'a 1 adet picture 1 adet web tarayıcı 1 adet timer ekliyoruz.
Form Load'ın içini şu şekilde dolduralım (webbrowser adını kodlabs yaptım):
PHP:
kodlabs.Silent = True
kodlabs.Navigate ("http://api.recaptcha.net/noscript?k=6LfwKQQAAAAAAPFCNozXDIaf8GobTb7LCKQw54EA")Ardından Timer'ı şu şekilde ayarlayın:
İnterval = 1000
Enabled = True ve içine:
PHP:
Dim Captcha As Object
Set Captcha = kodlabs.Document.body.createControlRange()
Captcha.Add kodlabs.Document.Images(0)
Captcha.execCommand "Copy"
reCaptcha.Picture = Clipboard.GetDataÖrnek Projeyi İndir: Tıkla
kaynak