防毒面具的佩戴方法:用VB编写的程序怎样能像大游戏一样有存储进度功能啊？

我的游戏代码中的一段给你截出来 ，自己研究一下吧。
which第几个存档
put储存变量的语句
'保存
Sub SaveGame(Which As Integer)
Open AppPath & "save\save" & Which & ".sav" For Binary Access Write Lock Write As #1
Put #1, 1, SMapInt
Put #1, , THour
Put #1, , TMin
Put #1, , TSec
Put #1, , Oldx
Put #1, , Oldy
Put #1, , CenterintX
Put #1, , CenterintY
Put #1, , Npcc1
Close #1
End Sub
'读取
Sub LoadGame(Which As Integer)
Dim i%
Dim Npcc1() As Npcc

Open AppPath & "save\save" & Which & ".sav" For Binary Access Read Lock Write As #1
Get #1, 1, SMapInt
Get #1, , THour
Get #1, , TMin
Get #1, , TSec
Get #1, , Oldx
Get #1, , Oldy
Get #1, , CenterintX
Get #1, , CenterintY
ReDim Npcc1(SMapInt.IntNpc)
Get #1, , Npcc1
Close #1

End Sub

可以用一个config文件来保存游戏的信息
但是这种方法太简单只适合比较小的游戏。
但是大游戏也是用一定的文件来存储游戏的进度的。
主要是记录游戏中所要用到的各种信息，用于恢复游戏的上次进行的进度