请问：如何在自己写的程序里作记号？

Question

我现在做了一个ＶＢ程序，运行时，有一些内容想保存在这个程序的自身，可以做到吗？
我想做个有使用次数的程序限制的程序，这个使用次数要保存在这个程序的自身

Answer 1

'根键常数
　　Const HKEY_CLASSES_ROOT = -2147483648#
　　Const HKEY_CURRENT_USER = -2147483647#
　　Const HKEY_LOCAL_MACHINE = -2147483646#
　　Const HKEY_USERS = -2147483645#　　'键值类型
　　Const REG_SZ = 1& '字符串值
　　Const REG_BINARY = 3& '二进制值
　　Const REG_DWORD = 4& 'DWORD 值　　'声明有关API函数
　　Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" _
　　　　( _
　　　　　ByVal hKey As Long, _
　　　　　ByVal lpSubKey As String, _
　　　　　ByRef phkResult As Long _
　　　　　) As Long '建立一个新的主键　　Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" _
　　　　( _
　　　　　ByVal hKey As Long, _
　　　　　ByVal lpSubKey As String, _
　　　　　ByRef phkResult As Long _
　　　　) As Long '打开一个主键　　Private Declare Function RegDeleteKey Lib "advapi32.dll" Alias "RegDeleteKeyA" _
　　　( _
　　　　ByVal hKey As Long, _
　　　　ByVal lpSubKey As String _
　　　) As Long '删除一个主键　　Private Declare Function RegCloseKey Lib "advapi32.dll" _
　　　( _
　　　　ByVal hKey As Long _
　　　) As Long '关闭一个主键　　Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" _
　　　( _
　　　　ByVal hKey As Long, _
　　　　ByVal lpValueName As String, _
　　　　ByVal Reserved As Long, _
　　　　ByVal dwType As Long, _
　　　　ByVal lpData As Any, _
　　　　ByVal cbData As Long _
　　　) As Long '创建或改变一个键值,lpData应由缺省的ByRef型改为ByVal型　　Private Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" _
　　　( _
　　　　ByVal hKey As Long, _
　　　　ByVal lpValueName As String, _
　　　　ByVal lpReserved As Long, _
　　　　ByRef lpType As Long, _
　　　　ByVal lpData As Any, _
　　　　ByRef lpcbData As Long _
　　　) As Long '查询一个键值,lpData应由缺省的ByRef型改为ByVal型　　Private Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" _
　　　( _
　　　　ByVal hKey As Long, _
　　　　ByVal lpValueName As String _
　　　　) As Long '删除一个键值　　'主过程
　　Sub Main()
　　　Dim nKeyHandle As Long, nValueType As Long, nLength As Long
　　　Dim sValue As String
　　　sValue = "I am a winner!"
　　　Call RegCreateKey(HKEY_CURRENT_USER, "New Registry Key", nKeyHandle)
　　　Call RegSetValueEx(nKeyHandle, "My Value", 0, REG_SZ, sValue, 255)
　　　sValue = Space(255)
　　　nLength = 255
　　　Call RegQueryValueEx(nKeyHandle, "My Value", 0, nValueType, sValue, nLength)
　　　MsgBox sValue
　　　Call RegDeleteValue(nKeyHandle, "My Value")
　　　Call RegDeleteKey(HKEY_CURRENT_USER, "New Registry Key")
　　　Call RegCloseKey(nKeyHandle)
　　End Sub　　这个不行你告诉我，我跳楼哈！^_^