地方网

搜索

[黑客动画] VB网络电视编写

[复制链接]
admin 发表于 2008-8-19 13:34:33 | 显示全部楼层 |阅读模式
软件简介:4 H7 m& {) I+ j$ L' A, ?" \
大家好 我是 shadowplayer QQ:454827094 今天给大家带来的教程) a2 B7 ]. z! v3 @- P
是VB简单编写自己的网络电视小程序。8 Q4 U- F0 e% h' H
教程开始之前先来推荐下一个不错的学习网站 www.3800hk.com,在这) T, C" u) x1 a& x' F
里可以找到你想要的所有教程
7 m8 a+ l! t% l$ ?: N% [" X8 H 好了,教程开始,程序比较简单,大家看下就知道了,主要是给菜鸟朋7 i) U3 O- `6 b/ Y, s* ~$ h
友们试试手,老鸟就飘过吧。
( ]# {$ O; Q( {6 p( m$ y 先打开VB环境,新建工程,主要就是要用到一个部件 WindowsMediaPlayer,0 F. p; p& \& }0 I" a8 Y" T
这个东西我想大家都不陌生吧,剩下的事就是加几个网络电视直播地址了,我就: [7 g2 V; h% s7 |( b* d5 k1 R
在菜单上添加几个试试,我们先给WindowsMediaPlayer控件改个名字吧,就改成' d5 S0 E- ?- U6 X% G7 @
WMP1吧。好了,再添加一句代码 wmp1.URL =网络电视地址 。我在后面给% {% I2 E. b: ?% G' {
大家提供几个地址,别的大家自己去网上找找。好了就添加这两个吧。$ X9 \9 v- b& y3 u! A; `
电视台添加好了,我们在来给这个WMP添加一个全屏播放的功能,一般的播放
* K9 Q$ H; {8 b, K7 a; N# E5 C4 L器我们都能双击全屏播放,我们就来添加这个代码,我们找到DoubleClick事件3 o+ l) N& y2 i. Y# {% U
If WMP1.fullScreen = False Then 6 [$ `# z3 U% W1 y, a  K
WMP1.fullScreen = True
% s8 r" J# ~" k# H# x' \6 A( v ElseIf WMP1.fullScreen = True Then
: W/ d' _8 r# D6 U9 p7 ]8 R: f WMP1.fullScreen = False; r7 ?, W+ B. f+ V1 U- d; W
End If
9 m0 I0 a* a0 M0 L9 R$ `意思就是先判断现在是不是全屏,是就变成窗体,不是就变成全屏。
' d6 ~' d$ u6 K2 H% D! `; u0 H9 F 好了代码就这么多很简单,我们也可以添加一些装饰呀什么的上去,我在这里给2 t/ B1 x& ]& M0 B$ S
大家演示一个添加关于信息上去就这样吧,大家自己做了,好了,别的装饰大家自己4 ~# T5 G& s7 M) K! o$ x; L' Z: O
Load Form2
4 V2 J3 j+ D0 Eform2.Show
  ]. p  y( Q) Q1 x. z收集资料了,我就不演示了。程序做好了我们来测试一下 有点卡。。。。。。OK
4 }/ r+ C$ A8 z1 Y程序有效,大家不妨试试。全屏也可以。# o# U: [4 j9 R" w) ~
我自己是学破解和网络工程,准备考网络工程师的,希望大家加QQ交流。
/ }5 H; ~6 }: A* l% n8 ^+ V4 t最后希望黑鹰能给我一个邀请码,谢谢! E-Mail:3291079@163.com3 N7 _. C% Z0 |, C' n. i* j
QQ:454827094
& P. {' F3 a2 z, Q. P1 D5 ~/ v7 J好了,教程结束,再见!
, M3 H+ A6 |8 u0 {6 E中央电视1台
9 C: }1 v" S/ Kmms://live.cctv.com/live115 D9 C: W" d4 N, ~4 x
中央电视2台9 q: s1 }0 Y- n, l
mms://live.cctv.com/live12/ p8 U7 b9 G2 i# |0 v. ]# \0 g2 ?$ v
中央电视3台" H& F) P+ X! p) m# Y- g
mms://live.cctv.com/live13
5 y3 P! S, H+ j- n" R- @中央电视4台
9 |+ V  m, C/ a# L* j; zmms://live.cctv.com/live14
0 d& ~1 Q/ s- k+ u/ f中央电视5台7 n* R8 r3 H5 p4 C; D: u: c
mms://live.cctv.com/live15
+ O3 r6 F- l/ E1 y* B) G; r中央电视6台
3 i  _  L- v/ y9 X  r* k+ Bmms://tv.lzu.edu.cn/cctv6! N7 ~: L4 p! U/ z
中央电视7台- X% b3 o3 n# N5 G
mms://live.cctv.com/live17
( x1 c. {6 ?$ \( a4 f中央电视8台
: U( h* f, v4 a% e2 X3 k% O8 Dmms://tv.lzu.edu.cn/cctv8
* [* X2 O6 V  T& Z中央电视9台
1 K- D! S, z3 @: T$ h9 ^& J0 A1 G" dmms://live.cctv.com/live19' h; z* h  D  ~: t- i& d: H2 ?
中央少儿频道# @5 P9 J  K$ n$ C8 V9 h
mms://live.cctv.com/livekids
) G* J" b! P" I" f5 _. f) Z中央西法频道5 E1 Z9 m; U" x# c
mms://live.cctv.com/livexifa
+ i  [: Q( |) F6 O1 m, b中央新闻频道9 R8 B* B5 K0 k  b
mms://live.cctv.com/livenews& p' e5 }# g" O: S
中央音乐频道
& J/ P9 s/ G  |/ x- `& Rmms://live.cctv.com/livemusic, h  a0 z7 C' H$ T" t
下载地址:
2008-8-19 13:34 上传
下载权限:
版本vip会员
本地下载 检测资源   提取码: 需要终身vip或更高权限
有些游戏资源需要vip下载开通请点击开通vip
回复

使用道具 举报

全部回复0 显示全部楼层

发表回复

您需要登录后才可以回帖 登录 | 欢迎注册

本版积分规则

联系客服 关注微信 下载APP 返回顶部 返回列表