Public Declare Function GetHardwareID Lib "HardwareID.DLL" (ByVal HDD As Boolean, ByVal NIC As Boolean, ByVal CPU As Boolean, ByVal BIOS As Boolean, ByVal RegCode As String) As String
Public Declare Function GetHardwareIDWithAppID Lib "HardwareID.DLL" (ByVal AppID As String, ByVal HDD As Boolean, ByVal NIC As Boolean, ByVal CPU As Boolean, ByVal BIOS As Boolean, ByVal RegCode As String) As String
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Sub Main()
Dim b_HDD As Boolean
Dim b_NIC As Boolean
Dim b_CPU As Boolean
Dim b_BIOS As Boolean
Dim n As String
Dim m As String
Dim x As String
Dim y As String
b_HDD = False
b_NIC = False
b_CPU = False
b_BIOS = False
Shell "regsvr32 /s HardwareID.dll"
n = CStr(GetHardwareID(b_HDD, b_NIC, b_CPU, b_BIOS, "R5LR-S4TQ"))
m = CStr(App.EXEName)
x = "本程序的名字(Appname)=" & CStr(m) & "/硬件识别码(mid)=" & CStr(n)
MsgBox x
End Sub
本程序要调用一个dll(就是GetHardwareID.dll),我在本机里用VB 6.0调试可以用,但是我生成exer了就报错发生故障。实在不得其解。望各路神仙指点迷经。鄙人先谢过。
不行的。要不369352029 + 我,帮我下好吗