sunsetyang没走吧？

[SANVII]

我想知道的正是怎样保存到外部文件或注册表中。（源代码）
e-mail:[e-mail]

[SANVII]

非常谢谢！

[sunsetyang]

如果要写到外部文件中，那么你可以自己定义它的文件格式。二进制文件也好，文本格式也好，都可以满足你的要求的。你可以使用kernel32.dll中提供的api函数CreateFile,ReadFile,WriteFile来完成对文件的操作。具体的：
Declare Function WriteFile Lib "kernel32" _
(ByVal hFile As Long, _
ByVal lpBuffer As Any, _
ByVal nNumberOfBytesToWrite As Long, _
lpNumberOfBytesWritten As Long, _
lpOverlapped As Any) As Long

Declare Function ReadFile Lib "kernel32" _
(ByVal hFile As Long, _
lpBuffer As Any, _
ByVal nNumberOfBytesToRead As Long, _
lpNumberOfBytesRead As Long, _
lpOverlapped As Any) As Long

Declare Function CreateFile Lib "kernel32" _
(ByVal lpFileName as String,_
ByVal dwDesiredAccess as Long,_
ByVal dwShareMode as Long,_
ByVal lpSecurityAttributes as Any,_
ByVal dwCreationDisposition as Long,_
ByVal dwFlagsAndAttributes as Long,_
ByVal hTemplateFile as Long
) As Long



hFile = CreateFile("MYFILE.TXT", GENERIC_READ,FILE_SHARE_READ,
NULL,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,
NULL);
ReadFile(hFile,buf,size,ReadCount, ByVal 0&)
WriteFile的用法类似于ReadFile.
这就可以将文件的内容读入buf中，然后就可以对buf中内容进行操作了。具体的加密算法，你可以自己设计。简单的复杂的，都可以。
如果用注册表的话，你可以使用SaveSetting,GetSetting,DeleteSetting对注册表内的信息进行管理。
SaveSetting appname, section, key, value
GetSetting(appname, section, key[, default])
DeleteSetting(appname, section, key)
如：
SaveSetting "MyProgram", "Password", "Value", EncrptPasswd
GetSetting("MyProgram","Password","Value",EncrptPasswd)
Delete("MyProgram","Password","Value")