Skip to main content

AccessTr.neT


Webrowser1 Komutunu İe İle Kullanma

Webrowser1 Komutunu İe İle Kullanma

Çözüldü #1
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
Güncel
Cevapla
#3
Ö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
(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
örnek çalışma
.rar örnek.rar (Dosya Boyutu: 19,51 KB | İndirme Sayısı: 10)
Son Düzenleme: 20/06/2018, 11:29, Düzenleyen: karizmax.
Cevapla
#6
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