Internet Explorer ile URL Açma Scripti - Eski Ama Altın Değerinde!

Mesaj gönderen **TRWE_2012** » 20 Kas 2024 12:14

Merhaba YazılımAdası Sakinleri,Ziyaretçileri.....

Bugün sizlere, nostaljik bir yolculuğa çıkartacak bir Visual Basic Script (VBS) kodu paylaşmak istiyorum. Bu kod, Internet Explorer kullanarak bir web sayfasını açmanızı sağlıyor. Evet, doğru duydunuz! Hala Internet Explorer kullanıyor olabilirsiniz, belki de eski dostunuzun hatıralarını yaşatmak istiyorsunuz.

Önce kodun içeriğini verelim değil mi? Yoksa içinde böcük olduğunuz zannedersiniz de beni hafazanAllah...!!! yuhlamaya başlarsınız....(espiri)

İnternet Explorer Açma v1.1.vbs

Kod: Tümünü seç


' Hata iletilerini gizle
On Error Resume Next

' Kullanıcıdan URL girmesini iste
Dim url
url = InputBox("Lütfen açmak istediğiniz web sayfasının URL'sini girin (örneğin: https://www.yazilimadasi.com):", "URL Girişi", "https://www.yazilimadasi.com")

' Eğer kullanıcı "İptal" butonuna basarsa, programı sonlandır
If url = "" Then
    WScript.Quit
End If

' URL'yi kontrol et ve https:// ekle
If Left(url, 8) <> "https://" Then
    If Left(url, 7) <> "http://" Then
        url = "https://" & url ' Varsayılan olarak https:// ekle
    End If
End If

' Internet Explorer uygulamasını oluştur
Dim Ie
Set Ie = CreateObject("InternetExplorer.Application")

' Internet Explorer'ı görünür yap
Ie.Visible = True

' Girilen URL'ye git
Ie.Navigate url

' Kullanıcı Internet Explorer'ı kapattığında döngüden çık
Do While True
    WScript.Sleep 100 ' 100 ms bekle
    If Not Ie.Visible Then Exit Do ' Eğer Internet Explorer kapandıysa döngüden çık
Loop

' Nesneyi temizle
Set Ie = Nothing

' Arka planda çalışan Internet Explorer ve ielowutil işlemlerini kontrol et ve kapat
Dim objWMIService, colProcess, objProcess
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colProcess = objWMIService.ExecQuery("Select * from Win32_Process Where Name = 'iexplore.exe' OR Name = 'ielowutil.exe'")

' Eğer colProcess boş değilse, işlemleri sonlandır
If Not colProcess Is Nothing Then
    For Each objProcess In colProcess
        objProcess.Terminate() ' Internet Explorer veya ielowutil işlemini sonlandır
    Next
End If

' Nesneleri temizle
Set colProcess = Nothing
Set objWMIService = Nothing

' Internet Explorer kapatıldığında mesaj göster
MsgBox "Internet Explorer tamamen kapatıldı."

Hadi gelin, bu kodun ne yaptığını birlikte inceleyelim!

Kodun Özet Özet Bölümsel Açıklaması :

Kod: Tümünü seç

On Error Resume Next

İlk satır, hata iletilerini gizliyor. Yani, bir şeyler ters giderse, "Hata! Hata!" diye bağırmak yerine, sessizce devam ediyor. Bu, kodumuzu daha "cool" gösteriyor, değil mi?

Kod: Tümünü seç

Dim url
url = InputBox("Lütfen açmak istediğiniz web sayfasının URL'sini girin (örneğin: https://www.yazilimadasi.com):", "URL Girişi", "https://www.yazilimadasi.com")

Burada kullanıcıdan bir URL girmesini istiyoruz. Eğer kullanıcı "İptal" butonuna basarsa, program hemen sonlanıyor. Yani, "Hayır, ben bu sayfayı açmak istemiyorum!" diyenleri saygıyla karşılıyoruz.

Kod: Tümünü seç

If Left(url, 8) <> "https://" Then
    If Left(url, 7) <> "http://" Then
        url = "https://" & url ' Varsayılan olarak https:// ekle
    End If
End If

Kullanıcının girdiği URL'yi kontrol ediyoruz. Eğer "http://" veya "https://" ile başlamıyorsa, otomatik olarak "https://" ekliyoruz. Kalite kontrol her zaman önceliklidir, değil mi?

Kod: Tümünü seç

Dim Ie
Set Ie = CreateObject("InternetExplorer.Application")
Ie.Visible = True

Burada Internet Explorer uygulamasını oluşturuyoruz ve görünür hale getiriyoruz. Artık eski dostumuzun penceresi açıldı!

Kod: Tümünü seç

Ie.Navigate url

Kullanıcının girdiği URL'ye gidiyoruz. Artık o sayfayı açmak için sabırsızlanıyoruz!

Kod: Tümünü seç

Do While True
    WScript.Sleep 100 ' 100 ms bekle
    If Not Ie.Visible Then Exit Do ' Eğer Internet Explorer kapandıysa döngüden çık
Loop

Burada bir döngü oluşturuyoruz. Internet Explorer açık kaldığı sürece bekliyoruz. Yani, kullanıcı sayfayı kapatana kadar burada bekleyeceğiz.

Kod: Tümünü seç

Set Ie = Nothing

Internet Explorer kapandığında, nesneyi temizliyoruz. Temizlik her zaman önemlidir!

Kod: Tümünü seç

Dim objWMIService, colProcess, objProcess
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colProcess = objWMIService.ExecQuery("Select * from Win32_Process Where Name = 'iexplore.exe' OR Name = 'ielowutil.exe'")

Burada arka planda çalışan Internet Explorer ve ielowutil işlemlerini kontrol ediyoruz. Eğer hala çalışıyorsa, onları kapatıyoruz. "Artık gitme zamanı!" diyoruz.

Kod: Tümünü seç

If Not colProcess Is Nothing Then
    For Each objProcess In colProcess
        objProcess.Terminate() ' Internet Explorer veya ielowutil işlemini sonlandır
    Next
End If

Eğer hala bir işlem varsa, onları da sonlandırıyoruz. "Hadi, artık yeter!.Yürü git başımıza bela olma...!!" diyoruz.

Kod: Tümünü seç

MsgBox "Internet Explorer tamamen kapatıldı."

Son olarak, Internet Explorer kapandığında bir mesaj kutusu gösteriyoruz. "Tamam, işimiz bitti! ve patlasın havai fişekler çalsın davullar" diyoruz.

İşte bu kadar! Eski dostumuz Internet Explorer ile bir web sayfasını açmak için basit ama etkili bir script. Belki de bu kodu kullanarak nostaljik bir yolculuğa çıkarsınız. Unutmayın, eski dostlar her zaman değerlidir!

Hadi, kodu deneyin ve eski günleri yad edin!

Şimdi de "EKRAN GÖRÜNTÜLERİ" ...

Resim

Sistem : Windows11 Yapı 22H2 Home x64
Donanım : Lenovo İdepad Gaming 3

NOT (İsteğ'e bağlı kod ekleme)

Eğer program yönetici olarak çalıştırıldığında , "Sistemin Ağ DNS önbelleğinin" temizlenip,daha sonra İE'den web sayfası açmak isterseniz.

On Error Resume Next

' Kullanıcıdan URL girmesini iste

arasında bir boşluk açın (uzay boşluğu değil sakın... normal karakter boşluğu) şunu ekleyiniz kodunuza

' DNS önbelleğini temizle
Dim shell
Set shell = CreateObject("WScript.Shell")
shell.Run "cmd.exe /c ipconfig /flushdns", 0, True
Set shell = Nothing

Yukarıdaki ufak kod parçasının mini açıklaması :

1.DNS Ön Bellek Temizleme:

WScript.Shell nesnesi kullanılarak cmd.exe üzerinden ipconfig /flushdns komutu çalıştırılıyor. Bu, DNS önbelleğini temizliyor.

2.Görünmez Komut Penceresi:

0 (sıfır o sakın onu O harfi ile karıştırmayın...!!) parametresi ile komut penceresinin görünmez olmasını sağlıyoruz, böylece kullanıcıya rahatsızlık vermiyor.

3.Kodun Diğer Kısımları:

Kodun geri kalanı, daha önceki gibi çalışmaya devam ediyor.

Böylece ne yapmış olduk ...

"Script çalıştığında önce DNS önbelleği temizlenecek, ardından kullanıcıdan URL girmesi istenecek." hale getirmiş olduk

yani kodun son hali şöyle yakışıklı ve alımlı görünmeli, beni al, beni al , beni çalıştır beni çalıştır demeli, kullanıcıyı baştan çıkartmalı...

Kod: Tümünü seç

On Error Resume Next

' DNS önbelleğini temizle
Dim shell
Set shell = CreateObject("WScript.Shell")
shell.Run "cmd.exe /c ipconfig /flushdns", 0, True
Set shell = Nothing

' Kullanıcıdan URL girmesini iste
Dim url
url = InputBox("Lütfen açmak istediğiniz web sayfasının URL'sini girin (örneğin: https://www.yazilimadasi.com):", "URL Girişi", "https://www.yazilimadasi.com")

' Eğer kullanıcı "İptal" butonuna basarsa, programı sonlandır
If url = "" Then
    WScript.Quit
End If

' URL'yi kontrol et ve https:// ekle
If Left(url, 8) <> "https://" Then
    If Left(url, 7) <> "http://" Then
        url = "https://" & url ' Varsayılan olarak https:// ekle
    End If
End If

' Internet Explorer uygulamasını oluştur
Dim Ie
Set Ie = CreateObject("InternetExplorer.Application")

' Internet Explorer'ı görünür yap
Ie.Visible = True

' Girilen URL'ye git
Ie.Navigate url

' Kullanıcı Internet Explorer'ı kapattığında döngüden çık
Do While True
    WScript.Sleep 100 ' 100 ms bekle
    If Not Ie.Visible Then Exit Do ' Eğer Internet Explorer kapandıysa döngüden çık
Loop

' Nesneyi temizle
Set Ie = Nothing

' Arka planda çalışan Internet Explorer ve ielowutil işlemlerini kontrol et ve kapat
Dim objWMIService, colProcess, objProcess
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colProcess = objWMIService.ExecQuery("Select * from Win32_Process Where Name = 'iexplore.exe' OR Name = 'ielowutil.exe'")

' Eğer colProcess boş değilse, işlemleri sonlandır
If Not colProcess Is Nothing Then
    For Each objProcess In colProcess
        objProcess.Terminate() ' Internet Explorer veya ielowutil işlemini sonlandır
    Next
End If

' Nesneleri temizle
Set colProcess = Nothing
Set objWMIService = Nothing

' Internet Explorer kapatıldığında mesaj göster
MsgBox "Internet Explorer tamamen kapatıldı."

Güle güle kullanın, kullandıkça bu forum'u ve bu garip kulu da hatırlayın emi...

Allah'a (c.c) emanet olunuz...

TRWE_2012
Alaydan Yetişme PC Kullanıcısı