AccessTr.neT
Siteden Resim Çekmek. - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Visual Basic 6 (https://accesstr.net/forum-visual-basic-6.html)
+--- Forum: Visual Basic 6 Cevaplanmış Soruları (https://accesstr.net/forum-visual-basic-6-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Siteden Resim Çekmek. (/konu-siteden-resim-cekmek.html)



Siteden Resim Çekmek. - kral55011 - 18/03/2014

http://www.socialland.net/sendsms-turkey-90.php
yukarıdaki sitede en altta güvenlik kodu resmini , formumda olan pictureboxa gönderemiyorum
yardım ederseniz sevinirim.
şimdiden teşekkürler.

ekte örneği var.proje yarım kaldı.


Cvp: SİTEDEN RESİM ÇEKMEK. - ozanakkaya - 18/03/2014

Sonraki konularınızda lütfen konu başlığını tümü büyük harflerle yazmayınız.

Örneğinizi düzenleme imkanım malesef yok, yol göstermesi açısından Access uygulaması hazırladım.

Webbrowser yüklendiğinde butonu tıkla.


Cvp: SİTEDEN RESİM ÇEKMEK. - ozanakkaya - 18/03/2014

Ayrıca, sayfada güvenlik kodunun yazılacağı text'in ismi logo değil.

WebBrowser1.Document.GetElementById("logo").SetAttribute("value", txtGkodu.Text)

bu kod yerine

WebBrowser1.Document.GetElementById("recaptcha_response_field").SetAttribute("value", txtGkodu.Text)

kodunu kullanmalısın.


Cvp: SİTEDEN RESİM ÇEKMEK. - drummers - 19/03/2014


If WebBrowser1.Url.ToString = ("https://blablablablaaaaa") Then
While WebBrowser1.ReadyState <> WebBrowserReadyState.Complete
Application.DoEvents()
End While
Dim Nesne As Object
Nesne = WebBrowser1.Document.DomDocument.body.createControlRange()
Nesne.Add(WebBrowser1.Document.Images(15).DomElement) 'kaçıncı resimse
Nesne.execCommand("Copy")
PictureBox1.Image = My.Computer.Clipboard.GetImage()

End If

Bir başka çözüm. Resimin id si felan olmadığını varsayarsak Img-grin)

Ahh birde bunları text e çevirsek Img-grin)