Set Ie = CreateObject("InternetExplorer.Application")
Ie.Navigate( "about:blank" )

Ie.document.getElementsByTagName("BODY")(0).innerHTML = "<INPUT id=FilePath type=file>"
Ie.document.getElementById("FilePath").click
if ie.document.getElementById("FilePath").value = "" then
    WScript.Echo "ファイルは選択されませんでした"
    WScript.Quit
end if

WScript.Echo ie.document.getElementById("FilePath").value

Ie.Quit
Set Ie = Nothing

' 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.megaforum.com):", "URL Girişi", "https://www.megaforum.com")

' 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ı."