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 "??????????"
Ö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
(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.
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
yazıp Ekle Butonunu tıkla,
![[Resim: do.php?imgf=152950389618591.png]](https://accesstr.net/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