虚拟主机教程

//加载图片,swf示例
var myLoader=new Loader();
myLoader.load(new URLRequest("http://www.suntw.com/testpng.png"));
myLoader.contentLoaderInfo.addEventListener(Event.COMPLETE, jpgloaded);
 
//加载mp3示例
var mp3Loader=new Sound();
mp3Loader.load(new URLRequest("http://www.suntw.com/testmp3.mp3"));
mp3Loader.addEventListener(Event.COMPLETE,mp3loaded);
 
//加载xml,txt示例
var xmLoader = new URLLoader();
xmLoader.load(new URLRequest("http://www.suntw.com/testxml.xml"));
xmLoader.addEventListener(Event.COMPLETE, xmlloaded);
 
function jpgloaded(e:Event):void{
	//1 SWF调用方式
	//var l:Loader = Loader(e.target.loader);
	//var lib:MovieClip = MovieClip(l.content);
	//this.addChild(lib);
	//2 SWF调用方式
	//var lib:MovieClip = e.target.content;
	//addChild(lib);
	//3 通用调用方式
	//this.addChild(e.target.content);
	//4 PIC调用方式
	var bm:Bitmap = Bitmap(e.target.content);//Loader里面的内容
	this.addChild(bm);
}
 
function mp3loaded(e:Event):void{
	//5 Mp3调用方式,就不能再用loader而必须用new Sound
	var bgmusic:Sound = Sound(e.target);//bgmusic是一个loader?
	var bgsong:SoundChannel=new SoundChannel();//必须在外部搞这个才能用于暂停和播放此音乐
	bgsong = bgmusic.play(0);		//开始播放，赋给一个音流对象
	//curMusic=bgsong.position;		//当前播放的位置
	//bgsong.stop(); 				//暂止播放
	//bgsong=bgmusic.play(curMusic);//从指定位置开始播放
}
 
function xmlloaded(e:Event):void{
	var xml:XML = new XML();
	xml = XML(e.target.data);
	trace(xml.basic.bgmusic);	//使用
}

Option Explicit
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
 
Private Sub Command1_Click()
mciSendString "play F:\KuGou\假如.mp3 from 0", vbNullString, 0, 0 '开始播放，后面的from 0 表示从哪个位置开始
'mciSendString "close F:\KuGou\假如.mp3", vbNullString, 0, 0   '关闭，同样还有暂停pause，停止stop
End Sub

Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (lpszSoundName As Any, ByVal uFlags As Long) As Long
 
Private Sub Command1_Click()
    Const SND_ASYNC = &H1&
    Const SND_LOOP = &H8&
    Const SND_MEMORY = &H4&
    Const SND_NODEFAULT = &H2&
    Const SND_NOSTOP = &H10&
    Const SND_SYNC = &H0&
    Dim bArr() As Byte, rc As Long
    bArr = LoadResData(101, "WAV")  '这两个参数是在引用文件属性中设置的，只是个标识
    rc = sndPlaySound(bArr(0), SND_MEMORY Or SND_ASYNC)  '这儿一定要设成从内存中和异步了
End Sub