serif_007
Altın Üye
- Katılım
- 5 Nisan 2014
- Mesajlar
- 155
- Excel Vers. ve Dili
- Excel 2019
- Altın Üyelik Bitiş Tarihi
- 16-07-2027
Arkadaşlar merhaba.
Selenium ile kendi hazırlamış olduğum bir tablodaki verileri hangi satırdakini göndermek istediğimi seçerek gönderebileceğim bir çalışma yaptım. Fakat bir sorunum var. Mesaj gönderimini tamamladıktan sonra chrome'u kapatıyor ve her seferinde QR kodunu okutmadan giremiyorum. Kodları aşağıda paylaşıyorum. Nasıl bir değişiklik ile bu sorunun önüne geçebiliriz?
Yardımlarınızı rica ediyorum.
Selenium ile kendi hazırlamış olduğum bir tablodaki verileri hangi satırdakini göndermek istediğimi seçerek gönderebileceğim bir çalışma yaptım. Fakat bir sorunum var. Mesaj gönderimini tamamladıktan sonra chrome'u kapatıyor ve her seferinde QR kodunu okutmadan giremiyorum. Kodları aşağıda paylaşıyorum. Nasıl bir değişiklik ile bu sorunun önüne geçebiliriz?
Yardımlarınızı rica ediyorum.
Kod:
Private Sub ListBox1_Click()
Function zaman(ByVal Acao As Double)
Application.Wait (Now() + Acao / 24 / 60 / 60 / 1000)
End Function
Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
TextBox1.Enabled = True
TextBox1.BackColor = &H8000000E
Else
TextBox1.Enabled = False
TextBox1.BackColor = &HE0E0E0
End If
End Sub
Private Sub CheckBox2_Click()
Dim s As Integer
If CheckBox2.Value = True Then
For s = 0 To ListBox1.ListCount - 1
ListBox1.Selected(s) = True
Next s
Else
For s = 0 To ListBox1.ListCount - 1
ListBox1.Selected(s) = False
Next s
End If
End Sub
Private Sub CommandButton5_Click()
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.
GrupAdi = Sheets("MANEVRA KAYITLARI").Range("U2").Value ' Whatsapp gönderilecek grup adının yazılması Denizli İşletme gibi
'Mesaj = Sheets(1).Range("a2").Value ' Gönderilecek mesajın metninin yer aldığı hücre
For x = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(x) Then
If CheckBox1.Value = True Then
Call SendKeys(TextBox1.Value, True)
Else
Mesaj(1) = "İstasyon Adı: " & ListBox1.List(x, 3)
Mesaj(2) = "Fider Adı: " & ListBox1.List(x, 5)
Mesaj(4) = "Açma Saati: " & Format(ListBox1.List(x, 8), "hh:mm")
Mesaj(5) = "Kapama Saati: " & Format(ListBox1.List(x, 9), "hh:mm")
Mesaj(6) = "Arıza Sinyali: " & ListBox1.List(x, 12)
Mesaj(7) = "Açıklama: " & ListBox1.List(x, 13)
baglan.FindElementByXPath("//*[@id='side']/div[1]/div/label/div/div[2]").Click
baglan.Wait (1000)
baglan.SendKeys (GrupAdi)
baglan.Wait (1000)
baglan.SendKeys (ks.Enter)
baglan.Wait (1000)
baglan.SendKeys (Mesaj(1))
baglan.Wait (1000)
SendKeys String:="%{enter}"
baglan.Wait (1000)
baglan.SendKeys (Mesaj(2))
baglan.Wait (1000)
SendKeys String:="%{enter}"
baglan.Wait (1000)
baglan.SendKeys (Mesaj(4))
baglan.Wait (1000)
SendKeys String:="%{enter}"
baglan.Wait (1000)
baglan.SendKeys (Mesaj(5))
baglan.Wait (1000)
SendKeys String:="%{enter}"
baglan.Wait (1000)
baglan.SendKeys (Mesaj(6))
baglan.Wait (1000)
SendKeys String:="%{enter}"
baglan.Wait (1000)
baglan.SendKeys (Mesaj(7))
baglan.Wait (1000)
baglan.SendKeys (ks.Enter)
baglan.Wait (1000)
End If
End If
Next x
End If
UserForm2.Hide
End Sub
Private Sub OptionButton2_Click()
UserForm2.Caption = "Whatsapp Mesaj Gönder"
CommandButton5.Caption = "GÖNDER"
CheckBox2.Caption = "Tümünü Seç"
CheckBox1.Caption = "Mesaji Gönder"
End Sub
Private Sub UserForm_Initialize()
TextBox1.Enabled = False
ListBox1.ColumnCount = 21
ListBox1.ColumnWidths = "100;100;100"
ListBox1.ListStyle = fmListStyleOption
ListBox1.MultiSelect = fmMultiSelectMulti
ListBox1.RowSource = "A1:U" & [A65532].End(3).Row
OptionButton2 = True
End Sub
Son düzenleme:
