Question

VB制作的exe每次关闭时怎么保存数据（请给我代码）

本人为新手，希望得到代码，这样以后就能一直做软件了

Answer 1

Form1.frm代码( 下面附有源码下载地址)

Private Sub Command1_Click()
Unload Me
End Sub

Private Sub Form_Load()
On Error Resume Next '避免在首次启动时出现读取不到的错误
Set WSHshell = CreateObject("WScript.Shell") '在开始时读入注册表键值
Check1.Value = WSHshell.RegRead("HKEY_CURRENT_USER\Software\你的软件名称\键值名称1")
Check2.Value = WSHshell.RegRead("HKEY_CURRENT_USER\Software\你的软件名称\键值名称2")
Check3.Value = WSHshell.RegRead("HKEY_CURRENT_USER\Software\你的软件名称\键值名称3")
Text1.Text = WSHshell.RegRead("HKEY_CURRENT_USER\Software\你的软件名称\键值名称4")
End Sub

Private Sub Form_Unload(Cancel As Integer)
'在退出时将配置写入注册表
Set WSHshell = CreateObject("WScript.Shell")
WSHshell.RegWrite "HKEY_CURRENT_USER\Software\你的软件名称\键值名称1", Check1.Value, "REG_DWORD" '键值类型:REG_DWORD 数字,REG_SZ:任意字符,Hex:二进制数据
WSHshell.RegWrite "HKEY_CURRENT_USER\Software\你的软件名称\键值名称2", Check2.Value, "REG_DWORD"
WSHshell.RegWrite "HKEY_CURRENT_USER\Software\你的软件名称\键值名称3", Check3.Value, "REG_DWORD"
WSHshell.RegWrite "HKEY_CURRENT_USER\Software\你的软件名称\键值名称4", Text1.Text, "REG_SZ"
End Sub

Answer 2

在EXE退出时的事件UNLOAD里，添加上你的保存数据的代码，这个保存可以保存到注册表，数据库，INI文件，加密文件，TXT里都可以。由于你什么也没有说，保存什么数据，要怎么保存，无法给出代码。
还有，如果只是玩玩，不可以一直做软件；
如果要有了代码才能一直做软件，不做也罢；

Answer 3

在主窗口的unload事件中加入保存数据的代码。