大家好 我是 shadowplayer QQ：454827094 今天给大家带来的教程

是VB简单编写自己的网络电视小程序。

教程开始之前先来推荐下一个不错的学习网站 www.3800hk.com，在这

里可以找到你想要的所有教程。

好了，教程开始，程序比较简单，大家看下就知道了，主要是给菜鸟朋

友们试试手，老鸟就飘过吧。

先打开VB环境，新建工程，主要就是要用到一个部件 WindowsMediaPlayer，

这个东西我想大家都不陌生吧，剩下的事就是加几个网络电视直播地址了，我就

在菜单上添加几个试试，我们先给WindowsMediaPlayer控件改个名字吧，就改成

WMP1吧。好了，再添加一句代码 wmp1.URL ="网络电视地址" 。我在后面给

大家提供几个地址，别的大家自己去网上找找。好了就添加这两个吧。

电视台添加好了，我们在来给这个WMP添加一个全屏播放的功能，一般的播放

器我们都能双击全屏播放，我们就来添加这个代码，我们找到DoubleClick事件
If WMP1.fullScreen = False Then
WMP1.fullScreen = True
ElseIf WMP1.fullScreen = True Then
WMP1.fullScreen = False
End If
意思就是先判断现在是不是全屏，是就变成窗体，不是就变成全屏。

好了代码就这么多很简单，我们也可以添加一些装饰呀什么的上去，我在这里给

大家演示一个添加关于信息上去就这样吧，大家自己做了，好了，别的装饰大家自己
Load Form2
form2.Show

收集资料了，我就不演示了。程序做好了我们来测试一下 有点卡。。。。。。OK

程序有效，大家不妨试试。全屏也可以。

我自己是学破解和网络工程，准备考网络工程师的，希望大家加QQ交流。

最后希望黑鹰能给我一个邀请码，谢谢！ E-Mail:3291079@163.com
QQ:454827094

好了，教程结束，再见！

中央电视1台
mms://live.cctv.com/live11
中央电视2台
mms://live.cctv.com/live12
中央电视3台
mms://live.cctv.com/live13
中央电视4台
mms://live.cctv.com/live14
中央电视5台
mms://live.cctv.com/live15
中央电视6台
mms://tv.lzu.edu.cn/cctv6
中央电视7台
mms://live.cctv.com/live17
中央电视8台
mms://tv.lzu.edu.cn/cctv8
中央电视9台
mms://live.cctv.com/live19
中央少儿频道
mms://live.cctv.com/livekids
中央西法频道
mms://live.cctv.com/livexifa
中央新闻频道
mms://live.cctv.com/livenews
中央音乐频道
mms://live.cctv.com/livemusic

• [VIP专用软件 - 电信高速下载][非高级会员不可下载]
• [VIP专用软件 - 双线高速下载][非高级会员不可下载]

• ☉ Delphi编程教学系列（新世纪网安基地VIP教程）
• ☉ virtualpc中的linux如何连上Internet
• ☉ ProE 2.0安装视频
• ☉ 学会利用系统自身资源
• ☉ JSP开发之一Servlet基础
• ☉ 内网架设DNS服务器详解
• ☉ 心动吧桌面图之serv-U反弹
• ☉ 小解TTL的妙用
• ☉ 免费的网络电脑
• ☉ 略施小计吓跑不怀好意的菜鸟

• ☉ 由于私服程序的特殊性，它非常容易被杀毒误报，所以自2011年1月起本站所有软件都不在做杀毒查杀，请下载后自行检测查杀！
• ☉ 为了达到最快的下载速度，推荐使用 迅雷5 下载本站软件。
• ☉ 本站软件均为WinRAR3.7版本压缩，所以请一定升级到WinRAR3.7或最新版才能正常解压本站提供的软件!
• ☉ 如果您发现下载链接错误，或内容与分类不匹配，请点击报告错误。正确报错10个我们将送您VIP会员！
• ☉ 如发现本站软件需要解压密码，均为：www.9876543210sf.com