مشکل در باز کردن سایت با webbrowser

[mostafa_bahar]

دوستان و اساتید محترم
می خواهم سایتی زیر رو با webbrowser باز کنم ولی متاسفانه باز نمی شه
و جالب اینکه سایت با اینترنت اکسپلورر 10 و فایرفاکس و گوگل کروم باز میشه
البته با اینترنت اکسپلورر 7و8 باز نمی شه
1-آیا میشه ورژن وب بروزر را بالا برد چون شنیدم از ورژن 7 استفاده می کنه؟
2-آیا کامپوننت گوگل کروم موجود هست من کامپوننت موزیلا رو دارم اونم باز نمی کنه؟
لطفا راهنمایی کنید ممنون


td.ihio.gov.ir

[meys34]

سلام

قبلا این سوال مطرح شده بود ولی جوابشو نمیدونستم تا اینکه شما سوال پرسیدید و دوباره سرچ کردم و یافتم یافتم یافتم....


با تغییر در رجیستری و ثبت اسم برنامه، میشه Compatibility اکسپلورر رو تغییر داد...


HKCU\SOFTWARE\Microsoft\Internet Explorer\Main\FeatureControl\ FEATURE_BROWSER_EMULATION

جالبه که میشه همین کار رو برای خود VB6.exe هم انجام داد...



اینجا توضیحاتش هست و خیلی حالت های دیگه هم داره:
https://msdn.microsoft.com/en-us/library/ee330730(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 به معنای آخین ورژن نیست...

[mostafa_bahar]

آقا یعنی دمت گرم نوکرتم بخدا نمی دونی 1 هفته خواب نداشتم ممنون ممنون ممنون ..........
فقط یه سوال
اینترنت اکسپلورر 10 روی ویندوز xp نصب میشه؟