Herkese Selamlar

Öncelikle formlarımız da webden browser ve web gibi aramalar yaptım çok fazla konu var hepsini inceledim benim ki biraz daha farklı gibi gördüm. Kodlama da çok bilgim yok anca örneği değiştire biliyorum oda tutarsa.

Hocalarım verdiğim örnekte forma tablolarımda bilgisi bulunan metin kutusundaki(orj parça noyu)  google'a otomatik girmesini ve resmi göstermesini istiyorum.Böyle bir şey mümkün mü?Mümkün ise de ben yapamam yada aylarımı alır.

Yardımlarınız için Şimdiden teşekkür ederim.

Merhaba, formu açıp "Resim Getir" butonunu tıklayınız.

Elli tane yazdım bir tanesini gönderemedim. Yok be hocam size yazacak bir şey artık  bende yok.  Şu kafasına sıkan emoji de sıkmıyor.  
Teşekürler Ozan hocam ellerinize sağlık.

Selamlar
Hocam Formu ve tabloya eklediğiniz parca_resmi1 ve parca_resmi2  ekledim fakat google 'la resimleri çekti formdaki resim bölümüne almadan aşağıdaki kırmızı renkteki kod hatası verdi. Kurcaladım ama çok anlayamadım.

Private Sub Komut588_Click()
Dim Form As Variant
Dim A As String
Dim HTML_Body, HTML_Img As Object, AlinanResim As Object
WebBrowser1.Document.GetElementById("lst-ib").innertext = ÜrünNo.Value
Set Form = WebBrowser1.Document.getElementsByTagName("form")
Set Button = Form(0).onsubmit
Form(0).submit
Wait = Timer
While Timer < Wait + 2
    DoEvents
Wend

Do Until WebBrowser1.Busy = False
    DoEvents
Loop
       
Set HTML_Body = WebBrowser1.Document.All.tags("Body").Item(0)
Set HTML_Img = HTML_Body.getElementsByTagName("img")
        
        
For X = 1 To 2
        
    Set AlinanResim = HTML_Img(X + 1)
    GResimYolu = AlinanResim.src
    GResimYolu = Replace(GResimYolu, "data:image/jpeg;base64,", "")
    A = GResimYolu
    Open CurrentProject.Path & "\resimlerim\" & Me.ÜrünNo & "-" & X & ".png" For Binary As #1
    Put #1, 1, DecodeBase64(A)
    Close #1
    Controls("parca_resmi" & X) = CurrentProject.Path & "\resimlerim\" & Me.ÜrünNo & "-" & X & ".png"
    Controls("rsm_resim" & X).Picture = CurrentProject.Path & "\resimlerim\" & Me.ÜrünNo & "-" & X & ".png"
Next
        
MsgBox ("resimler geldi")



End Sub

Uygulama ile aynı dizinde resimlerim adında klasör var mı? 
Var ise uygulamanızı düzenlediğiniz son halini ekleyiniz.

Hocam 
aynen aynı dizide resimlerim diye klasör açtım. 
ama bu sefer bunu verdi hocam

Private Function DecodeBase64(ByVal strData As String) As Byte()
 
    Dim objXML As MSXML2.DOMDocument
    Dim objNode As MSXML2.IXMLDOMElement
    
    ' help from MSXML
    Set objXML = New MSXML2.DOMDocument
    Set objNode = objXML.createElement("b64")
    objNode.DataType = "bin.base64"
    objNode.Text = strData
    DecodeBase64 = objNode.nodeTypedValue
    
    ' thanks, bye
    Set objNode = Nothing
    Set objXML = Nothing
 
End Function