Question

如何用vb实现软件使用时间限制???

用VB怎么给工程添加时间限制
就是比喻说 一个程序他的运行时间是1分钟-1分钟过期
以后不能再运行了。
求这一个代码 请给位VB高手 给予赐教

Answer 1

Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long
Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long
Const REG_MULTI_SZ As Long = &H7
Const REG_SZ As Long = &H1
Const REG_EXPAND_SZ As Long = &H2
Const HKEY_LOCAL_MACHINE = &H80000002

Public Function getRegData() As String
Dim hsubkey As Long
Dim hctosKey As Long
Dim SerialNOKey As Long
Dim RegVal As String
Dim tlen As Long
RegOpenKey HKEY_LOCAL_MACHINE, "SOFTWARE\test\mymark", hsubkey
RegQueryValueEx hsubkey, "usermark", 0, REG_EXPAND_SZ, 0, tlen
RegVal = String(tlen, " ")
RegQueryValueEx hsubkey, "usermark", 0, REG_EXPAND_SZ, ByVal RegVal, tlen
RegCloseKey hsubkey
RegCloseKey HKEY_LOCAL_MACHINE
getRegData = RegVal
End Function

Public Function setRegData() As long
Dim hsubkey As Long
Dim hctosKey As Long
Dim SerialNOKey As Long
Dim RegVal As String
Dim tlen As Long
RegOpenKey HKEY_LOCAL_MACHINE, "SOFTWARE\test\mymark", hsubkey
RegSetValueEx hsubkey, "usermark", 0, REG_SZ, ByVal "TimeOver", Len("TimeOver")
RegCloseKey hsubkey
RegCloseKey HKEY_LOCAL_MACHINE
setRegData=1
End Function

sub form1_load()
if getRegData<>"TimeOver" then
end
endif
timer1.interval=60000' 一分钟
timer1.enabled=true
end sub

sub timer1_timer()
setregdata
end
end sub