如何用vb引用网页元素

Posted 2023-04-19

例如，网上有个flash，我要读取它（从网上）
就像造梦西游小游戏的桌面版一样

Private Sub Command1_Click()
 Dim S As String
 Const Sh As String = "rundll32 url.dll,FileProtocolHandler ""#"""
 S = "http://s8.4399.com/4399swf/upload_swf/ftp11/chenweihong/20130824/cwh3.swf" 'flash地址。
 Shell Replace(Sh, "#", S)
End Sub

'请采纳！谢谢！

 

追问

不用使用其他控件吗？
例如，不用一个框将flash框在里面吗？
我加了command控件，并加上代码，不行啊
后台运行一下就没了

追答

无需控件。

追问

http://tieba.baidu.com/p/2053909466?see_lz=1

追答

你直接将程序复制过去，再在窗口上添加一个Command1按钮控件
Private Sub Command1_Click()
Dim S As String
Const Sh As String = "rundll32 url.dll,FileProtocolHandler ""#"""
S = "http://s8.4399.com/4399swf/upload_swf/ftp5/hanbao/20110624/3/main.swf" 'flash地址。
Shell Replace(Sh, "#", S)
End Sub

另一种方法是:
在部件中找到Shockware Flash控件，放到窗口中，然后把它的Movie属性设为你的Flash动画文件名即可。
造梦西游小游戏Flash地址:
“ http://s8.4399.com/4399swf/upload_swf/ftp5/hanbao/20110624/3/main.swf ”

回答得这么辛苦，您还不采纳吗？谢谢了！

参考技术A 有两种方法：
1、用 webbrowser控件，然后打开这个网上的FLASH。
2、用shell 调用IE来打开它。追问

为什么会这样？？

追答

你的代码呢？你代码不放上来，我不知道你怎么用的啊。

追问

打开代码窗口就这样

追答

你已经采纳的别人的，就不要再问我了

如何用HTML5向网页中插入音频

参考技术A

工具/材料

Sublime Text

01

打开Sublime Text工具，准备好如下图所示的目录结构，目录里面包括要插入的音频文件和一个html文件。

02

打开HTML文件，新建一个空的HTML5文档结构，如下图所示，注意编码一定设置为UTF-8。

03

接下来在body标签中插入audio元素，audio元素里面通过source引入音频文件，如下图所示，注意文件的类型要写对。

04

运行编写好的页面程序，你会在网页中看到如下图所示的音频播放器，我们点击播放按钮就会自动播放音频。

05

当然有很多的老版本的浏览器并不支持audio元素，这个时候我们可以在audio里面添加一个提示，当浏览器不支持audio元素的时候就会显示这个提示。

06

如果想进入播放页面就立即自动播放音频内容，那么需要在audio中添加一个controls属性，如下图所示。

07

最后，我列举了一下当前主流浏览器对HTML5里面audio元素的支持情况，大家可以做一下参考。