Private Declare Function URLDownloadToFile Lib "urlmon" _

Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, _

ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long



Private Sub Komut1_Click()

 Dim HTML_Body, HTML_Img As Object, AlinanResim As Object

        

        Set HTML_Body = WebBrowser1.Document.All.tags("Body").Item(0)

        Set HTML_Img = HTML_Body.getElementsByTagName("img")

        Set AlinanResim = HTML_Img(0)

        

        URLDownloadToFile 0, AlinanResim.src, CurrentProject.Path & "\resimlerim\1.png", 0, 0

        Me.resim1.Picture = CurrentProject.Path & "\resimlerim\1.png"

End Sub

Private Sub Form_Load()

    WebBrowser1.silent = True

    WebBrowser1.Navigate2 "http://www.captcha.net/"

End Sub