Arkadaşlar merhaba.
Selenium ile bir whatsapp uygulaması yaptım, bilgisayar üzerinde herhangi bir yerde çok güzel çalışıyor. Fakat şirkette olduğumuz için bir kaç kişinin farklı farklı yerlerden ulaşması gereken bir dosya olduğundan sunucu üzerindeki bir klasörde bu dosyayı paylaşıyoruz...
...ar kodu sormayı atladım. Fakat şimdi bir sorunum daha var. Fonksiyonları ekledikten sonra sendkeys komutları düzgün çalışmıyor. Örneğin whatsapp'a 6 satır mesaj gönderiyorum. her mesajı yazdıktan sonra alt+enter yapmasını istiyorum. aşağıdaki şekilde yaptığımda 2 mesajda alt+enter yapıyor...
...Dim baglan As New Selenium.WebDriver
Dim ks As New Keys
Dim Mesaj(20) As String
Basa:
baglan.Start "chrome", "https://web.whatsapp.com/"
baglan.Get "/"
If MsgBox("WhatsApp web Başladı MI?", vbYesNo) = vbYes Then ' Bu soruyu ekrana soruyor önce whatsapp açıp daha sonra EVET denmelidir...
Merhaba Değerli dostum ve üstadım Haluk bey
Ben yukarıdaki mesajından ne kastettiğinizi anlayamadım. Biraz daha açabilirseniz çok memnun olurum.
Dünyadaki gelişmelere siz çok daha vakıfsınız. Her zaman olduğu gibi düşüncenize saygı duyuyorum. Ancak isminde Excel olan bir forumda Excel'e...
...1 yılı geçmiş, ben kaçırmışım..... Sonraki yazılan mesajları da okudum.
Bildiğiniz gibi; bir mektup, dilekçe.... günümüzde ise e-posta, whatsapp grup mesajı, forum mesajı vb birşey yazarken ilk satırda muhatap aldığınız kişiyi, makamı belirtirsiniz. Ben de öyle yapmıştım, ama sonradan ilk...
arkadaşlar merhaba makro çalışmadan önce her hangi bir link açık olup olmadığını nasıl sorgularız mesala makro çalışmadan önce whatsapp web açıkmı kapalımı nasıl sorgular anlarız teşekkürler
Merhabalar arkadaşlar.
Call SendKeys ile tablomdaki verileri Whatsapp ile bir gruba mesaj gönderiyorum.
Call SendKeys(ListBox1.List(x, 3), True)
zaman (1000)
kullandığım kod budur. Bu işlemi yaptıktan sonra makronun Alt+Enter kombinasyonunu yapmasını istiyorum.
Örnek veriyorum, Whatsapp'a...
...anlaşılacağı üzere tabloya her yeni veri girdiğimde göndermek istediğim satırı seçip A,B,D ve E sütunlarındaki sadece 1 satırdaki verileri whatsapp'ta seçeceğim bir gruba bir buton yardımı ile göndermek istiyorum. Forumda araştırdım fakat istediğim sonuca ulaşamadım. Konu hakkında...
...Private Sub CommandButton1_Click()
For i = 2 To 3
Dim ie As InternetExplorer
Set ie = New InternetExplorer
ie.Navigate "https://web.whatsapp.com/send?phone=" & Cells(i, 2) & "&text=" & Cells(i, 3)
Application.Wait Now + TimeValue("00:00:10")
Call SendKeys("{ENTER}", True)...
Siteden sadece kopyala macosu buldum kopyala yapınca whatsapp'a resim olarak atıyor işimi gördü . Çok teşekkür ederim.
Dim Say As Integer
Say = Cells(Rows.Count, "A").End(xlUp).Row
Range("A2:G" & Say).Copy
Next i satırının üst kısmına ekleyiniz
Application.Wait Now + TimeValue("00:00:02")
Call SendKeys("{ENTER}", True)
SendKeys String:="^w{enter}", Wait:=True
...For i = 2 To 4
Dim ie As InternetExplorer
Set ie = New InternetExplorer
ActiveSheet.Shapes("igne").Copy
'https://web.whatsapp.com/send?phone=+++
ie.Navigate "https://web.whatsapp.com/send?phone=" & Cells(i, 1) & "&text=" & Cells(i, 2)
Application.Wait Now + TimeValue("00:00:05")
Call...
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.