Çözüldü Web sitesine şifreli girişi onaylatmak

[k0081]

Merhaba arkadaşlar;

https://cloud.acrobat.com

Bu web sitesine alttaki verdiğim kod ile açıyorum.

Dim iRet As Long
Dim cevap As Integer
cevap = MsgBox("Adobe document web sitesini açmak istiyormusunuz?", vbInformation + vbYesNo, "Adobe Scan (Iphone)")
Select Case cevap
Case vbYes
ShellExecute GetActiveWindow(), "Open", "https://cloud.acrobat.com", "", 0&, 1
End

Amacım ; email adres ve şifreyide yazdırıp, "sign in" butonuna bastırmak.

Bunun için koda hangi eklemeleri yapmalıyız?

yardımcı arkadaşa şimdiden teşekkür ederim.

 

[PLİNT]

Merhaba
Aşağıdaki gibi işinize yararmı?

Dim cevap As Integer
 Dim kopya As New DataObject
cevap = MsgBox("Adobe document web sitesini açmak istiyormusunuz?", vbInformation + vbYesNo, "Adobe Scan (Iphone)")
Select Case cevap
Case vbYes
ReDim pl(2) As String
 pl(1) = "MAİL ADRES"
 pl(2) = "PASWORD"
 
ShellExecute GetActiveWindow(), "Open", "https://cloud.acrobat.com", "", 0&, 1

Application.Wait (Now + TimeValue("00:00:05"))
For s = 1 To 2
kopya.SetText pl(s)
kopya.PutInClipboard
 Application.SendKeys "^v"
 Application.SendKeys "{TAB}", True
Application.Wait (Now + TimeValue("00:00:01"))
Next
 SendKeys "{ENTER}", True
 End Select

 

[k0081]

PLİNT

Hocam kodları denedim. Sayfa açılıyor,. email textbox nı seçiyor., yapıştırmıyor. yani Tuş basımı göndermede sıkıntı var.

 

[PLİNT]

Ek dosyadaki şekliyle denedim sorun çıkmadı

Application.Wait (Now + TimeValue("00:00:05")) " 05" saniye yerine "10" ilede deneyin
http://dosya.co/pcmskasljbq7/Desktop.zip.html

 

[k0081]

Ek dosyadaki şekliyle denedim sorun çıkmadı

Application.Wait (Now + TimeValue("00:00:05")) " 05" saniye yerine "10" ilede deneyin
http://dosya.co/pcmskasljbq7/Desktop.zip.html

Denedim hocam. Hiç bir şey değişmedi. yani eklediğiniz dosyadan da çalıştırdım. olmuyor.

e-mail textboxında kalıyor. yalnız o konumda iken CTRL+V dediğimde e-mail kısmına "password" yapıştırıyor...

Browser : Firefox v65.0.1 (x64)
sistem : Win 7 x64
Ofis 2010x64

 

[PLİNT]

Ctrl+v ile şifre yapıştırılabildiğine göre yetiştiremiyor gibi benim denemelerimde firefox kapalı iken 10-12 sn açık iken 5 sn bekleme süresi
istiyor.
Application.SendKeys "^v", [B]True[/B] Kodlarda (Yinede çalışması gerek ama) "true" yazmamışız bu haliyle ek dosyayı denermisiniz
http://dosya.co/afixc6gj2x6k/web_aç.zip.html

 

[k0081]

PLİNT

Son göndermiş olduğunuz dosyayı da denedim. e-mail YAPIŞTIRDI. ama password kalıyor.

Şimdi bence bunu faklı bir şekilde kodlayabilirmiyiz. olabilir mi ? sendkeys kullanmadan. script olabilir belki bilemiyorum.

Excel tablosunda değilde vb6 içine ekleyebiliriz kodları.

**********************

Application.Wait (Now + TimeValue("00:00:05"))

01 -» 05 yaptığımda PASSWORD yapıştırdı., çalıştı., onaylayarak sayfaya giriş yapıldı.

Tamamdır hocam., çok teşekkür ediyorum, yardımlarınız için. Sağolun.

 

[veyselemre]

Selenium Basic le ilk kodumu yazdım. Yakın zamanda herkes kullanacak...

Sayfanın altlarına doğru kurulum videosu var.

Kodlar modüle eklenecek şifre ve password yazıldıktan sonra excel kaydedilip yeniden açıldığı zaman sayfa açılacak excel kapanırken
chrome kapanacak,

Rem Selenium Type Library Referanslardan Eklenecek

Dim driver As WebDriver
Dim keys As Selenium.keys
Sub auto_open()
    Set driver = New ChromeDriver
    Set keys = New Selenium.keys
    Call test
End Sub
Sub test()
    driver.Get "https://cloud.acrobat.com/"
    Set ara = driver.FindElementByXPath("//*[@id=""adobeid_username""]")
    ara.SendKeys ("email")
    ara.SendKeys keys.Tab
    Application.Wait (Now + TimeValue("00:00:3"))
    Set ara = driver.FindElementByXPath("//*[@id=""adobeid_password""]")
    ara.SendKeys ("şifre")
    driver.FindElementByXPath("//*[@id=""sign_in""]").Click
End Sub
Sub auto_close()
    Set driver = Nothing
    Set keys = Nothing
End Sub

 

[k0081]

veyselemre


Hocam Teşekkür ederim, tamamdır.. çok daha stabil çalışıyor.

 

[k0081]

veyselemre

Hocam merhaba. göndermiş olduğunuz Selenium Basic ; kod ile bir kaç web sitesine giriş yaptırdım.. ( Internet Browser : OPERA )

yalnız şunda takıldım ;

https://apps.autodesk.com/en

siteyi açtırıp, "Sign-in" kısmına kadar geldim. kullanıcı adı/e-mail yazdırıp NEXT yaptıramadım.

Yardımcı olabilirseniz sevinirim. Teşekkürler.