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

#2

klsw2014-12-26 21:12

帮帮忙吧

#3

xzlxzlxzl2014-12-27 20:12

我的ie不能播出，但360浏览器可播出。好像是老版ie不支持html5造成的。

#4

klsw2014-12-28 08:56

回复 3楼 xzlxzlxzl

有解决方法吗

#5

xzlxzlxzl2014-12-28 13:15

办法当然有，直接在webbrowser里发送语音地址，即可播音（mjggs001-mjggs011）。
http://wap.
http://wap.
http://wap.
.
.
.
http://wap.

#6

klsw2014-12-28 15:19

回复 5楼 xzlxzlxzl

老大，具体在WebBrowser1里怎么写这个代码呢？
求源代码。

#7

klsw2014-12-28 15:35

以下是引用xzlxzlxzl在2014-12-27 20:12:02的发言：

我的ie不能播出，但360浏览器可播出。好像是老版ie不支持html5造成的。

我的是IE9也能播放的。VB6不支持IE9等高版本吗？如果能调用，怎么调用，有源码吗

[ 本帖最后由 klsw 于 2014-12-29 11:27 编辑 ]

#8

lianyicq2014-12-29 11:35

没有测试过,看看http://能不能解决你的问题?

#9

klsw2014-12-30 09:50

回复 8楼 lianyicq

解决了，感谢！

#10

lianyicq2014-12-30 10:07

回复 9楼 klsw

:) 借花献佛

#11

klsw2014-12-30 13:28

用手动导入注册表的方式解决了，如何将该REG文件直接写入到VB6中呢？
也就是说，如何在VB6中添加某个程序的注册表？

#12

lianyicq2014-12-30 13:41

回复 11楼 klsw

vb6.0本来就可以操作注册表，搜一下getsetting、savesetting的用法。相关的还有getallsettings 和deletesetting的用法。
实在不行就用API吧

[ 本帖最后由 lianyicq 于 2014-12-30 13:48 编辑 ]

#13

klsw2014-12-30 13:43

回复 12楼 lianyicq

不是很懂，最好能给个实例源码。
比如就这个：
路径：HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Internet Explorer\MAIN\FeatureControl\FEATURE_BROWSER_EMULATION

程序名: 001.exe

键值：0x270F

那如何用VB添加进去呢？

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

#14

lianyicq2014-12-30 13:56

回复 13楼 klsw

还是给你个链接,用wscript.shell对象的方法,可能比较容易
http://blog.

Dim wss As Object, msw As Object
    Set wss = CreateObject("WScript.Shell")

    codereg = "0x270F"

   wss.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Internet Explorer\MAIN\FeatureControl\FEATURE_BROWSER_EMULATION\001.exe", codereg, "REG_SZ"

[ 本帖最后由 lianyicq 于 2014-12-30 14:02 编辑 ]

#15

klsw2014-12-30 14:22

回复 14楼 lianyicq

感谢回复，不过，是REG_DWORD值，不是REG_SZ。
换成REG_DWORD后，提示“类型不匹配”

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

#16

lianyicq2014-12-30 14:28

回复 15楼 klsw

我举的例没定义codereg数据类型,实际赋值是字符串型,和reg_sz,匹配.

#17

klsw2014-12-30 14:33

回复 16楼 lianyicq

照你的引用，实际看了也没添加任何键值的，不知何故？

#18

lianyicq2014-12-30 14:40

回复 17楼 klsw

以下图片是举例代码运行之前和运行之后的注册表图片[attach]78573[/attach][attach]78574[/attach]看看system32下有没有wshom.ocx

只有本站会员才能查看附件，请登录

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

#19

klsw2014-12-30 14:47

回复 18楼 lianyicq

换成"REG_DWORD"能成吗？不换也不成呀，系统也有WSHOM.OCX

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

#20

lianyicq2014-12-30 14:51

回复 19楼 klsw

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

#21

klsw2014-12-30 15:12

回复 20楼 lianyicq

换了后，还是提示错误哦

#22

lianyicq2014-12-30 15:17

回复 21楼 klsw

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

#23

klsw2014-12-30 15:19

回复 22楼 lianyicq

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

只有本站会员才能查看附件，请登录

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

#24

lianyicq2014-12-30 15:25

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

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

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

#25

lianyicq2014-12-30 15:27

回复 23楼 klsw

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

#26

klsw2014-12-30 15:31

回复 25楼 lianyicq

能重新发下源码吗

#27

lianyicq2014-12-30 15:33

回复 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

klsw2014-12-30 15:42

回复 27楼 lianyicq

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

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

#29

klsw2014-12-30 15:54

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

#30

klsw2014-12-30 15:54

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

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

#31

lianyicq2014-12-30 16:08

回复 30楼 klsw

表示祝贺!
其实没有完,其它机器不一定支持WScript.Shell，好好研究一下。

#32

klsw2014-12-30 16:50

哦，好的

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