Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

Webrowser1 Komutunu İe İle Kullanma

karizmax
karizmax
Excel Cevaplanmış Soruları
8
3376

Webrowser1 Komutunu İe İle Kullanma

Çözüldü #1
karizmax
Üye
karizmax
Bul
Üye
Adı Soyadı: ha....
Konum: Çorum
Ofis Versiyonu: Ofis 2013 32 Bit
Son Oturumu: 19/03/2020,12:39
Yorumları: 9
Konuları: 3
Kayıt Tarihi: 15/02/2015
Teşekkür Puanı: 0
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...
Kod:
Set IE = CreateObject("internetexplorer.application")
   With IE
       .Navigate "??????????"
Cevapla
#2
karizmax
Üye
karizmax
Bul
Üye
Adı Soyadı: ha....
Konum: Çorum
Ofis Versiyonu: Ofis 2013 32 Bit
Son Oturumu: 19/03/2020,12:39
Yorumları: 9
Konuları: 3
Kayıt Tarihi: 15/02/2015
Teşekkür Puanı: 0
Güncel
Cevapla
#3
murat dikme
Aktif Üye
murat dikme
Bul
Aktif Üye*
Adı Soyadı: mu.... di....
Yaşı: 47
Konum: İstanbul
Ofis Versiyonu: Ofis 2007
Son Oturumu: 10/03/2025,18:42
Yorumları: 188
Konuları: 46
Kayıt Tarihi: 24/10/2016
Teşekkür Puanı: 18
Mesleğiniz: Özel Güvenlik Amiri
Örnek bir uygulama ekleyebilirmisiniz

iURL = "http://www.accesstr.net/"

Shell "C:\Program Files\Internet Explorer\iexplore.exe http://www.accesstr.net", vbMaximizedFocus

gibi bir kod kullanabilirsiniz
Son Düzenleme: 16/06/2018, 15:34, Düzenleyen: murat dikme.
Cevapla
#4
karizmax
Üye
karizmax
Bul
Üye
Adı Soyadı: ha....
Konum: Çorum
Ofis Versiyonu: Ofis 2013 32 Bit
Son Oturumu: 19/03/2020,12:39
Yorumları: 9
Konuları: 3
Kayıt Tarihi: 15/02/2015
Teşekkür Puanı: 0
(16/06/2018, 08:43)murat dikme yazdı: Örnek bir uygulama ekleyebilirmisiniz

iURL = "http://www.accesstr.net/"

Shell "C:\Program Files\Internet Explorer\iexplore.exe http://www.accesstr.net", vbMaximizedFocus
gibi bir kod kullanabilirsiniz

İlginiz için tşk.
Ancak about:...... şeklinde yazılan kodda güvenlik kontrolunu geçmek için kodlar bulunuyor.
bu kodlar ile webbrowserde açılıyor ama ie açılmıyor.
Cevapla
#5
karizmax
Üye
karizmax
Bul
Üye
Adı Soyadı: ha....
Konum: Çorum
Ofis Versiyonu: Ofis 2013 32 Bit
Son Oturumu: 19/03/2020,12:39
Yorumları: 9
Konuları: 3
Kayıt Tarihi: 15/02/2015
Teşekkür Puanı: 0
örnek çalışma
.rar örnek.rar (Dosya Boyutu: 19,51 KB | İndirme Sayısı: 11)
Son Düzenleme: 20/06/2018, 11:29, Düzenleyen: karizmax.
Cevapla
#6
ozanakkaya
sledgeab
ozanakkaya
Bul
Kurucu
Adı Soyadı: Oz.... Ak....
Konum: Denizli
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: 23/10/2025,11:55
Yorumları: 13.543
Konuları: 499
Kayıt Tarihi: 29/01/2008
Teşekkür Puanı: 3.148
Mesleğiniz: Memur
Merhaba,

internet explorer'i aç,

İnternet Seçenekleri'nde Gizlilik Sekmesi, Açılır Pencere Engelleyicisi kısmındaki Ayarlar butonunu tıkla,

Açılan sayfada izin verilecek web sitesi adresi kısmına

Kod:
*.gib.gov.tr
yazıp Ekle Butonunu tıkla,

[Resim: do.php?imgf=152950389618591.png]



İnternet Explorer'i kapat.

Excel Belgesindeki "CommandButton2" isimli butonun tıklandığında olayına aşağıdaki kodu ekle,

Dim ie As Object

Set ie = CreateObject("internetexplorer.application")



ie.Visible = True



ie.Navigate "https://intvd.gib.gov.tr/internetvd/index.jsp"



Do While ie.Busy Or Not ie.ReadyState = READYSTATE_COMPLETE

DoEvents

Loop



Set doc = ie.Document

    

    

Call doc.parentWindow.execScript("openLoginPopup()", "JavaScript")

    

ie.Quit
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task