Selenium ve Facebook

[doganayfidaan]

Merhabalar,
Elimde bir kod var bu kod facebookdan profillere mesaj atmayı sağlıyor.Bunu nasıl yapıyor,
A sutunda profil linklerine erişebilecegim bir referans var.
B sutunda göndericegim mesaj var.

Bu kod, Facebook a giriyor mesajı gönderiyor, sonra diğer göndericeği mesajın profiline giriyor bu süreç böyle devam ediyor.Toplamda 150 mesaj attırıyorum.
Benim geliştrimek istediğim şey ise şu.

150 mesajdan sonra,choromeyi kapatsın ve tekrar açıp 2. hesaba giriş yapıp kaldığı yerden mesaj atmaya devam etsin, ve 6 tane facebook hesabı kaydetmek isityorum.

Saygılarımla.

 

[askm]

Aşağıdaki şekilde deneyin.

Private Sub CommandButton1_Click()
    Dim driver As Object
    Dim username As Object
    Dim password As Object
    Dim loginButton As Object
    Dim link As Range
    Dim message As Range
    
    ' Selenium driver'ını başlat
    
    For kul = 1 To 6
        
        Set driver = CreateObject("Selenium.ChromeDriver")
        driver.Start
        
        ' Facebook giriş sayfasına git
        driver.Get "https://www.facebook.com/"
        
        ' Bekleme için 2 saniye
        Application.Wait (Now + TimeValue("00:00:02"))
        
    ' Kullanıcı adı ve şifre alanlarını bul ve doldur
    
        Set username = driver.FindElementByName("email")
        username.SendKeys Sayfa2.Cells(kul, 1) 'Sayfa2 de A sütununda kullanıcı adı olsun
        
        Set password = driver.FindElementByName("pass")
        password.SendKeys Sayfa2.Cells(kul, 2) 'Sayfa2 de B sütununda Şifre olsun
        
        ' Giriş yap düğmesini bul ve tıkla
        Set loginButton = driver.FindElementByName("login")
        loginButton.Click
        
        ' Bekleme için 5 saniye (Girişin tamamlanması için yeterli süre)
        Application.Wait (Now + TimeValue("00:00:05"))
        
        ' A sütunundaki hücreleri dolaş
        For Each link In Range("A1:A150")
            ' Linkin sonuna eklenen değeri al
            Dim linkValue As String
            linkValue = CStr(link.Value)
            
            ' Facebook mesajlar sayfasına git
            driver.Get "https://www.facebook.com/messages/t/" & linkValue
            
            ' Bekleme için 2 saniye
            Application.Wait (Now + TimeValue("00:00:02"))
            
            ' B sütunundaki hücredeki mesajı al
            Set message = Cells(link.Row, "B")
            Dim messageText As String
            messageText = CStr(message.Value)
            
            ' Mesajı yaz
            Dim messageBox As Object
            Set messageBox = driver.FindElementByXPath("//div[@role='textbox']")
            messageBox.SendKeys messageText
            
            ' Enter tuşuna basarak mesajı gönder
            messageBox.SendKeys driver.Keys.Enter
            
            ' Bekleme için 5 saniye
            Application.Wait (Now + TimeValue("00:00:05"))
        Next link
        
        ' Tarayıcıyı kapat
        driver.Quit
    Next kul
    ' Nesneleri temizle
    Set username = Nothing
    Set password = Nothing
    Set loginButton = Nothing
    Set link = Nothing
    Set message = Nothing
    Set messageBox = Nothing
    Set driver = Nothing
End Sub

 

[yasin85]

Merhaba Arkadaşlar,
Kolay gelsin,

Selenium güncel chrome güncel fakat bu şekilde uyarı alıyorum atladığım detay nedir yardımcı ola bilirmisiniz.

Dosya İndir.

 

[Mdemir63]

Selamlar

Ben bu şekilde çözdüm Run time error 33 hatasını
Buraya Mb yüksek olduğu için yükleyemedim.

İndir

 

[yasin85]

@Mdemir63 Hocam,

Bilginize sağlık sistem açıldı çok teşekkür ederim.

 

[Mdemir63]

Rica ederim.
İyi çalışmalar

 

[airborne]

Merhaba Arkadaşlar,
Kolay gelsin,

Selenium güncel chrome güncel fakat bu şekilde uyarı alıyorum atladığım detay nedir yardımcı ola bilirmisiniz.

Dosya İndir.

Ekli dosyayı görüntüle 249519

S.a. dosyayı harici bir siteye yükleyebilir misiniz. İnceleme amaçlı.

Selametle.......

 

[yasin85]

Aleyküm Selam, Sn. @airborne

3 nolu mesajdaki macrolu excelde hiç bir değişiklik yapmadım bilginiz olsun.

Sn. @Mdemir63 göndermiş olduğu dosyayı
benim bilgisayarımda C:\Program Files\SeleniumBasic olan klasörünü önce
C:\Users\YAKIN\AppData\Local\SeleniumBasic kopyaladım ve güncel chromedriver dosyasını içine ekledim ve direkt çalıştı.

dosya yolu : https://s2.dosya.tc/server28/msd7fh/selenium1_facebook.xlsm.html ulaşa bilirsiniz.

Kolay gelsin.

 

[ermanusta]

muhtemelen google güncellemesi yaptınız ve dosyanız sizde çalışmıyor olabilir bunun için googledriver indirmeniz gerek.
öncelikle google sürümünüzü öğrenin web de bu sürüme ait driver indirip appdata altındaki selenium dosyasına kopyalayın, çalışacaktır.