• 13-07-2024, 14:12:00
    #10
    fatiheryildiz adlı üyeden alıntı: mesajı görüntüle
    Eyvallah üstadım teşekkür ederim. Excelle kolay oluyor normalde, verileri istediğiniz şekilde ayarlayıp hücrelere yazdırabiliyorsunuz ve böylece güzel ayarlarsanız indirme ve yüklenecek yere yüklemeyi bile yapabilirsiniz..
    Ben hepsini python request ile yapıyorum genelde hem hızlı oluyor hemde sorunsuz.

    fatiheryildiz adlı üyeden alıntı: mesajı görüntüle
    Eyvallah üstadlarım. Sanırım bu örneklerle çözerim diye düşünüyorum. Herkese çok çok teşekkür ederim.
    eğer bu koddan çözebilirsen buradan yardımcı olabilirim buda python kodu çünkü
  • 13-07-2024, 14:29:19
    #11
    Melihhh adlı üyeden alıntı: mesajı görüntüle
    Ben hepsini python request ile yapıyorum genelde hem hızlı oluyor hemde sorunsuz.


    eğer bu koddan çözebilirsen buradan yardımcı olabilirim buda python kodu çünkü
    Önemli olan doğru elementi bulabilmek diye düşünüyorum. Aslında şöyle bir kodum var ama çalıştıramadım bi türlü..

        Dim screenShot As Image
        Set screenShot = x.FindElementByClass("g1-frame-inner").FindElementByTag("img").TakeScreenshot(1000)
        
        screenShot.SaveAs (ThisWorkbook.Path & "\resim.jpg")
  • 13-07-2024, 14:39:31
    #12
    fatiheryildiz adlı üyeden alıntı: mesajı görüntüle
    Önemli olan doğru elementi bulabilmek diye düşünüyorum. Aslında şöyle bir kodum var ama çalıştıramadım bi türlü..

        Dim screenShot As Image
        Set screenShot = x.FindElementByClass("g1-frame-inner").FindElementByTag("img").TakeScreenshot(1000)
        
        screenShot.SaveAs (ThisWorkbook.Path & "\resim.jpg")
    html_content = driver.page_source
    soup = BeautifulSoup(html_content, 'html.parser')
    src = soup.find('div', class_='g1-img-wrap mashsb-micro-wrapper').find('img')['src']
    print(src)

    burada src den sanırım şu şekilde yapman lazım bard öyle diyor

    Bard!
    ' Resim URL'sini değişkene atayın
    Dim resimUrl As String
    resimUrl = "https://cdn.r10.net/image.php?u=130789&avatartime="

    Bard!
    ' Dosya adını oluşturmak için StrMid fonksiyonunu kullanın
    Dim dosyaAdi As String
    dosyaAdi = StrMid(resimUrl, InStr(1, resimUrl, "/", vbTextCompare) + 1, _
    InStrRev(resimUrl, ".", vbTextCompare) - InStr(1, resimUrl, "/", vbTextCompare) - 1)

    ' Dosya uzantısını ekleyin
    dosyaAdi = dosyaAdi & ".jpg"

    Sen resim url yerine yukarda src ye vericen ve print sc ile uğraşmadan net resmi alıyor olman lazım.
  • 14-07-2024, 15:11:39
    #13
    Melihhh adlı üyeden alıntı: mesajı görüntüle
    html_content = driver.page_source
    soup = BeautifulSoup(html_content, 'html.parser')
    src = soup.find('div', class_='g1-img-wrap mashsb-micro-wrapper').find('img')['src']
    print(src)

    burada src den sanırım şu şekilde yapman lazım bard öyle diyor

    Bard!
    ' Resim URL'sini değişkene atayın
    Dim resimUrl As String
    resimUrl = "https://cdn.r10.net/image.php?u=130789&avatartime="

    Bard!
    ' Dosya adını oluşturmak için StrMid fonksiyonunu kullanın
    Dim dosyaAdi As String
    dosyaAdi = StrMid(resimUrl, InStr(1, resimUrl, "/", vbTextCompare) + 1, _
    InStrRev(resimUrl, ".", vbTextCompare) - InStr(1, resimUrl, "/", vbTextCompare) - 1)

    ' Dosya uzantısını ekleyin
    dosyaAdi = dosyaAdi & ".jpg"

    Sen resim url yerine yukarda src ye vericen ve print sc ile uğraşmadan net resmi alıyor olman lazım.
    Şu kodlarla çözdüm.. Herkese teşekkür ederim..

    Private Declare PtrSafe Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As LongPtr, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As LongPtr, ByVal lpfnCB As LongPtr) As LongPtr
    Sub gorselindir()
    
        Url = indirfotourl
        dosyaYolu = "C:\Users\Fotoğraflar\" & fotoisim & urlal & ".webp"
        '"C:\Users\fatih\OneDrive\Masaüstü\Yeni klasör\" & "fotoisim" & i & ".jpg"
        
        URLDownloadToFile 0, Url, dosyaYolu, 0, 0
        Sheets("Haberler").Range("D" & HbBSonSatir + 1).Value = "İndirme Tamamlandı"
        Sheets("Haberler").Range("E" & HbBSonSatir + 1).Value = fotoisim & urlal & ".webp"
    'Next i
    
    'MsgBox "Çalışma tamamlandı"
    End Sub