Internet Explorer Pop-up Login

[Trilenium]

Merhaba,

web sitemize giriş yapmak istiyorum , fakat önce dialogbox içinde yer alan kullanıcı adı ve passwordu yazmam gerekli.

Bunu Vba de nasıl doldurabilirim (selenium olmadan)

 

[Trilenium]

Konu günceldir.

 

[excelokyanus500]

Altından üye olmadığımdan dolayı resmi inceleyemedim. Resimde pop up'ın başlığı gözüküyor ancak ben okuyamıyorum.
Pop up lar benim bildiğim kadarıyla shell komutu ile aranır,bulunur ve aktif hale getirilir. Burada yazdığım yöntemi denemediyseniz
deneyiniz.

 Sub Ilkolarak()
 'IE'den "https://www.msn.com/tr-tr/?ocid=YXPRM418&clocalename=tr-TR ile https://www.google.com.tr/" açın deneme için
 Dim IE, oShApp, oWin
 Set oShApp = CreateObject("Shell.Application")
 For Each oWin In oShApp.Windows
    If TypeName(oWin.document) = "HTMLDocument" Then
        Set IE = oWin
        If LCase(IE.LocationURL) Like LCase(sMatch) Then
            Exit For
        End If
    End If
    MsgBox IE.LocationURL
    MsgBox IE.document.Title 'Pop up elde etmek için Pop up title gerekli
    MsgBox IE.document.getElementsByTagName("body").Item(0).innerText 'örnektir
Next

'Varsayalım title "Google" olsun

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

AppActivate "Google" ' Bu sayfayı aktif hale getirir. Sizde pop-up title olmalı

    'Doldurma yöntemleri
    'IE.document.getElementById("ID").Value = "value"
    'IE.document.getElementsByTagName("ID").Value = "value"
    'IE.document.getElementsByClassName("ID").Value = "value"
    'IE.document.getElementsByName("ID").Value = "value"
     'Tamam dügmesine tıklama için ayrıca bakınız.
     ' https://stackoverflow.com/questions/36565979/vbs-confirm-ie-popup

Set oShApp = Nothing
Set oWin = Nothing

End Sub

 

[Trilenium]

Selamlar,


Aşağıda yer alan kodlar siteye girişten sonra çalışıyor. Benim istediğim iste siteye giriş iznini yapabilmek.
Kullanıcı adı ve Şifreyi girdikten sonra site açılabiliyor.

Ekran Alıntısı

Resim Ekran Alıntısı kaydedildi Resim Yükle - Hızlı Resim

imgyukle.com

Altından üye olmadığımdan dolayı resmi inceleyemedim. Resimde pop up'ın başlığı gözüküyor ancak ben okuyamıyorum.
Pop up lar benim bildiğim kadarıyla shell komutu ile aranır,bulunur ve aktif hale getirilir. Burada yazdığım yöntemi denemediyseniz
deneyiniz.

 Sub Ilkolarak()
'IE'den "https://www.msn.com/tr-tr/?ocid=YXPRM418&clocalename=tr-TR ile https://www.google.com.tr/" açın deneme için
Dim IE, oShApp, oWin
Set oShApp = CreateObject("Shell.Application")
For Each oWin In oShApp.Windows
    If TypeName(oWin.document) = "HTMLDocument" Then
        Set IE = oWin
        If LCase(IE.LocationURL) Like LCase(sMatch) Then
            Exit For
        End If
    End If
    MsgBox IE.LocationURL
    MsgBox IE.document.Title 'Pop up elde etmek için Pop up title gerekli
    MsgBox IE.document.getElementsByTagName("body").Item(0).innerText 'örnektir
Next

'Varsayalım title "Google" olsun

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

AppActivate "Google" ' Bu sayfayı aktif hale getirir. Sizde pop-up title olmalı

    'Doldurma yöntemleri
    'IE.document.getElementById("ID").Value = "value"
    'IE.document.getElementsByTagName("ID").Value = "value"
    'IE.document.getElementsByClassName("ID").Value = "value"
    'IE.document.getElementsByName("ID").Value = "value"
     'Tamam dügmesine tıklama için ayrıca bakınız.
     ' https://stackoverflow.com/questions/36565979/vbs-confirm-ie-popup

Set oShApp = Nothing
Set oWin = Nothing

End Sub

 

[excelokyanus500]

Gördüğüm kadarıyla remote connection yapıyorsunuz.
Ekteki kod bir vbs kodudur.İlgili alanları düzeltip deneyiniz.Size bir fikir verebilir.

Dim oFSO, oShell, strFileName, strComputerName
dim fso
dim curDir
dim WinScriptHost
Set oFSO = CreateObject("Scripting.FileSystemObject")
curDir = oFSO.GetAbsolutePathName(".")
strFileName = curDir & "\ComputerName.rdp"
Set oStream = oFSO.CreateTextFile(strFileName, True)
oStream.WriteLine "screen mode id:i:1"
oStream.WriteLine "desktopwidth:i:1024"
oStream.WriteLine "desktopheight:i:768"
oStream.WriteLine "session bpp:i:24"
oStream.WriteLine "winposstr:s:0,1,0,0,800,600"
oStream.WriteLine "full address:s:092.08.0.000"
oStream.WriteLine "username:s:server\kullanici"
oStream.WriteLine "domain:s:"
oStream.WriteLine "compression:i:1"
oStream.WriteLine "keyboardhook:i:2"
oStream.WriteLine "audiomode:i:0"
oStream.WriteLine "redirectdrives:i:0"
oStream.WriteLine "redirectprinters:i:0"
oStream.WriteLine "redirectcomports:i:0"
oStream.WriteLine "redirectsmartcards:i:1"
oStream.WriteLine "displayconnectionbar:i:1"
oStream.WriteLine "autoreconnection enabled:i:1"
oStream.WriteLine "alternate shell:s:"
oStream.WriteLine "shell working directory:s:"
oStream.WriteLine "disable wallpaper:i:1"
oStream.WriteLine "disable full window drag:i:1"
oStream.WriteLine "disable menu anims:i:1"
oStream.WriteLine "disable themes:i:1"
oStream.WriteLine "disable cursor setting:i:0"
oStream.WriteLine "bitmapcachepersistenable:i:0"
oStream.Close
Set oShell = CreateObject("WScript.Shell")
oShell.Run "mstsc """ + strFileName + """"

 

[Trilenium]

Merhaba,

Hayır remote kontrol değil. Web üzerinden kullandığımız muhasebe programı. Girişi bu şekilde tasarlamışlar.


Siteye girebilmek için Windows Domain üzerinde kayıtlı kullanıcı ad ve şifremizle giriş yapıyoruz.