以下是引用lianyicq在2014-12-30 15:33:37的发言:
Private Sub Form_Load()
Dim wss As Object
Set wss = CreateObject("WScript.Shell")
codereg = &H270F
wss.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Internet Explorer\MAIN\FeatureControl\FEATURE_BROWSER_EMULATION\001.exe", codereg, "REG_DWORD"
End Sub
感谢了!新年快乐!完美结题!