09-11-2023, 22:55
merhaba
access formu üzerinden google den kalem görsellerini taratıp
çıkan resimlerin ilk 10 tanesinin linkini alabileceğim bir yöntem varmı acaba
aşağıdaki kod ile ilk 10 resmi klasöre alabiliyorum linklerini alamadım
yardımlarınız için şimdiden teşekürler
access formu üzerinden google den kalem görsellerini taratıp
çıkan resimlerin ilk 10 tanesinin linkini alabileceğim bir yöntem varmı acaba
aşağıdaki kod ile ilk 10 resmi klasöre alabiliyorum linklerini alamadım
yardımlarınız için şimdiden teşekürler
Visual Basic
- WebBrowser1.Silent = True
- WebBrowser1.Navigate2 "https://www.google.com/search?q=" & Me.ARAMA1 & "&tbm=isch&sa"""
- T1 = Now
- t2 = T1
- Do While DateDiff("s", T1, t2) < 3
- t2 = Now
- DoEvents
- Loop
- Dim HTML_Body, HTML_Img As Object, AlinanResim As Object, resimsay As Byte
-
- For resimsay = 1 To 12
- Set HTML_Body = WebBrowser1.Document.All.tags("Body").Item(0)
- Set HTML_Img = HTML_Body.getElementsByTagName("img")
- Set AlinanResim = HTML_Img(resimsay)
-
- URLDownloadToFile 0, AlinanResim.src, CurrentProject.path & "\RESİM\" & resimsay + 1 & ".jpg", 0, 0
- Next resimsay