Bilindiği gibi WebBrowser icinde calışan Internet Explorer surumu varsayılan olarak 7 dır.

www.whatsmyuseragent.com web sitesinden kullanılan WebBrowser’ ın surumunu gorebilirsiniz.

Size şu şekilde bir kod verecek:

Kod:
Mozilla/5.0 (compatible; MSIE 9.0; Windows NT 6.1; Trident/5.0)
koyu yazılan yer Internet Explorer surumunu gosteriyor. Bu şekilde surumun değişip değişmediğini kontrol edebilirsiniz.


WebBrowser surumunu değiştirme işlemi Kayıt Defteri (registry) uzerinden yapılır.

Kod:
HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULA TION
bu anahtar’ın icine yeni bir DWORD (32 bit) değeri oluşturuyoruz.

Bu değer (Ad= Programın Exe Adı, Değer= Surum) şeklindedir.

Orneğin adı “yunus” olan bir uygulamada IE 9 kullanmak icin (Ad=yunus.exe, Değer=9999) olmalıdır.

Şimdi gelelim kodumuza, bunu elle yapmayıp programa yaptıracağız.

Kod:
Imports Microsoft.Win32 ' ... Sub SetBrowser() Dim Key As String = "Software\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULA TION" Dim AppName As String = System.Diagnostics.Process.GetCurrentProcess().Pro cessName + ".exe" Dim Mode As Integer = 9999 Dim RKey As RegistryKey = Registry.CurrentUser.CreateSubKey(Key) If Not RKey.GetValue(AppName, False) Then RKey.SetValue(AppName, Mode, RegistryValueKind.DWord) System.Threading.Thread.Sleep(1000) End If RKey.Close() End Sub
Bu kodu InitializeComponent() fonksiyonundan once kullanmanızı tavsiye ederim.

Kod:
Sub New() SetBrowser() InitializeComponent() End Sub

şeklinde kullanmalısınız.

[ALINTIDIR]
__________________