Sorgu için arama sonuçları: WhatsApp

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...

Merhaba. Kodları çalıştırmadan önce bir tane kendiniz WhatsApp Web sayfası açın sonra kodları çalıştırın.

...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...

...& i) mesaj = sayfa.Range("E" & i) If numarab <> "" And sayimi(numarab) Then sayfa.Range("F" & i) = "https://api.whatsapp.com/send?phone=+994 " & numarab & "&text=" & mesaj sayfa.Range("F" & i).Hyperlinks.Add Anchor:=sayfa.Range("F" & i), Address:=sayfa.Range("F" &...

...i = 2 To son numara = Sheets("Sheet1").Range("B" & i) mesaj = Sheets("Sheet1").Range("E" & i) Sheets("Sheet1").Range("F" & i) = "https://api.whatsapp.com/send?phone=+994" & numara & "&text=" & mesaj Range("F" & i).Select ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _ Range("F" & i)...

Arkadaşlar Merhabalar Blog web sayfamda paylaştığım ücretli ve ücretsiz versiyonlarına bakabilirsiniz.

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

SendKeys String:="%{enter}", Wait:=True zaman (1000) bu kod ile istediğim sonuca ulaştım. 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

Dolu satırları kopyalayıp whatsapp'a atacağım.

Teşekkürler işime çok yaradı :)

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...