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

编程论坛 → 开发语言 → 『 VB6论坛』 → webbrowser打开部分网页跟IE不一样？

标题：webbrowser打开部分网页跟IE不一样？

只看楼主

klsw

等　级：新手上路
帖　子：24
专家分：0
注　册：2010-10-6

第 21 楼

得分:0

回复 20楼 lianyicq

换了后，还是提示错误哦

2014-12-30 15:12

lianyicq

等　级：贵宾
威　望：26
帖　子：735
专家分：3478
注　册：2013-1-26

第 22 楼

得分:0

回复 21楼 klsw

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

大开眼界

2014-12-30 15:17

klsw

等　级：新手上路
帖　子：24
专家分：0
注　册：2010-10-6

第 23 楼

得分:0

回复 22楼 lianyicq

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

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

2014-12-30 15:19

lianyicq

等　级：贵宾
威　望：26
帖　子：735
专家分：3478
注　册：2013-1-26

第 24 楼

得分:0

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

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

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

大开眼界

2014-12-30 15:25

lianyicq

等　级：贵宾
威　望：26
帖　子：735
专家分：3478
注　册：2013-1-26

第 25 楼

得分:0

回复 23楼 klsw

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

大开眼界

2014-12-30 15:27

klsw

等　级：新手上路
帖　子：24
专家分：0
注　册：2010-10-6

第 26 楼

得分:0

回复 25楼 lianyicq

能重新发下源码吗

2014-12-30 15:31

lianyicq

等　级：贵宾
威　望：26
帖　子：735
专家分：3478
注　册：2013-1-26

第 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

大开眼界

2014-12-30 15:33

klsw

等　级：新手上路
帖　子：24
专家分：0
注　册：2010-10-6

第 28 楼

得分:0

回复 27楼 lianyicq

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

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

2014-12-30 15:42

klsw

等　级：新手上路
帖　子：24
专家分：0
注　册：2010-10-6

第 29 楼

得分:0

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

2014-12-30 15:54

klsw

等　级：新手上路
帖　子：24
专家分：0
注　册：2010-10-6

第 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

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

2014-12-30 15:54

参与讨论请移步原网站贴子：https://bbs.bccn.net/thread-440346-1-1.html