• Foruma hoş geldin 👋 Ziyaretçi

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak tamamen ücretsizdir.

    Giriş yap veya Şimdi kayıt ol

Çözüldü Web sayfasına appactivate ve sendkeys sorunu

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
M

mesudiye_052

Destek Ekibi
Katılım
26 Haz 2022
Mesajlar
207
Çözümler
61
Aldığı beğeni
280
Excel V
Office 2016 TR
Merhabalar

Sendkey metodu ile web sayfasına veriyi gönderemiyorum
veriyi kod bloğuna yapıştırıyor.


Nasıl bir kod ilave edebilirim.


Kod: 
Sub LoginToWebPage()
  
    Dim internet As Object
    Dim adres As String
    adres = "https://cloud.fitbulut.com/kullanici/giris"
    Set internet = CreateObject("WScript.Shell")
    internet.Run "msedge.exe " & adres
  
  

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

End Sub
 
Çözüm
VetExc
Bu da Application Sendkeys yöntemiyle sunduğu alternatifi

C++: 
Sub LoginToWebPage()
  Dim internet As Object
  Dim adres As String
  adres = "https://cloud.fitbulut.com/kullanici/giris"
  Set internet = CreateObject("WScript.Shell")
  internet.Run "msedge.exe " & adres
 
  Application.Wait Now + TimeValue("00:00:05")
 
  Application.SendKeys "aaahotmail.com"
  Application.SendKeys "{TAB}"
  Application.SendKeys "yourpassword"
  Application.SendKeys "{TAB}"
  Application.SendKeys "{ENTER}"
End Sub
Tarihe göre sırala Oylara göre sırala
Merhaba hocam denemek için şu meşhur yapay zekaya sorunuzu sordum ve bu cevabı aldım ve paylaşayım istedim :)

C#: 
Sub LoginToWebPage()
  Dim ie As Object
  Set ie = CreateObject("InternetExplorer.Application")
 
  ie.Visible = True
  ie.Navigate "https://cloud.fitbulut.com/kullanici/giris"
 
  Do While ie.ReadyState <> 4
    DoEvents
  Loop
 
  ie.Document.getElementById("email").Value = "aaahotmail.com"
  ie.Document.getElementById("password").Value = "yourpassword"
  ie.Document.getElementById("loginButton").Click
End Sub
 
Olumlu oy 0 Negatif oyla
Bu da Application Sendkeys yöntemiyle sunduğu alternatifi

C++: 
Sub LoginToWebPage()
  Dim internet As Object
  Dim adres As String
  adres = "https://cloud.fitbulut.com/kullanici/giris"
  Set internet = CreateObject("WScript.Shell")
  internet.Run "msedge.exe " & adres
 
  Application.Wait Now + TimeValue("00:00:05")
 
  Application.SendKeys "aaahotmail.com"
  Application.SendKeys "{TAB}"
  Application.SendKeys "yourpassword"
  Application.SendKeys "{TAB}"
  Application.SendKeys "{ENTER}"
End Sub
 
Olumlu oy 1 Negatif oyla
Çözüm
Merhabalar

Sayın VetExc​

Çok teşekkürler
 
Olumlu oy 0 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst