zjdh的留言板 - Excel精英培训网

zjdh

向前650809 2014-3-10 20:19: 在VB的窗体中写入代码或
DiskID32.DLL 放在 C:\WINDOWS\system32 目录下，可获得硬盘序列号
但放在system32中，别人使用不便
我是想把DISKID32.DLL放在与EXCEL文件的同一夹中，这样方便。但未能实现

向前650809 2014-3-9 20:09: 老师，在这个代码上作作文章
Option Explicit
Private Declare Function DiskID32 Lib "DiskID32.DLL" (ByRef DiskModel As Byte, ByRef DiskID As Byte) As Long

Sub huoquzhucema()
Dim DiskModel(31) As Byte, DiskID(31) As Byte, i As Integer, Model As String, ID As String
If DiskID32(DiskModel(0), DiskID(0)) <> 1 Then
      MsgBox "get diskid32 err"
      Exit Sub
End If
For i = 0 To 31
      If Chr(DiskModel(i)) <> Chr(0) Then
         Model = Model & Chr(DiskModel(i))
      End If
      If Chr(DiskID(i)) <> Chr(0) Then
         ID = ID & Chr(DiskID(i))
      End If
Next
MsgBox "硬件产生代码为：" + Model
MsgBox "硬盘序列号为：" + ID

End Sub

使"DiskID32.DLL" 在EXCEL文件所在文件夹中，也能获得相关信息

向前650809 2014-3-9 16:27: 别人使用时，如何能把DISKID32.DLL放到system32文件夹中
能不能修改代码，使得让DISKID32.DLL在程序文件夹中，即可查出硬盘序列号。
给指导一下。谢谢

wszbd 2013-12-27 21:13: 看看这个问题：http://www.excelpx.com/thread-316363-1-1.html

向前650809 2013-10-29 10:47: 你好，我看不懂下面的代码，请给解释一下各行的意思
Private Sub TextBox1_Change()
If Not IsNumeric(TextBox1.Value) And TextBox1.Value <> "" Then
      Application.EnableEvents = False
      MsgBox "你必须输入数字！"
      TextBox1 = ""
      Application.EnableEvents = True
End If
End Sub

谢谢

向前650809 2013-10-27 17:11: 你好，这是你给我的代码
Private Sub TextBox1_Change()
If Not IsNumeric(TextBox1.Value) And TextBox1.Value <> "" Then
      Application.EnableEvents = False
      MsgBox "你必须输入数字！"
      TextBox1 = ""
      Application.EnableEvents = True
End If
End Sub
我看不懂，请解释一下各行代码的含义
谢谢

		自动登录	找回密码
密码			注册