VbScript ile İnternet Expoler sayfası (PopUp) açtırma

Merhaba arkadaslar,

Bugün vb script ile internet explorer sayfasını nasıl açacağımız konusuna değineceğim. Aslında birçok dilde bu iş java script ile yapılıyor. Fakat vbscript te olaylar biraz farklı. İsterseniz konuyu uzatmadan direkt olarak koda girelim :)

---------------------------------------------------
---------------------------------------------------

set ie = createobject("internetexplorer.application") 'Öncelikle gerekli objemizi tanımlayalım
ie.width = 800 'Sayfanın genişliği
ie.height = 600 'Sayfanın Yüksekliği
ie.navigate "www.google.com.tr" 'Yönleneceği sayfa
ie.visible = true


Eğer bunu sub olarak yazıp heryerden çağırmak isterseniz;
---------------------------------------------------------------------

sub ieOpenPopUpPage(url_1)
set ie = createobject("internetexplorer.application")
ie.width = 800
ie.height = 600
ie.navigate url_1
ie.visible = true
end sub

Çağrılması:
---------------
dim url
url="www.google.com.tr"

call ieOpenPopUpPage(url)



---------------------------------------------------
---------------------------------------------------


Evet arkadaslar. Kod bundan ibaret gördüğünüz gibi olay son derece basit. :) Bir başka yazıda görüşmek üzere.