• Merhaba Ziyaretçi,
    Microsoft 365 Uygulamaları ile ilgili yeni haberler, dikkat çekici konular, ilgi ile takip edeceğiniz yazılar için.

    Abone Olun
  • ESTE - Microsoft Office Eğitimleri

    Yeni yıl Microsoft Office Eğitim planlarınız için bütçenizi oluşturmadan önce ESTE eğitim kalitesi ile tanışın. 🙌
    Kullanıcıların ihtiyacı olan yazılı materyal, dosya ve video kaynağı desteğimiz ile tüm ofis çalışanlarının iş süreçlerini rahatlatacak eğitimler planlayın. 🎯
    Microsoft Office eğitimlerimiz hakkında detaylı bilgi için bize ulaşın.

    👉 Microsoft Office Eğitim Talebi

Çö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
41
En iyi yanıt
0
Puanları
8
Yaş
42
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

  • örnek.rar
    19.5 KB · Görüntüleme: 15

Murat OSMA

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,504
En iyi yanıt
13
Puanları
113
Konum
İstanbul
Web sitesi
excelarsivi.com
Ad Soyad
Murat OSMA
Office Vers.
Office 365 TR+EN
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
41
En iyi yanıt
0
Puanları
8
Yaş
42
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

  • örnek2.xlsm
    26.4 KB · Görüntüleme: 10

Murat OSMA

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,504
En iyi yanıt
13
Puanları
113
Konum
İstanbul
Web sitesi
excelarsivi.com
Ad Soyad
Murat OSMA
Office Vers.
Office 365 TR+EN
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
41
En iyi yanıt
0
Puanları
8
Yaş
42
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
 

Murat OSMA

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,504
En iyi yanıt
13
Puanları
113
Konum
İstanbul
Web sitesi
excelarsivi.com
Ad Soyad
Murat OSMA
Office Vers.
Office 365 TR+EN
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
41
En iyi yanıt
0
Puanları
8
Yaş
42
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....
 

Murat OSMA

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,504
En iyi yanıt
13
Puanları
113
Konum
İstanbul
Web sitesi
excelarsivi.com
Ad Soyad
Murat OSMA
Office Vers.
Office 365 TR+EN
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