AccessTr.neT
Webrowser1 Komutunu İe İle Kullanma - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Webrowser1 Komutunu İe İle Kullanma (/konu-webrowser1-komutunu-ie-ile-kullanma.html)

Sayfalar: 1 2


Webrowser1 Komutunu İe İle Kullanma - karizmax - 12/06/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...
Kod:
Set IE = CreateObject("internetexplorer.application")
   With IE
       .Navigate "??????????"




Cvp: Webrowser1 Komutunu İe İle Kullanma - karizmax - 16/06/2018

Güncel


Cvp: Webrowser1 Komutunu İe İle Kullanma - murat dikme - 16/06/2018

Ö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


Cvp: Webrowser1 Komutunu İe İle Kullanma - karizmax - 20/06/2018

(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.


Cvp: Webrowser1 Komutunu İe İle Kullanma - karizmax - 20/06/2018

örnek çalışma


Cvp: Webrowser1 Komutunu İe İle Kullanma - ozanakkaya - 20/06/2018

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