1. 如何用vb写一个这样的小游戏
把代码复制到空窗体中按F5运行即可。
Option Explicit
Private WithEvents Timer1 As Timer
Private WithEvents Label1 As Label
Dim GFangXiang As Boolean
Dim HWB As Single
Dim She() As ShenTi
Dim X As Long, Y As Long
Dim ZhuangTai(23, 23) As Long
Private Type ShenTi
F As Long
X As Long
Y As Long
End Type
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Dim C As Long
If KeyCode = 27 Then End
If KeyCode = 32 Then
If Timer1.Enabled = True Then
Timer1.Enabled = False
Label1.Visible = True
Else
Timer1.Enabled = True
Label1.Visible = False
End If
End If
C = UBound(She)
If GFangXiang = True Then Exit Sub
Select Case KeyCode
Case 37
If She(C).F = 2 Then Exit Sub
She(C).F = 0
GFangXiang = True
Case 38
If She(C).F = 3 Then Exit Sub
She(C).F = 1
GFangXiang = True
Case 39
If She(C).F = 0 Then Exit Sub
She(C).F = 2
GFangXiang = True
Case 40
If She(C).F = 1 Then Exit Sub
She(C).F = 3
GFangXiang = True
End Select
End Sub
Private Sub Form_Load()
Me.AutoRedraw = True
Me.BackColor = HC000
Me.FillColor = 255
Me.FillStyle = 0
Me.ScaleWidth = 24
Me.ScaleHeight = 24
Me.WindowState = 2
Set Timer1 = Controls.Add(;VB.Timer;, ;Timer1;)
Set Label1 = Controls.Add(;VB.Label;, ;Label1;)
Label1.AutoSize = True
Label1.BackStyle = 0
Label1 = ;暂停;
Label1.ForeColor = RGB(255, 255, 0)
Label1.FontSize = 50
ChuShiHua
End Sub
Private Sub Form_Resize()
On Error GoTo 1:
With Me
If .WindowState lt;; 1 Then
.Cls
.ScaleMode = 3
HWB = .ScaleHeight / .ScaleWidth
.ScaleWidth = 24
.ScaleHeight = 24
Label1.Move (Me.ScaleWidth - Label1.Width) / 2, (Me.ScaleHeight - Label1.Height) / 2
HuaTu
Me.Line (X, Y)-(X + 1, Y + 1), RGB(255, 255, 0), BF
End If
End With
1:
End Sub
Private Sub Timer1_Timer()
Dim C As Long, I As Long
On Error GoTo 2:
QingChu
C = UBound(She)
Select Case She(C).F
Case 0
If ZhuangTai(She(C).X - 1, She(C).Y) = 2 Then
C = C + 1
ReDim Preserve She(C)
She(C).F = She(C - 1).F
She(C).X = She(C - 1).X - 1
She(C).Y = She(C - 1).Y
ChanShengShiWu
GoTo 1:
ElseIf ZhuangTai(She(C).X - 1, She(C).Y) = 1 Then
GoTo 2:
End If
Case 1
If ZhuangTai(She(C).X, She(C).Y - 1) = 2 Then
C = C + 1
ReDim Preserve She(C)
She(C).F = She(C - 1).F
She(C).X = She(C - 1).X
She(C).Y = She(C - 1).Y - 1
ChanShengShiWu
GoTo 1:
ElseIf ZhuangTai(She(C).X, She(C).Y - 1) = 1 Then
GoTo 2:
End If
Case 2
If ZhuangTai(She(C).X + 1, She(C).Y) = 2 Then
C = C + 1
ReDim Preserve She(C)
She(C).F = She(C - 1).F
She(C).X = She(C - 1).X + 1
She(C).Y = She(C - 1).Y
ChanShengShiWu
GoTo 1:
ElseIf ZhuangTai(She(C).X + 1, She(C).Y) = 1 Then
GoTo 2:
End If
Case 3
If ZhuangTai(She(C).X, She(C).Y + 1) = 2 Then
C = C + 1
ReDim Preserve She(C)
She(C).F = She(C - 1).F
She(C).X = She(C - 1).X
She(C).Y = She(C - 1).Y + 1
ChanShengShiWu
GoTo 1:
ElseIf ZhuangTai(She(C).X, She(C).Y + 1) = 1 Then
GoTo 2:
End If
End Select
ZhuangTai(She(0).X, She(0).Y) = 0
For I = 0 To C
Select Case She(I).F
Case 0
She(I).X = She(I).X - 1
Case 1
She(I).Y = She(I).Y - 1
Case 2
She(I).X = She(I).X + 1
Case 3
She(I).Y = She(I).Y + 1
End Select
Next
TiaoZheng
1:
GFangXiang = False
ZhuangTai(She(C).X, She(C).Y) = 1
HuaTu
Exit Sub
2:
If MsgBox(;游戏结束，点“是”重新开始游戏，点“否”;, vbYesNo, ;贪吃蛇;) = vbYes Then
ChuShiHua
Else
End
End If
End Sub
Private Sub ChuShiHua()
Me.Cls
Timer1.Enabled = True
Timer1.Interval = 200
Erase ZhuangTai
ReDim She(2)
She(0).F = 2
She(0).X = 9
She(0).Y = 11
ZhuangTai(9, 11) = 1
She(1).F = 2
She(1).X = 10
She(1).Y = 11
ZhuangTai(10, 11) = 1
She(2).F = 2
She(2).X = 11
She(2).Y = 11
ZhuangTai(11, 11) = 1
HuaTu
ChanShengShiWu
End Sub
Private Sub QingChu()
Dim I As Long
For I = 0 To UBound(She)
Me.Line (She(I).X, She(I).Y)-(She(I).X + 1, She(I).Y + 1), Me.BackColor, BF
Next
End Sub
Private Sub HuaTu()
Dim I As Long
For I = 0 To UBound(She)
Me.Circle (She(I).X + 0.5, She(I).Y + 0.5), 0.49, RGB(255, 255, 0), , , HWB
Next
End Sub
Private Sub TiaoZheng()
Dim I As Long
For I = 0 To UBound(She) - 1
She(I).F = She(I + 1).F
Next
End Sub
Private Sub ChanShengShiWu()
Randomize Timer
1:
X = Int(Rnd * 24)
Y = Int(Rnd * 24)
If ZhuangTai(X, Y) ; 0 Then GoTo 1:
ZhuangTai(X, Y) = 2
Me.Line (X, Y)-(X + 1, Y + 1), RGB(255, 255, 0), BF
End Sub
应该就是这个了
2. 怎么自己做个小游戏
是这样的：如果想 创个游戏，需一批昂多的资金。再弄 个公司，后来招聘人来工作，再买一些需要买的东西。弄的好会有其它公司的资金加入您的游戏。这些问题所以要长大了才能解决。 LZ，把分数给我吧！【纯属自己打字打的】
3. windows里的sc命令怎么用
SC命令详解(一个很有用的command)
作为一个命令行工具，SC.exe可以用来测试你自己的系统，你可以设置一个批处理文件来使用不同的参数调用 SC.exe来控制服务。
一.SC使用这样的语法：
1. SC [Servername] command Servicename [Optionname= Optionvalues]
2. SC [command]
这里使用第一种语法使用SC，使用第二种语法显示帮助。
下面介绍各种参数。
Servername
可选择：可以使用双斜线，如\\myserver，也可以是\\192.168.1.223来操作远程计算机。如果在本地计算机上操作
就不用添加任何参数。
Command
下面列出SC可以使用的命令。
config----改变一个服务的配置。（长久的）
continue--对一个服务送出一个继续控制的要求。
control----对一个服务送出一个控制。
create----创建一个服务。（增加到注册表中）
delete----删除一个服务。（从注册表中删除）
EnumDepend--列举服务的从属关系。
GetDisplayName--获得一个服务的显示名称。
GetKeyName--获得一个服务的服务键名。
interrogate--对一个服务送出一个询问控制要求。
pause----对一个服务送出一个暂停控制要求。
qc----询问一个服务的配置。
query----询问一个服务的状态，也可以列举服务的状态类型。
start----启动一个服务。
stop----对一个服务送出一个停止的要求。
Servicename
在注册表中为service key制定的名称。注意这个名称是不同于显示名称的（这个名称可以用net start和服务控
制面板看到），而SC是使用服务键名来鉴别服务的。
Optionname
这个optionname和optionvalues参数允许你指定操作命令参数的名称和数值。注意，这一点很重要在操作名称和等
号之间是没有空格的。一开始我不知道，结果………………，比如，start= optionvalues，这个很重要。
optionvalues可以是0，1，或者是更多的操作参数名称和数值对。
如果你想要看每个命令的可以用的optionvalues，你可以使用sc command这样的格式。这会为你提供详细的帮助。
Optionvalues
为optionname的参数的名称指定它的数值。有效数值范围常常限制于哪一个参数的optionname。如果要列表请用
sc command来询问每个命令。
Comments
很多的命令需要管理员权限，所以我想说，在你操作这些东西的时候最好是管理员。呵呵！
当你键入SC而不带任何参数时，SC.exe会显示帮助信息和可用的命令。当你键入SC紧跟着命令名称时，你可以得
到一个有关这个命令的详细列表。比如，键入sc create可以得到和create有关的列表。
但是除了一个命令，sc query，这会导出该系统中当前正在运行的所有服务和驱动程序的状态。
当你使用start命令时，你可以传递一些参数（arguments）给服务的主函数，但是不是给服务进程的主函数。
二.SC create
这个命令可以在注册表和服务控制管理数据库建立一个入口。
语法1
sc [servername] create Servicename [Optionname= Optionvalues]
这里的servername，servicename，optionname，optionvalues和上面的一样，这里就不多说了。这里我们详细说
明一下optionname和optionvalues。
Optionname--Optionvalues
描述
type=----own, share, interact, kernel, filesys
关于建立服务的类型，选项值包括驱动程序使用的类型，默认是share。
start=----boot, sys tem, auto, demand, disabled
关于启动服务的类型，选项值包括驱动程序使用的类型，默认是demand（手动）。
error=----normal, severe, critical, ignore
当服务在导入失败错误的严重性，默认是normal。
binPath=--(string)
服务二进制文件的路径名，这里没有默认值，这个字符串是必须设置的。
group=----(string)
这个服务属于的组，这个组的列表保存在注册表中的ServiceGroupOrder下。默认是nothing。
tag=----(string)
如果这个字符串被设置为yes，sc可以从CreateService call中得到一个tagId。然而，SC并不显示这个标签，所
以使用这个没有多少意义。默认是nothing
depend=----(space separated string)有空格的字符串。
在这个服务启动前必须启动的服务的名称或者是组。
obj=----(string)
账号运行使用的名称，也可以说是登陆身份。默认是localsys tem
Displayname=--(string)
一个为在用户界面程序中鉴别各个服务使用的字符串。
password=--(string)
一个密码，如果一个不同于localsystem的账号使用时需要使用这个。
Optionvalues
Optionname参数名称的数值列表。参考optionname。当我们输入一个字符串时，如果输入一个空的引用这意味着
一个空的字符串将被导入。
Comments
The SC CREATE command perFORMs the operations of the CreateService API function.
这个sc create命令执行CreateService API函数的操作。详细请见CreateService。
例子1
下面这个例子在计算机上建立叫“mirror”的服务建立的一个注册表登记,是自动运行服务,从属于TDI组和NetBios服务。
C:\WINDOWS\system32>sc create mirror binPath= "D:\Ftp\新建文件夹\mirror.exe" type= own start= auto
[SC] CreateService SUCCESS
重启后生效
例子2 删除Mirror服务
C:\WINDOWS\system32>sc delete mirror binPath= "D:\Ftp\新建文件夹\mirror.exe" type= own start= auto
[SC] DeleteService SUCCESS
三. SC QC
这个SC QC“询问配置”命令可以列出一个服务的配置信息和QUERY_SERVICE_CONFIG结构。
语法1
sc [Servername] qc Servicename [Buffersize]
Parameters
servername和servicename前面已经介绍过了，这里不再多说。
Buffersize，可选择的，列出缓冲区的尺寸。
Comments
SC QC命令显示了QUERY_SERVICE_CONFIG结构的内容。
以下是QUERY_SERVICE_CONFIG相应的区域。
TYPE------dwServiceType
START_TYPE----dwStartType
ERROR_CONTROL----dwErrorControl
BINARY_PATH_NAME--lpBinaryPathName
LOAD_ORDER_GROUP--lpLoadOrderGroup
TAG------dwTagId
DISPLAY_NAME----lpDisplayName
DEPENDENCIES----lpDependencies
SERVICE_START_NAME--lpServiceStartName
例1
下面这个例子询问了在上面例子中建立的“mirror”服务的配置：
sc qc
sc显示下面的信息：
SERVICE_NAME: mirror
TYPE : 10 WIN32_OWN_PROCESS
START_TYPE : 2 AUTO_START
ERROR_CONTROL : 1 NORMAL
BINARY_PATH_NAME : D:\Ftp\
LOAD_ORDER_GROUP :
TAG : 0
DISPLAY_NAME : mirror
DEPENDENCIES :
SERVICE_START_NAME : LocalSystem
mirror有能力和其他的服务共享一个进程。这个服务 不依靠与其它的的服务，而且运行在lcoalsystem的安全上下关系中。这些都是调用QueryServiceStatus基本的返回，如果还需要更多的细节届时，可以看看API函数文件。 mirror
四.SC QUERY
SC QUERY命令可以获得服务的信息。
语法：
sc [Servername] query { Servicename | ptionname= Optionvalues... }
参数：
servername, servicename, optionname, optionvalues不在解释。只谈一下这个命令提供的数值。
Optionname--Optionvalues
Description
type=----driver, service, all
列举服务的类型，默认是service
state=----active, inactive, all
列举服务的状态，默认是active
bufsize=--(numeric values)
列举缓冲区的尺寸，默认是1024 bytes
ri=----(numeric values)
但开始列举时，恢复指针的数字，默认是0
Optionvalues
同上。
Comments
SC QUERY命令可以显示SERVICE_STATUS结构的内容。
下面是SERVICE_STATUS结构相应的信息：
TYPE------dwServiceType
STATE------dwCurrentState, dwControlsAccepted
WIN32_EXIT_CODE----dwWin32ExitCode
SERVICE_EXIT_CODE--dwServiceSpecificExitCode
CHECKPOINT----dwCheckPoint
WAIT_HINT----dwWaitHint
在启动计算机后，使用SC QUERY命令会告诉你是否，或者不是一个启动服务的尝试。如果这个服务成功启动，WIN32_EXIT_CODE区间会将会包含一个0，当尝试不成功时，当它意识到这个服务不能够启动时，这个区间也会提供一个退出码给服务。
例子
查询“mirror'服务状态，键入：
sc query mirror
显示一下信息：
SERVICE_NAME: mirror
TYPE : 10 WIN32_OWN_PROCESS
STATE : 1 STOPPED
(NOT_STOPPABLE,NOT_PAUSABLE,IGNORES_SHUTDOWN
WIN32_EXIT_CODE : 0 (0x0)
SERVICE_EXIT_CODE : 0 (0x0)
CHECKPOINT : 0x0
WAIT_HINT : 0x0
注意，这里存在一个给这个服务的退出码，即使这个服务部不在运行，键入net helpmsg 1077，将会得到对1077错误信息的说明：
上次启动之后，仍未尝试引导服务。
所以，这里我想说一句，希望大家可以活用net helpmsg，这会对你的学习有很大的帮助。
下面在对SC query的命令在说明一下：
列举活动服务和驱动程序状态，使用以下命令：
sc query
显示messenger服务，使用以下命令：
sc query messenger
只列举活动的驱动程序，使用以下命令：
sc query type= driver
列举Win32服务，使用以下命令：
sc query type= service
列举所有的服务和驱动程序，使用以下命令：
sc query state= all
用50 byte的缓冲区来进行列举，使用以下命令：
sc query bufsize= 50
在恢复列举时使用index=14，使用以下命令：
sc query ri=14
列举所有的交互式服务，使用以下命令：
sc query type= service type= interact
五、sc命令启动已经禁用的服务,例如：启动telnet服务
sc config tlntsvr start= auto
net start tlntsvr
4. scratch怎样用隐藏和显示来做游戏
用的话和呃，收藏游戏是可以进行收藏起来的，把它直接收藏就可以了
5. sc.exe是个什么程序
是应用程序
sc - sc.exe - 进程信息
进程文件：sc 或者 sc.exe
进程名称：A tool to aid in developing services for WindowsNT
描述：
SC.exe 检索和设置有关服务的控制信息。可以使用 SC.exe 来测试和调试服务程序。可以设置存储在注册表中的服务属性来控制如何在启动时和作为后台程序运行时启动服务应用程序
出品者： Microsoft Corporation
属 于：Microsoft® Windows® Operating System.
文件版本：5.1.2600.0 (xpclient.010817-1148)
系统进程： 否
后台程序： 是
使用网络： 是
硬件相关： 否
常见错误： 未知N/A
内存使用： 未知N/A
安全等级 (0-5): 2
间谍软件： 否
Adware: 否
广告软件： 否
木马: 否
如果版本号和出品人不正确有可能是病毒！
6. 空之轨迹SC的代码怎样使用
网上有个空之轨迹sc修改器，漆黑之牙版本的！很不错，所有物品都能修改，人物等级也可以，建议你去下载个，比用代码修改简单，方便！
7. 用VB怎么做一个小游戏啊
下面是个程序!希望有用
'定义蛇的运动速度枚举值
Private Enum tpsSpeed
QUICKLY = 0
SLOWLY = 1
End Enum
'定义蛇的运动方向枚举值
Private Enum tpsDirection
D_UP = 38
D_DOWN = 40
D_LEFT = 37
D_RIGHT = 39
End Enum
'定义运动区域4个禁区的枚举值
Private Enum tpsForbiddenZone
FZ_TOP = 30
FZ_BOTTOM = 5330
FZ_LEFT = 30
FZ_RIGHT = 5730
End Enum
'定义蛇头及身体初始化数枚举值
Private Enum tpsSnake
SNAKEONE = 1
SNAKETWO = 2
SNAKETHREE = 3
SNAKEFOUR = 4
End Enum
'定义蛇宽度的常量
Private Const SNAKEWIDTH As Integer = 100
'该过程用于显示游戏信息
Private Sub Form_Load()
Me.Show
Me.lblTitle = "BS贪食蛇 — (版本 " & App.Major & "." & App.Minor & "." & App.Revision & ")"
Me.Caption = Me.lblTitle.Caption
frmSplash.Show 1
End Sub
'该过程用于使窗体恢复原始大小
Private Sub Form_Resize()
If Me.WindowState <> 1 Then
Me.Caption = ""
Me.Height = 6405 '窗体高度为 6405 缇
Me.Width = 8535 '窗体宽度为 8535 缇
Me.Left = (Screen.Width - Width) \ 2
Me.Top = (Screen.Height - Height) \ 2
End If
End Sub
'该过程用于重新开始开始游戏
Private Sub cmdGameStart_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Beep
msg = MsgBox("您确认要重新开始游戏吗？", 4 + 32, "BS贪食蛇")
If msg = 6 Then Call m_subGameInitialize
End Sub
'该过程用于暂停/运行游戏
Private Sub chkPause_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Me.chkPause.Caption = "暂停游戏(&P)" Then
Me.tmrSnakeMove.Enabled = False
Me.tmrGameTime.Enabled = False
Me.picMoveArea.Enabled = False
Me.lblPauseLab.Visible = True
Me.chkPause.Caption = "继续游戏(&R)"
Else
Me.tmrSnakeMove.Enabled = True
Me.tmrGameTime.Enabled = True
Me.picMoveArea.Enabled = True
Me.lblPauseLab.Visible = False
Me.chkPause.Caption = "暂停游戏(&P)"
End If
End Sub
'该过程用于显示游戏规则
Private Sub cmdGameRules_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Beep
MsgBox " BS贪食蛇：一个规则最简单的趣味游戏，您将用键盘" & Chr(13) & _
"上的4个方向键来控制蛇的运动方向。在运动过程中蛇" & Chr(13) & _
"不能后退，蛇的头部也不能接触到运动区域的边线以外" & Chr(13) & _
"和蛇自己的身体，否则就游戏失败。在吃掉随机出现的" & Chr(13) & _
"果子后，蛇的身体会变长，越长难度越大。祝您好运！！", 0 + 64, "游戏规则"
End Sub
'该过程用于显示游戏开发信息
Private Sub cmdAbout_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Beep
MsgBox "BS贪食蛇" & "(V-" & App.Major & "." & App.Minor & "版本)" & Chr(13) & Chr(13) & _
"" & Chr(13) & Chr(13) & _
"由PigheadPrince设计制作" & Chr(13) & _
"CopyRight(C)2002,BestSoft.TCG", 0, "关于本游戏"
End Sub
'该过程用于退出游戏
Private Sub cmdExit_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Beep
msg = MsgBox("您要退出本游戏吗？", 4 + 32, "BS贪食蛇")
Select Case msg
Case 6
End
Case 7
Me.chkWindowButton(2).Value = 0
Exit Sub
End Select
End Sub
'该过程用于拖动窗体_(点击图标)
Private Sub imgWindowTop_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
ReleaseCapture
SendMessage Me.hwnd, WM_SYSCOMMAND, SC_MOVE, 0
End Sub
'该共用过程用于处理窗体控制按钮组的相关操作_(锁定、最小化、退出)
Private Sub chkWindowButton_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button <> 1 Then Exit Sub
Select Case Index
Case 0 '锁定窗体
If Me.chkWindowButton(0).Value = 1 Then
Me.imgWindowTop.BorderStyle = 0
Me.imgWindowTop.Enabled = False
Else
Me.imgWindowTop.BorderStyle = 1
Me.imgWindowTop.Enabled = True
End If
Case 1 '最小化
Me.WindowState = 1
Me.chkWindowButton(1).Value = 0
Me.Caption = "BS贪食蛇 — (V-" & App.Major & "." & App.Minor & "版本)"
Case 2 '退出
Beep
msg = MsgBox("您要退出本游戏吗？", 4 + 32, "BS贪食蛇")
Select Case msg
Case 6
End
Case 7
Me.chkWindowButton(2).Value = 0
Exit Sub
End Select
End Select
End Sub
'该过程用于设置蛇运动速度的快慢
Private Sub hsbGameSpeed_Change()
Me.tmrSnakeMove.Interval = Me.hsbGameSpeed.Value
End Sub
'该过程用于通过键盘的方向键改变蛇的运动方向
Private Sub picMoveArea_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case g_intDirection
Case D_UP
If KeyCode = D_DOWN Then Exit Sub
Case D_DOWN
If KeyCode = D_UP Then Exit Sub
Case D_LEFT
If KeyCode = D_RIGHT Then Exit Sub
Case D_RIGHT
If KeyCode = D_LEFT Then Exit Sub
End Select
g_intDirection = KeyCode
End Sub
'该计时循环过程用于计算游戏耗费的秒数并显示
Private Sub tmrGameTime_Timer()
g_lngGameTime = g_lngGameTime + 1
Me.lblGameTime.Caption = g_lngGameTime & "秒"
End Sub
'该计时循环过程用于控制蛇的行动轨迹
Private Sub tmrSnakeMove_Timer()
Dim lngSnakeX As Long, lngSnakeY As Long, lngSnakeColor As Long
Dim lngPointX As Long, lngPointY As Long, lngPointColor As Long
Randomize
Me.picMoveArea.SetFocus
Me.picMoveArea.Cls
'确认蛇头的运动方向并获取新的位置
Select Case g_intDirection
Case D_UP '向上运动
g_udtSnake(SNAKEONE).Snake_CurX = g_udtSnake(SNAKEONE).Snake_OldX
g_udtSnake(SNAKEONE).Snake_CurY = g_udtSnake(SNAKEONE).Snake_OldY
g_udtSnake(SNAKEONE).Snake_CurY = g_udtSnake(SNAKEONE).Snake_CurY - SNAKEWIDTH
Case D_DOWN '向下运动
g_udtSnake(SNAKEONE).Snake_CurX = g_udtSnake(SNAKEONE).Snake_OldX
g_udtSnake(SNAKEONE).Snake_CurY = g_udtSnake(SNAKEONE).Snake_OldY
g_udtSnake(SNAKEONE).Snake_CurY = g_udtSnake(SNAKEONE).Snake_CurY + SNAKEWIDTH
Case D_LEFT '向左运动
g_udtSnake(SNAKEONE).Snake_CurX = g_udtSnake(SNAKEONE).Snake_OldX
g_udtSnake(SNAKEONE).Snake_CurX = g_udtSnake(SNAKEONE).Snake_CurX - SNAKEWIDTH
g_udtSnake(SNAKEONE).Snake_CurY = g_udtSnake(SNAKEONE).Snake_OldY
Case D_RIGHT '向右运动
g_udtSnake(SNAKEONE).Snake_CurX = g_udtSnake(SNAKEONE).Snake_OldX
g_udtSnake(SNAKEONE).Snake_CurX = g_udtSnake(SNAKEONE).Snake_CurX + SNAKEWIDTH
g_udtSnake(SNAKEONE).Snake_CurY = g_udtSnake(SNAKEONE).Snake_OldY
End Select
'根据新的位置绘制蛇头
lngSnakeX = g_udtSnake(SNAKEONE).Snake_CurX
lngSnakeY = g_udtSnake(SNAKEONE).Snake_CurY
lngSnakeColor = g_udtSnake(SNAKEONE).Snake_Color
Me.picMoveArea.PSet (lngSnakeX, lngSnakeY), lngSnakeColor
'移动蛇身体其他部分的位置
For i = 2 To g_intSnakeLength
g_udtSnake(i).Snake_CurX = g_udtSnake(i - 1).Snake_OldX
g_udtSnake(i).Snake_CurY = g_udtSnake(i - 1).Snake_OldY
lngSnakeX = g_udtSnake(i).Snake_CurX
lngSnakeY = g_udtSnake(i).Snake_CurY
lngSnakeColor = g_udtSnake(i).Snake_Color
Me.picMoveArea.PSet (lngSnakeX, lngSnakeY), lngSnakeColor
Next i
'更新蛇旧的坐标位置
For j = 1 To g_intSnakeLength
g_udtSnake(j).Snake_OldX = g_udtSnake(j).Snake_CurX
g_udtSnake(j).Snake_OldY = g_udtSnake(j).Snake_CurY
Next j
'判断蛇在移动中是否到了禁区而导致游戏失败
If m_funMoveForbiddenZone(g_udtSnake(SNAKEONE).Snake_CurX, g_udtSnake(SNAKEONE).Snake_CurY) Then
Beep
MsgBox "您的蛇移动到了禁区，游戏失败！", 0 + 16, "BS贪食蛇"
Me.tmrSnakeMove.Enabled = False
Me.tmrGameTime.Enabled = False
Me.picMoveArea.Visible = False
Exit Sub
End If
'判断蛇在移动中是否碰到了自己的身体而导致游戏失败
If m_funTouchSnakeBody(g_udtSnake(SNAKEONE).Snake_CurX, g_udtSnake(SNAKEONE).Snake_CurY) Then
Beep
MsgBox "您的蛇在移动中碰到了自己的身体，游戏失败！", 0 + 16, "BS贪食蛇"
Me.tmrSnakeMove.Enabled = False
Me.tmrGameTime.Enabled = False
Me.picMoveArea.Visible = False
Exit Sub
End If
'判断蛇是否吃到了果子
If m_funEatPoint(g_udtSnake(SNAKEONE).Snake_CurX, g_udtSnake(SNAKEONE).Snake_CurY) Then
'累加玩家的得分并刷新得分显示
g_intPlayerScore = g_intPlayerScore + 1
Me.lblYourScore.Caption = g_intPlayerScore & "分"
Call m_subAddSnake '加长蛇的身体
Call m_subGetPoint '获取下一个果子的位置和颜色
Else
'绘制果子
lngPointX = g_udtPoint.Point_X
lngPointY = g_udtPoint.Point_Y
lngPointColor = g_udtPoint.Point_Color
Me.picMoveArea.PSet (lngPointX, lngPointY), lngPointColor
End If
End Sub
'该私有子过程用于初始化游戏
Private Sub m_subGameInitialize()
Erase g_udtSnake '清空蛇的结构数组
g_intPlayerScore = 0 '清空玩家的得分
g_lngGameTime = 0 '清空游戏耗费的秒数
g_intDirection = D_DOWN '设定蛇的初始运动方向为下
g_intSnakeLength = 4 '设定蛇的初始长度
ReDim g_udtSnake(1 To g_intSnakeLength) '重新定义蛇的长度
'定义蛇头部的数据
With g_udtSnake(SNAKEONE)
.Snake_OldX = 530
.Snake_OldY = 530
.Snake_Color = vbBlack
End With
'定义蛇身第2节的数据
With g_udtSnake(SNAKETWO)
.Snake_OldX = 530
.Snake_OldY = 430
.Snake_Color = vbGreen
End With
'定义蛇身第3节的数据
With g_udtSnake(SNAKETHREE)
.Snake_OldX = 530
.Snake_OldY = 330
.Snake_Color = vbYellow
End With
'定义蛇身第4节的数据
With g_udtSnake(SNAKEFOUR)
.Snake_OldX = 530
.Snake_OldY = 230
.Snake_Color = vbRed
End With
Me.picMoveArea.Visible = True
Me.lblYourScore.Caption = g_intPlayerScore & "分"
Me.lblGameTime.Caption = g_lngGameTime & "秒"
Me.tmrSnakeMove.Interval = Me.hsbGameSpeed.Value
Me.tmrSnakeMove.Enabled = True
Me.tmrGameTime.Enabled = True
Call m_subGetPoint '获取第一个果子的位置和颜色
End Sub
'该私有子过程用于返回获取的果子的位置和颜色信息
Private Sub m_subGetPoint()
Dim lngRedValue As Long, lngGreenValue As Long, lngBlueValue As Long
Dim lngPointX As Long, lngPointY As Long, lngPointColor As Long
'随机获取果子的颜色
lngRedValue = Int((255 - 0 + 1) * Rnd + 0)
lngGreenValue = Int((255 - 0 + 1) * Rnd + 0)
lngBlueValue = Int((255 - 0 + 1) * Rnd + 0)
lngPointColor = RGB(lngRedValue, lngGreenValue, lngBlueValue)
'随机获取果子的位置
lngPointX = Int((FZ_LEFT - FZ_RIGHT + 1) * Rnd + FZ_RIGHT)
lngPointY = Int((FZ_TOP - FZ_BOTTOM + 1) * Rnd + FZ_BOTTOM)
Me.PSet (lngPointX, lngPointY), lngPointColor
'设置函数返回值
With g_udtPoint
.Point_X = lngPointX
.Point_Y = lngPointY
.Point_Color = lngPointColor
End With
End Sub
'该私有子过程用于加长蛇的身体
Private Sub m_subAddSnake()
Dim udtSnakeTemp() As Snake
Dim lngSnakeX As Long, lngSnakeY As Long, lngSnakeColor As Long
'备份蛇原先身体的数据并使蛇的身体加长
ReDim udtSnakeTemp(1 To g_intSnakeLength)
For k = 1 To g_intSnakeLength
With udtSnakeTemp(k)
.Snake_CurX = g_udtSnake(k).Snake_CurX
.Snake_CurY = g_udtSnake(k).Snake_CurY
.Snake_OldX = g_udtSnake(k).Snake_OldX
.Snake_OldY = g_udtSnake(k).Snake_OldY
.Snake_Color = g_udtSnake(k).Snake_Color
End With
Next k
g_intSnakeLength = g_intSnakeLength + 1
ReDim g_udtSnake(g_intSnakeLength)
'将备份蛇身体的数据返回到加长的蛇身数组中
For l = 1 To g_intSnakeLength - 1
With g_udtSnake(l)
.Snake_CurX = udtSnakeTemp(l).Snake_CurX
.Snake_CurY = udtSnakeTemp(l).Snake_CurY
.Snake_OldX = udtSnakeTemp(l).Snake_OldX
.Snake_OldY = udtSnakeTemp(l).Snake_OldY
.Snake_Color = udtSnakeTemp(l).Snake_Color
End With
Next l
'写入新加入的身体数据
Select Case g_intDirection
Case D_UP
With g_udtSnake(g_intSnakeLength)
.Snake_OldX = g_udtSnake(g_intSnakeLength - 1).Snake_CurX + SNAKEWIDTH
.Snake_OldY = g_udtSnake(g_intSnakeLength - 1).Snake_CurY
.Snake_Color = g_udtPoint.Point_Color
End With
Case D_DOWN
With g_udtSnake(g_intSnakeLength)
.Snake_OldX = g_udtSnake(g_intSnakeLength - 1).Snake_CurX - SNAKEWIDTH
.Snake_OldY = g_udtSnake(g_intSnakeLength - 1).Snake_CurY
.Snake_Color = g_udtPoint.Point_Color
End With
Case D_LEFT
With g_udtSnake(g_intSnakeLength)
.Snake_OldX = g_udtSnake(g_intSnakeLength - 1).Snake_CurX
.Snake_OldY = g_udtSnake(g_intSnakeLength - 1).Snake_CurY + SNAKEWIDTH
.Snake_Color = g_udtPoint.Point_Color
End With
Case D_RIGHT
With g_udtSnake(g_intSnakeLength)
.Snake_OldX = g_udtSnake(g_intSnakeLength - 1).Snake_CurX
.Snake_OldY = g_udtSnake(g_intSnakeLength - 1).Snake_CurY - SNAKEWIDTH
.Snake_Color = g_udtPoint.Point_Color
End With
End Select
lngSnakeX = g_udtSnake(g_intSnakeLength).Snake_CurX
lngSnakeY = g_udtSnake(g_intSnakeLength).Snake_CurY
lngSnakeColor = g_udtSnake(g_intSnakeLength).Snake_Color
Me.picMoveArea.PSet (lngSnakeX, lngSnakeY), lngSnakeColor
End Sub
'该自定义函数用于返回运动的蛇是否到达禁区而导致游戏失败
Private Function m_funMoveForbiddenZone(SnakeX As Long, SnakeY As Long) As Boolean
If (SnakeX >= FZ_LEFT And SnakeX <= FZ_RIGHT) And (SnakeY >= FZ_TOP And SnakeY <= FZ_BOTTOM) Then
m_funMoveForbiddenZone = False
Else
m_funMoveForbiddenZone = True
End If
End Function
'该自定义函数用于返回运动的蛇是否碰到自己的身体而导致游戏失败
Private Function m_funTouchSnakeBody(SnakeX As Long, SnakeY As Long) As Boolean
For m = 2 To g_intSnakeLength
If SnakeX = g_udtSnake(m).Snake_CurX And SnakeY = g_udtSnake(m).Snake_CurY Then
m_funTouchSnakeBody = True
Exit For
Else
m_funTouchSnakeBody = False
End If
Next m
End Function
'该自定义函数用于返回运动的蛇是否吃到了果子
Private Function m_funEatPoint(SnakeX As Long, SnakeY As Long) As Boolean
If Abs(SnakeX - g_udtPoint.Point_X) <= SNAKEWIDTH And Abs(SnakeY - g_udtPoint.Point_Y) <= SNAKEWIDTH Then
m_funEatPoint = True
Else
m_funEatPoint = False
End If
End Function
'（API函数调用过程_用以实现无标题窗体的拖动操作）---------------------------------
'RleaseCapture函数用以释放鼠标捕获
Public Declare Function ReleaseCapture Lib "user32" () As Long
'SendMessage函数用作向Windows发送移动窗体的消息
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As _
Long, ByVal wMsg As Long, ByVal wParam As Long, IParam As Any) As Long
Public Const WM_SYSCOMMAND = &H112 '声明向Windows发送消息的常量
Public Const SC_MOVE = &HF012 '声明控制移动窗体常量
'（游戏变量声明部分）-------------------------------------------------------------
'定义蛇的数据类型结构
Public Type Snake
Snake_OldX As Long
Snake_OldY As Long
Snake_CurX As Long
Snake_CurY As Long
Snake_Color As Long
End Type
'定义果子的数据类型结构
Public Type Point
Point_X As Long
Point_Y As Long
Point_Color As Long
End Type
'定义蛇的动态数组
Public g_udtSnake() As Snake
'定义果子
Public g_udtPoint As Point
'定义蛇的长度
Public g_intSnakeLength As Integer
'定义蛇的颜色
Public g_lngSnakeColor As Long
'定义蛇的运动方向
Public g_intDirection As Integer
'定义玩家的得分
Public g_intPlayerScore As Integer
'定义游戏耗费的秒数
Public g_lngGameTime As Long
8. 如何用VC做个简单小程序（详见问题）
您好！
虽然有点多，但对您总是有好处的，看得越多，好处也越多。呵呵
C＋＋语言相对于C语言来说引入了两个大的新东西，一个就是面向对象（具体来将就是类
），另外就是模板技术（模板编程或者叫泛型编程是进来非常流行的技术，在C＃中虽然还
没有对泛型编程的支持，但是相信在将来也一定会加入这一功能），模板是C＋＋中比较复
杂的部分，但是作为一个真正的C＋＋程序员，这部分很重要。尤其是对C＋＋标准程序库
的掌握尤为重要。
刚开始的时候千万不要直扑VC中的各种向导和设计器。因为依赖开发环境生成的很多代码
会把我们搞糊涂，也不利于我们学习C＋＋语言本身。我的建议就是生成一个空的控制台工
程，然后自己向里面添加文件。
如下就是一个简单的控制台程序：
//robindy/list.cpp
＃i nclude
＃i nclude
using namespace std;
int main()
{
list coll;
for(char c = 'a'; c <= 'z'; ++c)
{
coll.push_back(c);
}
list::const_iterator pos;
for(pos = coll.begin(); pos != coll.end(); ++pos)
{
cout << *pos << ' ';
}
cout << endl;
return 0;
}
对using namespace std;的解释：
所谓namespace，是指标识符的各种可见范围。C＋＋标准程序库中的所有标识符都被定义于一个名为std的namespace中。
由于namespace的概念，使用C＋＋标准程序库的任何标识符时，可以有三种选择：
1、直接指定标识符。例如std::ostream而不是ostream。完整语句如下：
std::cout << std::hex << 3.4 << std::endl;
2、使用using关键字。
using std::cout;
using std::endl;
以上程序可以写成
cout << std::hex <<3.4 << endl;
3、最方便的就是使用using namespace std;这样命名空间std内定义的所有标识符都有效（曝光）。就好像它们被声明为全局变量一样。那么以上语句可以如下写:
cout << hex << 3.4 << endl;
这段程序用到了标准模板库,在屏幕上打印字符a~z，其中main函数的标记式只有两种是被
C＋＋标准委员会接受的，只有以下两种写法是符合C+＋标准的，是可移植的。即：
int main()
{
}
和
int main(int argc, char* argv[])
{
}
C++在main()的末尾定义了一个隐式的return 0; 但是在VC中必须显式的写出return语句。
在BCB中可以不写return而编译通过。
这段程序中用到了STL中的容器：链表。先是向链表中插入26个字母，然后从遍历链表，输
出字符。
我不建议初学者一开始就从模板库入手，但是我建议应该逐渐地有意识地学习模板库。如
我们应该熟悉cout和cin的用法(位于iostream)，而减少使用老式的C函数库中printf和sc
anf等。
从控制台入手的好处就是避免我们理解VC中向导等工具生成的其他代码，整个程序的流程
很清楚。新手学习VC的一大难点就是搞不清楚整个程序的流程(从那条语句开始执行，然后
从那条语句退出。MFC做了太多封装，掩盖了事实的真相，^_^)。通过控制台我们可以很快
地学习C＋＋语言中的很多新特性。如类的封装、继承和多态等。通过这个时期的学习，要
能够掌握三个东西： C＋＋关键字、语法（重点是和面向对象有关的，以及模板）、C＋＋
标准程序库（知道怎么使用即可，要彻底掌握需要很多时间和精力）。至于与界面有关的
东东（MFC中很大一部分是与界面相关的类，所以我认为MFC很臃肿而无聊！回头看过以前
用MFC写的程序，有一种“垃圾”的感觉。）
自己做个测试：
写一个控制台程序，在其中体现出类的继承，函数重载，动态多态（通过虚函数实现），
数据封装，C＋＋标准库的运用。
如果你能够轻松搞定，恭喜你，你已经通过C＋＋语言关了。不过C＋＋实在是一个复杂的
东东，其中有各种千奇百怪的语法现象，如果没有三、五年的功力，千万不要说自己懂C+
+。^_^。
推荐书籍《Thinking in C++》(有精力的话，可以直接读原版)
《Essential C＋＋》
本来我计划继续说说如何来进入C＋＋世界的，但是琢磨了一下，觉得还是要先解决一个问
题：为什么要学习C＋＋？我觉得在软件开发这个行当了里除了为了生计外，学习新东西都
是应该以兴趣为导向的。所以撇开我个人对C＋＋的偏爱，我想为你树立起学习C＋＋的信
心和兴趣。当初我对自己学习C＋＋的第一个忠告就是：不能半途而废！起初是兴趣驱动，
后来则是生计所需，最后还是回归到了兴趣。毕竟我从中得到了乐趣，这就足够了。在学
一个新东西前，解决动机问题很重要。就如同杀人一样，如果只是突然兴起，那么等尝试
了以后，是没有成就感的。革命先烈们为我们作出了很好的榜样，就算我们在学习C＋＋的
道路上遇到了太多困惑和痛苦，但是我们毕竟为自己的信念做了努力，我们知道自己在
做什么，知道自己在追求什么。
C＋＋适合做什么样的开发？
C＋＋是一门广泛用于工业软件研发的大型语言。具有很高的复杂性和解决问题的能力。C
＋＋不仅在开发上极具价值，同时在学术界也就有很高的价值。有关C＋＋的文章应该可以
用浩如烟海来形容了吧。C＋＋的世界级经典书籍也是数不胜数。然而，目前开发语言是如
此地繁荣，就连微软也在推出了新的开发语言C＃。一个不可否认的现实是，在低阶程序设
计领域，C++挤压着C同时也在承受着C的强烈反弹，前段时间看了据说是微软操作系统源代
码的东东，其中很多还是C语言。而在高阶程序设计领域，Java和C#正在不断蚕食着C++的
地盘。也许Java和C#的狂潮终将迫使C++回归本位— 回到它有着根本性优势的开发领域：
低级系统程序设计、高级大规模高性能应用设计、嵌入式程序设计、通用程序设计以及数
值科学计算等。果真如此，我认为这未尝不是一件好事。电力系统软件所要求的高性能和
大规模数值计算正是C＋＋所擅长的。就我所接触的南瑞和鲁能，很多涉及到电力系统计算
的软件如PAS等，都是用C＋＋来开发的。在电力系统软件开发这块阵地，C＋＋大有用武之
地。C++吸引如此之多的智力投入，以至于这个领域的优秀作品，包括重量级的软件产品、
程序库以及书籍等，数不胜数。在C＋＋之父Bjarne Stroustrup的个人主页上，有一页
列出了一些（全部或大部分）使用C++编写的系统、应用程序和库。
下面是一些例子(摘自荣耀网站)：
o Adobe Systems：所有主要应用程序都使用C++开发而成，比如Photoshop & ImageReady
、Illustrator和Acrobat等。
o Maya：知道“蜘蛛人”、“指环王”的电脑特技是使用什么软件做出来的吗？没错，就
是Maya。
o Amazon.com：使用C++开发大型电子商务软件。
o Apple：部分重要“零件”采用C++编写而成。
o AT&T：美国最大的电讯技术提供商，主要产品采用C++开发。
o Google：Web搜索引擎采用C++编写。
o IBM：OS/400。
o Microsoft：以下产品主要采用C++（Visual C++）编写：
o Windows XP Windows NT：NT4、2000 Windows 9x：95、98、Me Microsoft Office：Wo
rd、Excel、Access、PowerPoint、Outlook Internet Explorer，包括Outlook Express
Visual Studio：Visual C++、Visual Basic、Visual FoxPro .NET Framework类库采用C
#编写，但C#编译器自身则使用C++编写而成。Exchange SQL Server FrontPage Project
所有游戏......
o KDE：K Desktop Environment（Linux）。
o Symbian OS：最流行的蜂窝电话OS之一。
C＋＋源于C语言，还记得很久以前学习C语言的时光（那是一段快乐而充实的时光），可是
现在学习C＋＋，并不是在C的基础上加上了类而已，如果这样认为，我们是耍不好C＋＋的
。因此，C＋＋绝不是C的升级或扩充，我们应该把C＋＋当作一门新语言来学习（C＋＋之
父Bjarne Stroustrup语）。
写程序首先希望是程序能正确执行，其次是效率能够被接受，再次就是易于维护。C＋＋是
一个难学易用的语言。C＋＋提供了太多可选择的东西，而且使用使用C＋＋来写程序可以
有四种思考模式：基于过程、基于对象、面向对象和泛型。我们使用一种语言来写程序，
并不意味着就是使用语言本身，换句话说，我们更多的时候是使用程序库在写程序。比如
MFC、STL、ATL、VCL等等。其中要使用C＋＋来写出结构优美、性能卓越、代码简洁、易于
维护的代码，首推C＋＋标准程序库。STL对效率做了严格的要求，而且使用STL写出来的程
序简洁美观（前段时间我特意贴了一个要求对若干整数进行排序的帖子，其实目的就是用来
展示STL的简洁优雅）。一旦习惯使用泛型思维来考虑问题，我们能够充分体会到模板带来的美！
对于数值计算来说，C＋＋标准程序库可以充分满足现代化服务和商业计算对数据、信息的即
时回应的要求。
我觉得学好一门语言最重要的就是实践。也就是多“写”！“工程经验之积累”对已具有
一段开发时间的程序员而言，非常重要！只有在不断的积累中，我们才能渐渐体会到C＋＋
语言中的一些背后的东西。对于这点，没有大量程序代码写作经验的菜鸟，也可以借助《
Effective C++》先攒一些经验值。《Effective C++》是一本好书！。Meyers的书绝对值
得一读，Meyers可以说当今C＋＋社群中数一数二的技术专家。
推荐网站：
www.royaloo.com
以下文字应该是去年所涂鸦而成，主要是关于动态内存分配的，在这里将其重新看了看
，觉得还是写得太浅薄了。因为内存是程序运行的“运动场”，对场地的了解程度会直接
影响到我们程序运行的流畅度和稳定性。
C++提供了操作符new来在堆上分配内存，操作符delete来释放内存。有些情况下，我
们需要对内存的分配和释放进行更好的控制。许多程序创建和释放一些重要类的大量的对
象，如tree nodes,linked lists links,points,lines,messages,etc.使用通用的内存分
配器如new和delete来进行这些对象的分配和释放有时将支配程序的运行时间和内存需求。
两方面的因素：通用内存分配操作的运行和空间的耗费以及不同对象大小引起的内存碎片
。类使用定制的内存分配器将加快模拟器、编译器和类似程序的执行速度。
例外一种需要更好的内存控制的情况是：需要在有限资源的情况下长时间不间断运行
的程序。实时系统经常需要用最少的耗费来获取有保证的可预期的内存。这也就导致了更
好的内存控制的需要。一般来说，这些程序都避免使用动态的内存分配，而使用特殊目的
的内存分配器来管理有限资源。
此外，还有一些情况下由于硬件或系统的要求，需要将对象放在指定的内存位置。这也
需要进行定制的内存管理(通过重载new来加以实现)。
在C++ Release 2.0中，为了满足以上需求，内存管理机制做了相应的修改。主要是引
进了operator new [] 和 operator delete []。
new操作符的作用范围（Scope for operator new Functions）
操作符(Operator) 范围(Scope)
::operator new Global
class-name::operator new Class
operator new的第一个参数必须是类型size_t（在STDDEF.H中定义的类型），返回类型
为void *。
当分配内建(built-in）类型的对象、未包含用户自定义的new操作符函数的类对象、任何
类型的数组时，使用全局new操作符函数。当在类中自定义new操作符时，分配该类对象的
内存时，调用该类的new操作符。如下：
＃i nclude
＃i nclude
class Blanks
{
public:
Blanks(){}
void *operator new( size_t stAllocateBlock, char chInit );
};
void *Blanks::operator new( size_t stAllocateBlock, char chInit )
{
void *pvTemp = malloc( stAllocateBlock );
if( pvTemp != 0 )
memset( pvTemp, chInit, stAllocateBlock );
return pvTemp;
}
int main()
{
Blanks *a5 = new( 0xa5 ) Blanks;//创建对象Blanks，并且初试化为0xa5
return a5 != 0;
}
new操作符可以重载，而delete却不行。因为等到需要释放的时候，我们所能得到的就
是一个指针。而且该指针可能不是原先的对象类型指针（有可能进行了类型转换）。实际
上，当使用new获得一个指向一片内存的指针时，在该片内存前有一个指示器(indicator)
，记录实际分配的内存数量。当调用delete时，可以获知需要释放的内存大小。
数组的释放(Deallocating Arrays):
void f( )
{
X* p1 = new X[10];
//...
delete [] X;
}
为什么不使用delete [10] X;来释放内存？Bjarne Stroustrup称这种做法容易导致错
误，而将记录元素个数的任务放在delete的实现中了。
至于为什么C++中未内建垃圾收集器(Garbage Collection)的原因，看《C＋＋语言的设
计和演化》(En) Bjarne Stroustrup 机械工业出版社（俗称：D&E）可以得到答案。
此外，C＋＋标准库中提供了一种智能型指针auto_ptr,这种指针可以帮助我们防止“被
异常抛出时发生资源泄漏”。但是缺点是该智能型指针不能指向数组，因为其内部释放内
存是通过delete而非delete [] 来进行的。所以，只能使用其来指向一个单个对象。
模板部分是C＋＋中比较难的部分，也是C＋＋的魅力所在。以下文字是我以前看过的，具
体出处不清楚了。今天稍微整理了一下，作为模板介绍的一个单元。
为什么要使用模板
对于除类型之外，其余都相同的函数（譬如quicksort），我们一般有3种解决办法。
1、针对每个不同的类型重复地编写函数实体(C语言的做法)：
int* quicksort(int a[]) {... }
double* quicksort(double a[]) {... }
…
2、使用Object（Java的做法）或者void*
缺点有两个
效率问题方面也有问题
类型检查问题
3、使用宏预处理机制
缺点：只是愚蠢的文本替换，而且也不会考虑作用域和类型安全。
然而，应用模板却可以避免这些缺点，我们可以编写：
template
T* quicksort(T a[]) {... }
优点：
代码简洁优雅，所有参数类型都以T来代替，真正实现了类型无关性。
更好的类型安全性，所有的类型检查都是在编译期进行，而且避免使
用指针。
不存在继承，效率高。（1）没有虚函数；（2）所有的一切工作都是
在编译期完成，大大提高运行效率。
目的：告诉编译器如何做出最佳的选择，而且这种选择
全部是在编译期完成的。
模板的机制：特化 和 实参演绎
1、特化
基本模板：
template
class A { // (1)
void f(T1 a, T2 b);
}
局部特化（偏特化）：
template class A { // (2)
void f(int a, T2 b);
}
或者
template> class A { // (3)
void f(T a, T b);
}
全局特化（显式特化）：
template<>
class A {
void f(int a, int b); // (4)
}
使用示例：
A* p1; //将使用(4) ——全局特化
A* p2; //将使用（3） ——局部特化
A* p3; //将使用（2） ——局部特化
A* p4; //将由（1） ——基本模板——生成
//A
优点：
由：全局特化->局部特化->基本模板，这种特化顺序的选择与匹配（重载解析规则）是由编译器自动进行的，无需人工参与。
可以根据不同的情况（诸如类型不同，条件不同），给出不同的实现，从而获得更加灵活的针对性。
可以针对任何变化，改善了程序的扩展性。
2 实参演绎
T const& f(T const& a, T const& b)
{
return a + b; //1处
}
int g = f(1,2);
实际上f(1,2)要匹配的函数是int const& f(int const&,int const&);
而这个函数又是怎么来的呢？
优点：
再也无需提供一对尖括号和里面的实参，诸如f(1,2)，有了
实参演绎，我们就可以写成f(1,2)。
模板的应用
1、标准库(STL)——到处都是模板代码
标准库＝算法＋容器＋迭代器
如list /
2、类型无关性（T）
3、trait和policy
（1）trait: 主要用到了许多typedef和特化,指定的是一种特性。
// traits/accumtraits3.hpp
template
lass AccumulationTraits;
c template<>
class AccumulationTraits {
public:
typedef int AccT;
static AccT const zero = 0;
};
template<>
class AccumulationTraits {
public:
typedef int AccT;
static AccT const zero = 0;
};
template<>
class AccumulationTraits {
public:
typedef long AccT;
static AccT const zero = 0;
};
（2）policy：通常表现为某个函数，指定的是一种行为
class SumPolicy {
public:
template
static void accumulate (T1& total, T2 const & value) {
total += value;
}
};
（3）trait和policy的用法：
template>
class Accum {
public:
typedef typename Traits::AccT AccT;
static AccT accum (T const* beg, T const* end) {
AccT total = Traits::zero();
while (beg != end) {
Policy::accumulate(total, *beg);
++beg;
}
return total;
}
};
4、Metaprogramming
编译期计算、递归的思想
5、新形式的设计模板
(第三、第四、第五点以后再详细介绍)
《C++ Templates中文版》的具体介绍
第1部分介绍了模板的基本概念，以教程的风格来介绍这些基本概念。
第2部分阐述了模板的语言细节，可以作为一本基于模板的构造的参考手册。
第3部分介绍了C++模板所支持的基本设计技术，范围覆盖从微小的概念一直延伸到复杂的用法；一些技术在别的书籍都没有出现过。
第4部分基于前两部分，深入讨论了各种使用模板的普通应用程序。
9. sc怎么入门呢
写这个东西的目的在于让大家了解一下sc这个服务管理程序的使用，另一方面也是为了让大家更进一步的了解到nt，2000的服务的一些基础问题，如果有时间，希望大家好好看看。再来结合起上一次如何打开termservice服务的那篇文章，在服务方面大家应该比较了解了。用这个东西就可以删除在别人机器里留下的如ffsniffer, sksockerver这些东西，不用再担心，装上了删除不了。但是毕竟这个东西还是ms的产品，所以，如eventlog这样的服务，是不可以用它关闭的。累呀累呀，写了我整整一个早上，就是不知道有没有人看！
我们知道在mstools sdk，也就是在resource kit有一个很少有人知道的命令行软件，sc.exe，这个软件向所有的
windows nt和windows 2000要求控制他们的api函数。我们可以在命令行里通过对这些函数设定参数的方式来设定
他们(api)。sc.exe也可以显示服务的状态，同时也可以从状态结构区域里重新找到存储在里面的数值。它还可以
列出远程计算机的服务函数或者是服务状况结构。
sc.exe这个开发工具至少可以比服务控制面板程序和网络命令行界面(net.exe，这个东西可以告诉你一个服务是
在运行中，还是停止，还是暂停。）这两个东西提供更多的细节和准确的信息。虽然上述两个东西在正常工作的
情况下，对于完整的调试是非常好用的，但是如果有新的服务，或者新的代码被开发出来的时候，这两个工具提
供的信息可能造成误导。这也就是我们需要用到sc的原因。
下面举列说明，如果在开发阶段，你的服务在挂住在一个start-pending的时候，控制面板和net.exe同样报告服
务是在运行的。但它挂在一个stop-pending的时候，net.exe报告它运行，而控制面板着报告它停止，如果你试着
启动它，这是控制面板则会告诉你这个服务正在运行。难道这不是很困惑吗？呵呵！
sc.exe可以让你询问服务的状况和取出存储在状态结构区域内的数值，控制面板和net.exe不提供服务完整的状况
。但是无论如何，sc程序可以告诉你这个服务准确的情形，同样也可以给你看最后的checkpoint数和等待提示。
这个checkpoint，我叫它检查点(我觉得他就像一个程序调试时置的断点)，所以我们也可以把看作为一个调试工
具，因为它可以提供一个关于在程序停止时还要沿着初始化继续前进多久准确报告。
sc.exe也可以允许你调用很多的服务控制api函数，可以让你从命令行里改变大量的参数。这位服务开发者们提供
了很多的优势。例如，它提供了一个方便的方式来创建或者在注册表和服务控制管理数据库中配置服务信息。开
发者们不需要在手动的在注册表里单独的设置键值来配置服务，也不用重起机器来强迫服务控制管理数据库升级
。
作为一个命令很工具，sc.exe可以用来测试你自己的系统，你可以设置一个批处理文件来使用不同的参数调用
sc.exe来控制服务。这个很有用，如果你想看看你的服务不断的启动和停止，我没有试过哦！让一个服务一下子
打开，一下子关闭，听上去很不错的。如果你的服务进程里面有多个进程的话，你可以保持一个进程继续运行不
让它走开，然后让另一个不断的打开在关闭，还可以寻找一下内存缺乏导致不完全清楚的证据。
下面介绍sc，sc qc，and sc query
sc使用这样的语法：
1. sc [servername] command servicename [optionname= optionvalues]
2. sc [command]
这里使用第一种语法使用sc，使用第二种语法显示帮助。
下面介绍各种参数。
servername
可选择：可以使用双斜线，如\\myserver，也可以是\\192.168.0.1来操作远程计算机。如果在本地计算机上操作
就不用添加任何参数。
command
下面列出sc可以使用的命令。
config----改变一个服务的配置。（长久的）
continue--对一个服务送出一个继续控制的要求。
control----对一个服务送出一个控制。
create----创建一个服务。（增加到注册表中）
delete----删除一个服务。（从注册表中删除）
enumdepend--列举服务的从属关系。
getdisplayname--获得一个服务的显示名称。
getkeyname--获得一个服务的服务键名。
interrogate--对一个服务送出一个询问控制要求。
pause----对一个服务送出一个暂停控制要求。
qc----询问一个服务的配置。
query----询问一个服务的状态，也可以列举服务的状态类型。
start----启动一个服务。
stop----对一个服务送出一个停止的要求。
servicename
在注册表中为service key制定的名称。注意这个名称是不同于显示名称的（这个名称可以用net start和服务控
制面板看到），而sc是使用服务键名来鉴别服务的。
optionname
这个optionname和optionvalues参数允许你指定操作命令参数的名称和数值。注意，这一点很重要在操作名称和等
号之间是没有空格的。一开始我不知道，结果………………，比如，start= optionvalues，这个很重要。
optionvalues可以是0，1，或者是更多的操作参数名称和数值对。
如果你想要看每个命令的可以用的optionvalues，你可以使用sc command这样的格式。这会为你提供详细的帮助。
optionvalues
为optionname的参数的名称指定它的数值。有效数值范围常常限制于哪一个参数的optionname。如果要列表请用
sc command来询问每个命令。
comments
很多的命令需要管理员权限，所以我想说，在你操作这些东西的时候最好是管理员。呵呵！
当你键入sc而不带任何参数时，sc.exe会显示帮助信息和可用的命令。当你键入sc紧跟着命令名称时，你可以得
到一个有关这个命令的详细列表。比如，键入sc create可以得到和create有关的列表。
但是除了一个命令，sc query，这会导出该系统中当前正在运行的所有服务和驱动程序的状态。
当你使用start命令时，你可以传递一些参数（arguments）给服务的主函数，但是不是给服务进程的主函数。
sc create
这个命令可以在注册表和服务控制管理数据库建立一个入口。
语法1
sc [servername] create servicename [optionname= optionvalues]
这里的servername，servicename，optionname，optionvalues和上面的一样，这里就不多说了。这里我们详细说
明一下optionname和optionvalues。
optionname--optionvalues
描述
type=----own, share, interact, kernel, filesys
关于建立服务的类型，选项值包括驱动程序使用的类型，默认是share。
start=----boot, sys tem, auto, demand, disabled
关于启动服务的类型，选项值包括驱动程序使用的类型，默认是demand（手动）。
error=----normal, severe, critical, ignore
当服务在导入失败错误的严重性，默认是normal。
binpath=--(string)
服务二进制文件的路径名，这里没有默认值，这个字符串是必须设置的。
group=----(string)
这个服务属于的组，这个组的列表保存在注册表中的servicegrouporder下。默认是nothing。
tag=----(string)
如果这个字符串被设置为yes，sc可以从createservice call中得到一个tagid。然而，sc并不显示这个标签，所
以使用这个没有多少意义。默认是nothing
depend=----(space separated string)有空格的字符串。
在这个服务启动前必须启动的服务的名称或者是组。
obj=----(string)
账号运行使用的名称，也可以说是登陆身份。默认是localsys tem
displayname=--(string)
一个为在用户界面程序中鉴别各个服务使用的字符串。
password=--(string)
一个密码，如果一个不同于localsys tem的账号使用时需要使用这个。
optionvalues
optionname参数名称的数值列表。参考optionname。当我们输入一个字符串时，如果输入一个空的引用这意味着
一个空的字符串将被导入。
comments
the sc create command performs the operations of the createservice api function.
这个sc create命令执行createservice api函数的操作。详细请见createservice。
例1
下面这个例子在一台叫做（\\myserver）的计算机上为一个叫“newservice”的服务建立的一个注册表登记。
sc \\myserver create newservice binpath= c:\winnt\sys tem32\newserv.exe
按照默认，这个服务会建立一个win32_share_process使用service_demand_start启动方式。这将不会有任何从属
关系，也将会按照localsys tem安全上下关系来运行。
例2
下面这个例子将在本地计算机上，建立一个服务，它将会是一个自动运行服务，并且运行在他自己的进程上。它
从属于tdi组和netbios服务上。注意，你必须在从属中间增加一个空格的引用。
sc create newservice binpath= c:\winnt\sys tem32\newserv.exe type= own
start= auto depend= "+tdi netbios"
例3
服务开发者可以通过临时改变二进制路径（影像路径）的方式来将这个服务运行在内核调试器的上下关系中。下
面这个例子就可以让我们看到如何改变服务的配置。
sc config newservice binpath= "ntsd -d c:\winnt\sys tem32\newserv.exe"
这个例子会引起服务控制管理器调用ntsd.exe使用下例的参数字符串：
"-d c:\nt\sys tem32\newserv.exe"
当系统装入newserv.exe时ntsd将会转而打断调试器，所以断点可以被设置在服务代码里。
sc qc
这个sc qc“询问配置”命令可以列出一个服务的配置信息和query_service_config结构。
语法1
sc [servername] qc servicename [buffersize]
parameters
servername和servicename前面已经介绍过了，这里不再多说。
buffersize，可选择的，列出缓冲区的尺寸。
comments
sc qc命令显示了query_service_config结构的内容。
以下是query_service_config相应的区域。
type------dwservicetype
start_type----dwstarttype
error_control----dwerrorcontrol
binary_path_name--lpbinarypathname
load_order_group--lploadordergroup
tag------dwtagid
display_name----lpdisplayname
dependencies----lpdependencies
service_start_name--lpservicestartname
例1
下面这个例子询问了在上面例子中建立的“newservice”服务的配置：
sc \\myserver qc newservice
sc显示下面的信息：
service_name: newservice
type : 20 win32_share_process
start_type : 3 demand_start
error_control : 1 normal
binary_path_name : c:\winnt\sys tem32\newserv.exe
load_order_group :
tag : 0
display_name : newservice
dependencies :
service_start_name : localsys tem
newservice有能力和其他的服务共享一个进程。但是它不是自动启动的。二进制文件名是newserv.exe。这个服务
不依靠与其它的的服务，而且运行在lcoalsys tem的安全上下关系中。这些都是调用queryservicestatus基本的返
回，如果还需要更多的细节届时，可以看看api函数文件。
sc query
sc query命令可以获得服务的信息。
语法：
sc [servername] query { servicename │ optionname= optionvalues... }
参数：
servername, servicename, optionname, optionvalues不在解释。只谈一下这个命令提供的数值。
optionname--optionvalues
description
type=----driver, service, all
列举服务的类型，默认是service
state=----active, inactive, all
列举服务的状态，默认是active
bufsize=--(numeric values)
列举缓冲区的尺寸，默认是1024 bytes
ri=----(numeric values)
但开始列举时，恢复指针的数字，默认是0
optionvalues
同上。
comments
sc query命令可以显示service_status结构的内容。
下面是service_status结构相应的信息：
type------dwservicetype
state------dwcurrentstate, dwcontrolsaccepted
win32_exit_code----dwwin32exitcode
service_exit_code--dwservicespecificexitcode
checkpoint----dwcheckpoint
wait_hint----dwwaithint
在启动计算机后，使用sc query命令会告诉你是否，或者不是一个启动服务的尝试。如果这个服务成功启动，win32_exit_code区间会将会包含一个0，当尝试不成功时，当它意识到这个服务不能够启动时，这个区间也会提供一个退出码给服务。
例子
查询“newservice"服务状态，键入：
sc query newservice
显示一下信息：
service_name: newservice
type : 20 win32_share_process
state : 1 stopped
(not_stoppable,not_pausable,ignores_shutdown)
win32_exit_code : 1077 (0x435)
service_exit_code : 0 (0x0)
checkpoint : 0x0
wait_hint : 0x0
注意，这里存在一个给这个服务的退出码，即使这个服务部不在运行，键入net helpmsg 1077，将会得到对1077错误信息的说明：
上次启动之后，仍未尝试引导服务。
所以，这里我想说一句，希望大家可以活用net helpmsg，这会对你的学习有很大的帮助。
下面在对sc query的命令在说明一下：
列举活动服务和驱动程序状态，使用以下命令：
sc query
显示messenger服务，使用以下命令：
sc query messenger
只列举活动的驱动程序，使用以下命令：
sc query type= driver
列举win32服务，使用以下命令：
sc query type= service
列举所有的服务和驱动程序，使用以下命令：
sc query state= all
用50 byte的缓冲区来进行列举，使用以下命令：
sc query bufsize= 50
在恢复列举时使用index=14，使用以下命令：
sc query ri=14
列举所有的交互式服务，使用以下命令：
sc query type= service type= interact
好了，说到这里。sc命令基本上已经说完了。希望大家好好看看，呵呵！相信会有帮助的！！