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

Derecelendirme: 0/5 - 0 oy
karizmax

karizmax

Üye
70385
ha....
 3
 9
 15/02/2015
0
 Çorum
 
 Ofis 2013 32 Bit
 23/03/2019,16:16
Çö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 "??????????"



karizmax

karizmax

Üye
70385
ha....
 3
 9
 15/02/2015
0
 Çorum
 
 Ofis 2013 32 Bit
 23/03/2019,16:16
Güncel



...........
murat dikme

murat dikme

Altın Üye
85129
mu.... di....
 41
 41
 164
 24/10/2016
12
 İstanbul
 Özel Güvenlik Amiri
 Ofis 2007
 24/03/2019,22:31
Ö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



karizmax

karizmax

Üye
70385
ha....
 3
 9
 15/02/2015
0
 Çorum
 
 Ofis 2013 32 Bit
 23/03/2019,16:16
(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.



...........
karizmax

karizmax

Üye
70385
ha....
 3
 9
 15/02/2015
0
 Çorum
 
 Ofis 2013 32 Bit
 23/03/2019,16:16
örnek çalışma



ozanakkaya

ozanakkaya

Kurucu
1
Oz.... Ak....
 39
 483
 12.100
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 Bugün,20:08
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 997 08/05/2016, 12:12
Son Yorum: atoz112
Çözüldü Pivot Tabloda Aynı Alan İsmini İki Yerde Kullanma Conqueror20 2 1.625 05/09/2013, 22:07
Son Yorum: ynlmz

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