UC知道VB注册软件???/
来源：百度知道 编辑：UC知道 时间：2024/05/31 05:57:25
我刚学VB想做个注册软件但出现了问题代码如下:Private Sub Form_Load()
Dim TempStr1 As String * 256
Dim TempStr2 As String * 256
Dim TempLon1 As Long
Dim TempLon2 As Long
………
‘读取是否注册的信息，如何控制这里不再说明
………
Call GetVolumeInformation("C:", TempStr1, 256, GetVal, TempLon1, TempLon2, TempStr2, 256)
Text1.Text = GetVal ‘提取本机C盘的序列号至文本框一
End Sub
将如下程序代码添加到Command1的Command1_Click事件中：
Private Sub Command1_Click()
If Text2 〈〉 CStr(GetVal) Then
MsgBox "注册码不正确，请认真检查输入是否正确。"
Else
MsgBox "你已经成功注册，请重新启动本软件。"
………
（将正确注册的信息写入，使软件功能以后不受限制。具体方法依个人爱好进行设置。）
………
End If
End Sub 这代码出现了错误是:编译错误.子程序或函数未定义 怎么会事
Dim TempStr1 As String * 256
Dim TempStr2 As String * 256
Dim TempLon1 As Long
Dim TempLon2 As Long
………
‘读取是否注册的信息，如何控制这里不再说明
………
Call GetVolumeInformation("C:", TempStr1, 256, GetVal, TempLon1, TempLon2, TempStr2, 256)
Text1.Text = GetVal ‘提取本机C盘的序列号至文本框一
End Sub
将如下程序代码添加到Command1的Command1_Click事件中：
Private Sub Command1_Click()
If Text2 〈〉 CStr(GetVal) Then
MsgBox "注册码不正确，请认真检查输入是否正确。"
Else
MsgBox "你已经成功注册，请重新启动本软件。"
………
（将正确注册的信息写入，使软件功能以后不受限制。具体方法依个人爱好进行设置。）
………
End If
End Sub 这代码出现了错误是:编译错误.子程序或函数未定义 怎么会事
最上面加一句
Private Declare Function GetVolumeInformation Lib _
"kernel32.dll" Alias "GetVolumeInformationA" (ByVal _
lpRootPathName As String, ByVal lpVolumeNameBuffer As _
String, ByVal nVolumeNameSize As Integer, _
lpVolumeSerialNumber As Long, lpMaximumComponentLength _
As Long, lpFileSystemFlags As Long, ByVal _
lpFileSystemNameBuffer As String, ByVal _
nFileSystemNameSize As Long) As Long
但注意,这个函数并不是获取序列号,得到的只是卷区序列号
"GetVolumeInformation"此过程未定义,