Vb6 WebBrowserdan PictureBox’a Resim Aktarma

Arkadaşlar Aşağıda verdiğim kodlarla güvenlik kodu vs. yi webbrowserden pictureboxa aktarabilirsiniz.



Private Sub Command1_Click()
Dim O as Object
Set O = WebBrowser1.Document.body.createControlRange()
Call O.Add(WebBrowser1.Document.All("verificationImg"))
Call O.execCommand("Copy")
Set Picture1.Picture = Clipboard.GetData
End Sub
Private Sub Form_Load()
WebBrowser1.Navigate "https://adslkota.turktelekom.com.tr/adslkota/login_tr.jsp"
End Sub

 "https://adslkota.turktelekom.com.tr/adslkota/login_tr.jsp" adresi örnektir değiştirebilirsiniz fakat 
"verificationImg" ıd sini değiştirmeyi unutmayın aksi takdirde hata alırsınız.

ByFaTaLWarrior