Whatsapp 'dan mesaj gönderirken resim ekleme hk.

[tamer42]

Merhabalar,
Selenium driver kullanarak Excel üzerinde whatsapp 'dan mesaj göndermek için bir çalışma yapıyorum, bu konuda epey bir yol kaydettim;
Tek takılıdığım nokta, whatsapp mesajına resim eklemek...
şöyle ki; Aşağıdaki kod ile "Ekle" butonuna, daha sonra Açılan Listeden "Fotoğraflar ve Videolar" seçeneğine tıklayınca dosya seçmek için FileDialog penceresi açılmakta;

buraya kadar geldim, devamında istediğim açılan FileDialog penceresinin alt bölümünde yer alan dosya adı yazan alana; kod içerisinde verdiğim dosya adının yazılarak {Enter} tuşuna başılması .... Bu işlemi yapacak bir kod satırına ihtiyacım bulunmakta;

Özetle ekte yer alan 1. görseldeki işlemleri yapıyorum, 2. görseldeki işlemleri yapmak için bir kod satırına ihtiyacım bulunmakta;

myPath = ThisWorkbook.Path & "\PDF\"

myFile = myPath & "195684_2025-04-20_Karne.png"

    With driver
        .Wait 500
'' Ekle butonuna tıkla
        .FindElementByXPath(attach).Click
        .Wait 1000
'' Fotoğraflar ve Videolar seçeneğine tıkla
        .FindElementByXPath("//*[@id='app']/div/span[5]/div/ul/div/div/div[2]/li").Click
        .Wait 1000
End with

destekleriniz için şimdiden teşekkürler,
iyi çalışmalar

 

[beifeng111]

Bir arkadaşım sayesinde WhatsApp ile tanıştım ve o günden beri en çok kullandığım mesajlaşma uygulaması oldu. Özellikle grup sohbetleri ve sesli mesajlar konusunda çok pratik. En güncel sürümünü güvenli bir şekilde indirmek isterseniz Heyapks sitesine göz atmanızı öneririm.

 

[tamer42]

Bir arkadaşım sayesinde WhatsApp ile tanıştım ve o günden beri en çok kullandığım mesajlaşma uygulaması oldu. Özellikle grup sohbetleri ve sesli mesajlar konusunda çok pratik. En güncel sürümünü güvenli bir şekilde indirmek isterseniz Heyapks sitesine göz atmanızı öneririm.

Hocam çalışmanız gayet güzel; yalnız benim amacım burada balık tutmayı öğrenmek;
işi öğrenmeye çalışıyorum,
iyi çalışmalar.

 

[pitchoute]

Merhaba, şöyle deneyebilir misiniz;

myPath = ThisWorkbook.Path & "\PDF\"
myFile = myPath & "195684_2025-04-20_Karne.png"

With driver
    .Wait 500
    .FindElementByXPath(attach).Click
    .Wait 1000
    .FindElementByXPath("//*[@id='app']/div/span[5]/div/ul/div/div/div[2]/li").Click
    .Wait 1000
    
    Application.Wait Now + TimeValue("0:00:02")
    SendKeys myFile, True
    Application.Wait Now + TimeValue("0:00:01")
    SendKeys "{ENTER}", True
    
    .Wait 2000
End With

Alternatif olarak;

.FindElementByXPath("//input[@type='file']").SendKeys myFile

 

[tamer42]

Merhaba, şöyle deneyebilir misiniz;

myPath = ThisWorkbook.Path & "\PDF\"
myFile = myPath & "195684_2025-04-20_Karne.png"

With driver
    .Wait 500
    .FindElementByXPath(attach).Click
    .Wait 1000
    .FindElementByXPath("//*[@id='app']/div/span[5]/div/ul/div/div/div[2]/li").Click
    .Wait 1000
   
    Application.Wait Now + TimeValue("0:00:02")
    SendKeys myFile, True
    Application.Wait Now + TimeValue("0:00:01")
    SendKeys "{ENTER}", True
   
    .Wait 2000
End With

Alternatif olarak;

.FindElementByXPath("//input[@type='file']").SendKeys myFile

Hocam çok teşekkürler

.FindElementByXPath("//input[@type='file']").SendKeys myFile

bu şekilde denedim, görsel yükleniyor ama ekli 1. görseldeki gibi kapalı olarak gidiyor.
2. görseldeki gibi görselin açık olarak gitmesi için nasıl bir düzenleme yapılabiliri?

iyi Çalışmalar dilerim.

 

[pitchoute]

Şöyle,

.FindElementByXPath("//input[@type='file']").SendKeys myFile
.Wait 2000

.FindElementByXPath("//div[contains(@class, 'copyable-text selectable-text')]").SendKeys "Görsel açıklaması buraya gelebilir"
.Wait 1000

.FindElementByXPath("//span[@data-icon='send']").Click

ya da

.FindElementByXPath("//input[@type='file']").SendKeys myFile
.Wait 2000

Dim captionField As Object
Set captionField = .FindElementByXPath("//div[contains(@class, 'copyable-text selectable-text')]")
captionField.Click
captionField.SendKeys "Görsel açıklaması buraya"
.Wait 1000

.FindElementByXPath("//span[@data-icon='send' or @data-testid='send' or contains(@aria-label, 'Send')]").Click

şöyle deneyebilir misiniz hocam.

 

[tamer42]

Şöyle,

.FindElementByXPath("//input[@type='file']").SendKeys myFile
.Wait 2000

.FindElementByXPath("//div[contains(@class, 'copyable-text selectable-text')]").SendKeys "Görsel açıklaması buraya gelebilir"
.Wait 1000

.FindElementByXPath("//span[@data-icon='send']").Click

ya da

.FindElementByXPath("//input[@type='file']").SendKeys myFile
.Wait 2000

Dim captionField As Object
Set captionField = .FindElementByXPath("//div[contains(@class, 'copyable-text selectable-text')]")
captionField.Click
captionField.SendKeys "Görsel açıklaması buraya"
.Wait 1000

.FindElementByXPath("//span[@data-icon='send' or @data-testid='send' or contains(@aria-label, 'Send')]").Click

şöyle deneyebilir misiniz hocam.

Hocam ilgi ve alakanız için çok teşekkürler,
bu şekilde görsel görünebilir gidiyor, ama görselin boyutunu epey düşürüyor, görselin okunaklılığı kalmıyor.
bilmiyorum bu konunun bir çözümü var mıdır?

iyi Çalışmalar.