Captcha Okuma Mantığı

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):
kodlabs.Silent = True
kodlabs.Navigate ("http://api.recaptcha.net/noscript?k=6LfwKQQAAAAAAPFCNozXDIaf8GobTb7LCKQw54EA")
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:
Dim Captcha As Object
Set Captcha = kodlabs.Document.body.createControlRange()
Captcha.Add kodlabs.Document.Images(0)
Captcha.execCommand "Copy"
reCaptcha.Picture = Clipboard.GetData

[COLOR=Red]Örnek Projeyi İndir:[/COLOR] Tıkla

kaynak

Hocam bu tam olarak ne işe yarıyor ben anlamadım? Visual Basic içinde reCaptcha resminimi gösterdik, yoksa captcha kodunu mu kırıyoruz? :)

Hayır kırma gibi bir işlem yok sadece okutmak içindir hocam. Örnek bir üyelik projesinde okutmanız gerekebilir :)