红色警戒3下载

红色警戒3:http://down.uuu9.com/Soft/HTML/1015.shtml 这个下载下来是一个种子文件，双击打开选择下载就行了。这个资源红警3的游戏文件和电影文件是分开的，主要是为了用户方便使用.这个资源的说明写得很清楚了，我这里就不再废话说安装方法了，楼主点开自己看吧。红警3安装下来很大的，我就是用这个安装的是7.97GB，不过真的很好。我在这里向楼主打包票，我现在玩的红警3简体中文版就是从这儿下的，绝对能下载，绝对能安装！没有任何问题，而且电影效果真的非常好！

{注意}因为这个资源总大小是5G多，所以楼主的硬盘若是FAT32格式的是不能下载的，要转换成NTFS格式才行。硬盘格式转换的话我建议楼主用“磁盘管理大师”这个软件，下载地址在这里：http://www.xdowns.com/soft/6/7/2006/soft_17580.html

VB WindowsMediaPlayer 播放一个文件夹中所有音乐文件

1：播放指定文件夹内的所有歌曲

2：顺序播放，就是自动下一首。

‘添加windowsmediaplayer控件 一个timer控件即可使用

Option Explicit

Dim list2() As String, B可播放文件数As Integer '可以播放的文件

Dim list() As String '存放所有的文件名

Dim total As Long'文件总个数

Dim now As Long'用来记录当前读取的文件的排序

Private Sub Form_Load()

Timer1.Interval = 200

now = 1

total = 0

getAll "C:\WINDOWS\Media"'指定音乐文件夹

'输出文件的个数

Call F存入可播放文件名

If B可播放文件数>0 Then

Me.WindowsMediaPlayer1.URL = list2(now)

Else

MsgBox "没有音乐文件"

End If

End Sub

'遍历指定目录下的文件 并将所有的文件名放入数组list

Function getAll(rootF)

Dim fso As Object, folder As Object, subfolder As Object, file As Object

Set fso = CreateObject("scripting.filesystemobject")'创建FSO对象

Set folder = fso.getfolder(rootF)'得到文件夹对象

For Each subfolder In folder.subfolders '遍历子文件夹

Call getAll(subfolder) '递归,查找该文件夹的子文件夹

Next

For Each file In folder.Files '遍历根文件夹下的文件

Debug.Print folder

Debug.Print file '输出文件名

total = total + 1

ReDim Preserve list(total) As String

list(total) = file

Next

Set fso = Nothing

Set folder = Nothing

Set fso = Nothing

End Function

Function F存入可播放文件名()

Dim i As Integer

B可播放文件数= 0

For i = 1 To total

If Right(list(i), 3) = "mp3" Or Right(list(i), 3) = "wav" Then

B可播放文件数= B可播放文件数+ 1

ReDim Preserve list2(B可播放文件数)

list2(B可播放文件数) = list(i)

End If

Next

End Function

Private Sub Timer1_Timer()

If Me.WindowsMediaPlayer1.playState = wmppsStopped Then

now = now + 1

If now >B可播放文件数Then now = 1

Me.WindowsMediaPlayer1.URL = list2(now)

Me.WindowsMediaPlayer1.Controls.play

End If

End Sub

在我博客中有几篇相关代码，你进去看吧：

http://hi.baidu.com/zgmg/blog/item/d2715cf4551bbad5f3d38535.html

在天龙官方网站再重新下载一个登录器

以后玩私服就把官方文件夹拷贝出来

私服登录器一解压

他自带的文件就会把官方的代替

然后你这个文件夹官网的也会上不去了

换私服就再拷贝出来一个

这样就不会文件冲突了

如果你长时间没玩官服

换私服时候记得

让官网登录器自动更新下

可以直接进游戏时

然后再把官网登录器关闭

再解压私服登录器

不然有时候私服会进不去…

还有

玩私服时候有些服可以选择线路的话

记得用默认线路

不然进不去。

---