Çözüldü Webrowser1 Komutunu İe İle Kullanma

karizmax · 20 Haz 2018

Merhaba,
aşağıda internet vergi dairesine giriş için kod bulunmakta

WebBrowser1.Navigate ("about:<html><head><script>window.opener=window;window.location = 'https://intvd.gib.gov.tr/internetvd/dispatch2?cmd=IVD_LOGINPAGE';</script></head></html>")

bu kodu sayfayı İe açmak için nasıl kullanabilirim? aşağıdaki gibi vb...

Set IE = CreateObject("internetexplorer.application")
With IE
.Navigate "??????????"

Murat OSMA · 20 Haz 2018

Merhaba,
Bu kodlarla açılan pencereye ve denetimlerine ulaşabilirsiniz.
username harici diğer inputlara siz ulaşırsınız..

PHP:

Sub ExcelTurkey()
    Dim ie As Object, yeni As Object
    Set ie = CreateObject("internetexplorer.application")
    With ie
        .Visible = True
        .Navigate "https://intvd.gib.gov.tr/internetvd/index.jsp"
        Do While ie.Busy: DoEvents: Loop
        ie.Navigate "javascript:openLoginPopup()"
        Do While ie.Busy: DoEvents: Loop
    End With
     With CreateObject("Shell.Application")
        For Each pencere In .Windows()
            If UCase(pencere.FullName) Like "*IEXPLORE*" Then
                Set yeni = pencere.Application
            End If
        Next pencere
    End With
    Do While yeni.Busy: DoEvents: Loop
    yeni.Document.getelementsbyname("username")(0).Value = 10
End Sub

karizmax · 20 Haz 2018

Sayın admin, ilginiz ve yardımınız için teşekkürler.
1- javascript

penLoginPopup() ile açılan sayfadaki kullanıcı kodlarını yazdıramadım,
2- birde ilk açılan ana sayfayı kapatmanın bir yolu varmı ?

örnek dosya ektedir.

Murat OSMA · 20 Haz 2018

karizmax' Alıntı:
Sayın admin, ilginiz ve yardımınız için teşekkürler.
1- javascriptpenLoginPopup() ile açılan sayfadaki kullanıcı kodlarını yazdıramadım,
2- birde ilk açılan ana sayfayı kapatmanın bir yolu var mı ?

Verdiğim kodlar kullanıcı kodunu kendi yazar, parola ve şifreyi de sizin yazdırabileceğinizi belirttim.
Bu gif resimde de ilgili ekrana gidip kullanıcı koduna kodlarla 10 yazdırıldığını görebilirsiniz.

İlk açılan sayfa da manuel kapatılabilir çok zor olmasa gerek fakat istenirse onu da ekleriz.

karizmax · 20 Haz 2018

Site istenildiği gibi açılıyor ancak kullanıcı kodu girişlerinde aşağıdaki gibi hata veriyor..

Murat OSMA · 20 Haz 2018

Anladım. Net çözüm için bilgisayarınıza uzaktan bağlanmak gerekir.

Yine de şu kodları bir deneyiniz..

PHP:

Sub ExcelTurkey()
    Dim ie As Object, yeni As Object
    Shell "taskkill /f /im iexplore*"
    basla = Timer: While (Timer - basla) < 1: Wend
    Set ie = CreateObject("internetexplorer.application")
    With ie
        .Visible = True
        .Navigate "https://intvd.gib.gov.tr/internetvd/index.jsp"
        Do While ie.Busy: DoEvents: Loop: Do While Not ie.ReadyState = 4: DoEvents: Loop
        ie.Navigate "javascript:openLoginPopup()"
        basla = Timer: While (Timer - basla) < 1: Wend
    End With
     With CreateObject("Shell.Application")
        For Each pencere In .Windows()
            If UCase(pencere.FullName) Like "*IEXPLORE*" Then
                ie.Quit
                Set yeni = pencere.Application
            End If
        Next pencere
    End With
    yeni.Document.getelementsbyname("username")(0).Value = 10
End Sub

karizmax · 20 Haz 2018

Shell "taskkill /f /im iexplore*===> tüm ie kapatıyor ama sonuç harika..
Elleriniz dert görmesin çok teşekkür ederim....

Murat OSMA · 20 Haz 2018

Sağlıklı olması bakımından önceki ie tarayıcılarını kapattırdım, bazen sürüm sebebiyle açık kalması hataya sebep olmakta.

Rica ederim, iyi akşamlar.

Çözüldü Webrowser1 Komutunu İe İle Kullanma

Daha fazla seçenek

karizmax

Ekli dosyalar

Murat OSMA

karizmax

Ekli dosyalar

Murat OSMA

karizmax

Murat OSMA

karizmax

Murat OSMA