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

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

karizmax

Yeni Üye
Katılım
20 Haz 2018
Mesajlar
24
Puanları
3
Yaş
37
Konum
türkiye
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 "??????????"
 

Ekli dosyalar

Admin

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,090
Puanları
113
Konum
İstanbul
Web sitesi
www.excelarsivi.com
Ad Soyad
Excel Arşivi
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

Yeni Üye
Katılım
20 Haz 2018
Mesajlar
24
Puanları
3
Yaş
37
Konum
türkiye
Sayın admin, ilginiz ve yardımınız için teşekkürler.
1- javascript:eek: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.
 

Ekli dosyalar

Admin

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,090
Puanları
113
Konum
İstanbul
Web sitesi
www.excelarsivi.com
Ad Soyad
Excel Arşivi
Sayın admin, ilginiz ve yardımınız için teşekkürler.
1- javascript:eek:penLoginPopup() 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.

gib.gif

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

karizmax

Yeni Üye
Katılım
20 Haz 2018
Mesajlar
24
Puanları
3
Yaş
37
Konum
türkiye
Site istenildiği gibi açılıyor ancak kullanıcı kodu girişlerinde aşağıdaki gibi hata veriyor..Cutout 1.jpg
 

Admin

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,090
Puanları
113
Konum
İstanbul
Web sitesi
www.excelarsivi.com
Ad Soyad
Excel Arşivi
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

Yeni Üye
Katılım
20 Haz 2018
Mesajlar
24
Puanları
3
Yaş
37
Konum
türkiye
Shell "taskkill /f /im iexplore*===> tüm ie kapatıyor ama sonuç harika..
Elleriniz dert görmesin çok teşekkür ederim....
 

Admin

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,090
Puanları
113
Konum
İstanbul
Web sitesi
www.excelarsivi.com
Ad Soyad
Excel Arşivi
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. (y)
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst Alt