• Web sitemizin içeriğine ve tüm hizmetlerimize erişim sağlamak için Web sitemize kayıt olmalı ya da giriş yapmalısınız. Web sitemize üye olmak tamamen ücretsizdir.

Olay Olay...!!! Artık Window11 x64 Sisteminde Doğrudan IE Çalıştırabiliyorum...!!!

TRWE_2012

لِيَغْفِرَ لَكَ اللّٰهُ مَا تَقَدَّمَ مِنْ ذَنْبِك
Moderatör
Konum
BERTUNA
Forum Yaşı
6 Yıl
Mesajlar
5,457
Tepkime puanı
17,030
Merhabalar

Bugün, bir kodlamayı kafaya taktım.Taktım ama nasıl yapacağımı aramaya başladım net'te...

Amaç : Windows 11 Yapı 22H2 x64 varolan ama aptal hintlilerin saçmalıklarından dolayı kullandırtılmayan İnternet Explorer Web tarayıcısını açmak ve URL girmek...

Bu amaçla ;

https://web.archive.org/web/20240000000000*/VBScript web sayfasında kapanmış .VBS web sayfalarını incelerken (umutsuzca) bu sayfa'da bir kod dikkatimi çekti...


Bu web sayfasında ; "InternetExplorer.Application" isimli yere tıklayınca;

Kod:
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

Bu kod daki bazı ifadeler "Japonca" idi ve bunları "Google Translate"'den tek çevirdim..

Burada benim dikkatimi şu satır çekti ...

Kod:
Set Ie = CreateObject("InternetExplorer.Application")

Sonra aldım bu kodu bu hale getirdim...

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

Şimdi bu kodu basit bir şekilde açıklayalım...

Internet Explorer ile Web Sayfası Açma VBScript Kodu-Kod Tasarımı

Kodun Özellikleri:

Kullanıcı Girişi:

Kullanıcıdan açmak istediği web sayfasının URL'sini girmesini ister.

URL Kontrolü:

Girilen URL'nin başında http:// veya https:// olup olmadığını kontrol eder. Eğer yoksa, varsayılan olarak https:// ekler.

Internet Explorer:

Internet Explorer uygulamasını başlatır ve belirtilen URL'ye yönlendirir.

Kapatma Kontrolü:

Kullanıcı Internet Explorer'ı kapattığında, arka planda çalışan işlemleri temizler.

Mesaj Kutusu:

Internet Explorer kapandığında kullanıcıya "Internet Explorer tamamen kapatıldı." mesajı gösterir.

Bu basit VBScript ile web sayfalarınızı hızlıca açabilir ve Internet Explorer'ı etkili bir şekilde yönetebilirsiniz.

EKRAN GÖRÜNTÜLERİ :

Önce :

k2nF2mh.jpeg


Sonra :

Betiği yönetici olarak çalıştırdığım'da;

6GKjj9h.jpeg


JwEKZPw.jpeg


r7cMHjN.jpeg


SXSaRnP.jpeg


Güle güle kullanın...

Şükür Allah'a (c.c) Microsoft'un bir kıslaması da aşıldı Windows11 Yapı 22H2 'de....

Artık İE kullanmakta özgürüz....

TRWE_2012
Alaydan Yetişme PC Kullanıcısı
 
Geri
Üst