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

Soru Web Sayfası içine girmek

bulentkars

Bronz Üye
Kullanıcı Bilgileri
Katılım
30 May 2022
Mesajlar
408
Çözümler
3
Aldığı beğeni
67
Excel Versiyonu
Office 365 TR
Konuyu Başlatan
Merhaba,

baglantı Makrosu ile web adresini açıyorum, kullanıcı adı ve şifre otomatik geliyor. Ben Oturumu aç butonunu makro ile tıklayıp giriş yapmak için ne yapmalıyım acaba.. Yardımcı olursanız sevinirim. Şimdiden Teşekkürler..

Bağlantı Makrosu
Sub baglanti()
Shell "explorer ""' .tr"""
End sub

Oturumu Aç'an Html Kod bilgisi
<input type="submit" id="loginbtn" class="lui-button qlik-submit" value="Oturum aç" _mstvalue="139932">
 

Ekli dosyalar

  • Oturum Aç.JPG
    Oturum Aç.JPG
    18.8 KB · Gösterim: 8
Merhabalar

Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
 
Merhaba,

Aşağıdaki satırda hata veriyor.
HTMLdoc As MSHTML.HTMLDocument
 
Merhaba

Microsoft HTLML ObJect Library' i
referanslara ekleyiniz
 
Merhaba;

Referansı ekledim. Bu sefer aşağıdaki hatayı alıyorum. anlaığım kadarıyla zamandan dolayı yetişemiyor mu?

HTMLdoc.getElementById("loginbtn").Click
 
Application.Wait Now + TimeValue("00:00:05")
 
Aynı hatayı alıyorum.. Web sayfası açılıyor ancak giriş yapmıyor
 

Ekli dosyalar

  • hata.JPG
    hata.JPG
    24 KB · Gösterim: 9
Merhaba;

Önceki kodun aynısı
HTMLdoc.getElementById("loginbtn").Click
satırda hata alıyorum.
Microsoft Edge açılıyor.
ancak giriş butunu tıklamıyor.
 
Microsoft Edge yi ayarlarla explorer olarak açılmasını sağlamanız gerekir internette bu bilgiyi bulabilirsiniz.
 
önceki kodda new kelimesi yoktu
 
kodu çalıştırdığımda
HTMLdoc.getElementById("loginbtn").Click
satırda hata veriyor.
ama web sayfası açılıyor. ama giriş yapmıyor.
 
HTML kodumu yanlış acaba
'<input type="submit" id="loginbtn" class="lui-button qlik-submit" value="Oturum aç" _mstvalue="139932">

Kodun Son Hali

Sub baglanti()

Dim HTMLdoc As New MSHTML.HTMLDocument

Shell "explorer "" """

HTMLdoc.getElementById("loginbtn").Click

End Sub
 
10 . mesaj
 
Merhaba,

Kodu Microsoft Edge de veya Cherome' ye göre uyarlayabilirmiyiz acaba..
Microsoft Expolorerde olmuyor. ekteki gibi hata veriyor
 

Ekli dosyalar

  • expolorer.JPG
    expolorer.JPG
    23.4 KB · Gösterim: 2

Konuyu okuyanlar

Geri
Üst