سلام
قبلا این سوال مطرح شده بود ولی جوابشو نمیدونستم تا اینکه شما سوال پرسیدید و دوباره سرچ کردم و یافتم یافتم یافتم....
با تغییر در رجیستری و ثبت اسم برنامه، میشه Compatibility اکسپلورر رو تغییر داد...
HKCU\SOFTWARE\Microsoft\Internet Explorer\Main\FeatureControl\ FEATURE_BROWSER_EMULATION
جالبه که میشه همین کار رو برای خود VB6.exe هم انجام داد...
اینجا توضیحاتش هست و خیلی حالت های دیگه هم داره:
https://msdn.microsoft.com/en-us/lib...(v=vs.85).aspx
که البته برای ویندوز 64 بیتی آدرسش میشه:
HKCU\SOFTWARE\Wow6432Node\Microsoft\Internet Explorer\Main\FeatureControl\ FEATURE_BROWSER_EMULATION
Private Sub Form_Initialize()
Dim objWsc As Object
Set objWsc = CreateObject("WScript.Shell")
objWsc.RegWrite "HKCU\SOFTWARE" & IIf(Environ$("PROCESSOR_ARCHITEW6432") = "", "", "\Wow6432Node") & _
"\Microsoft\Internet Explorer\Main\FeatureControl\" & "FEATURE_BROWSER_EMULATION\" & App.EXEName & ".exe", 11000, "REG_DWORD"
Set objWsc = Nothing
End Sub
Private Sub Form_Load()
WebBrowse1.Silent = True
WebBrowser1.Navigate "td.ihio.gov.ir"
End Sub
با این کد به طور خودکار به جدیدترین نسخه اجرا میشه ولی اگر بخوایید نسخه های دیگه IE رو هم امتحان کنید عدد مربوط رو ضرب در 1000 میکنید:
مثلا IE9 میشه:
objWsc.RegWrite "HKCU\SOFTWARE" & IIf(Environ$("PROCESSOR_ARCHITEW6432") = "", "", "\Wow6432Node") & "\Microsoft\Internet Explorer\Main\FeatureControl\" & "FEATURE_BROWSER_EMULATION\" & App.EXEName & ".exe", 9000, "REG_DWORD"
تصحیح: توی ویندوز 10 حتما باید شماره ورژن مورد نظر رو بنویسید مثلا 11000 و دیگه عدد 0 به معنای آخین ورژن نیست...
قوانین ایجاد تاپیک در تالار
پاسخ با نقل قول