Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
12/06/2018 00:26
Konu Sahibi
karizmax
Yorumlar
8
Okunma
829
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

karizmax

Üye
ha....
 2
 8
 15/02/2015
0
 Çorum
 
 Ofis 2013 32 Bit
 09/10/2018,23:02
Çözüldü 
Merhaba,
aşağıda internet vergi dairesine giriş için kod bulunmakta

Visual Basic Code
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 "??????????"



Kullanici Avatari

karizmax

Üye
ha....
 2
 8
 15/02/2015
0
 Çorum
 
 Ofis 2013 32 Bit
 09/10/2018,23:02
Güncel



Kullanici Avatari

murat dikme

Aktif Üye
mu.... di....
 40
 40
 163
 24/10/2016
12
 İstanbul
 Özel Güvenlik Amiri
 Ofis 2007
 22/07/2018,22:48
Örnek bir uygulama ekleyebilirmisiniz

Visual Basic Code
iURL = "http://www.accesstr.net/"
Shell "C:\Program Files\Internet Explorer\iexplore.exe http://www.accesstr.net", vbMaximizedFocus


gibi bir kod kullanabilirsiniz



Kullanici Avatari

karizmax

Üye
ha....
 2
 8
 15/02/2015
0
 Çorum
 
 Ofis 2013 32 Bit
 09/10/2018,23:02
(16/06/2018 08:43)murat dikme Adlı Kullanıcıdan Alıntı: Örnek bir uygulama ekleyebilirmisiniz

Visual Basic Code
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.



Kullanici Avatari

karizmax

Üye
ha....
 2
 8
 15/02/2015
0
 Çorum
 
 Ofis 2013 32 Bit
 09/10/2018,23:02
örnek çalışma



Kullanici Avatari

ozanakkaya

Kurucu
Oz.... Ak....
 39
 477
 11.761
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 Dün,22:50
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,

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
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


"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Bir kelimenin değeri ile kullanma oranımı görüntüleme kutsalodun 3 905 08/05/2016, 12:12
Son Yorum: atoz112
Çözüldü Pivot Tabloda Aynı Alan İsmini İki Yerde Kullanma Conqueror20 2 1.556 05/09/2013, 22:07
Son Yorum: ynlmz

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2019 MyBB Group.