webbrowser打开部分网页跟IE不一样？ - VB6论坛

第 21 楼

得分:0

回复 20楼 lianyicq

换了后，还是提示错误哦

第 22 楼

得分:0

回复 21楼 klsw

能否新建一工程把那几条代码单独运行一下,看看问题到底在哪儿.我这儿是没问题的.

大开眼界

第 23 楼

得分:0

回复 22楼 lianyicq

你的换成REG_DWORD后，没问题了？

图片附件: 游客没有浏览图片的权限，请登录或注册

[ 本帖最后由 klsw 于 2014-12-30 15:24 编辑 ]

第 24 楼

得分:0

以下是引用lianyicq在2014-12-30 14:51:59的发言：

换为REG_DWORD就出现你所说的类型不匹配.就是codereg的数据类型问题.如果改为codereg=@H270F,就可换为REG_DWORD,但运行后001.exe的值为270f

注册表中0x表示后跟16进制数.

大开眼界

第 25 楼

得分:0

回复 23楼 klsw

仔细看看回复,出现的问题就是codereg的数据类型和reg_dword不匹配
"H270f",没用&?
如果要用reg_dword,则codereg=&H270f

大开眼界

第 26 楼

得分:0

回复 25楼 lianyicq

能重新发下源码吗

第 27 楼

得分:0

回复 26楼 klsw

程序代码：

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

大开眼界

第 28 楼

得分:0

回复 27楼 lianyicq

注册表一样，但是还是没效果？
用这个生成的前面我提到的那个网页的EXE文件还是无法播放，
但用手动导入注册表的方式就行，奇怪了

[ 本帖最后由 klsw 于 2014-12-30 15:43 编辑 ]

第 29 楼

得分:0

可以了，里面代码有点多，调整了下顺序，OK了

第 30 楼

得分:0

以下是引用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

感谢了！新年快乐！完美结题！