[求助]手上有个被加密的VBA文件那位大哥可否帮忙解开

ngeqt521

我用Office Key or Advanced VBA Password Recovery PRO or VBA Password Bypasser这三个都解不开,这是一家台湾公司写的读取硬盘序列号的小程序

fjfhgdwfn

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
    
     Function GetSerialNumber(strDrive As String) As Long
    
     Dim SerialNum As Long
    
     Dim Res As Long
     Dim Temp1 As String
     Dim Temp2 As String
    
     Temp1 = String$(255, Chr$(0))
     Temp2 = String$(255, Chr$(0))
    
     Res = GetVolumeinformation(strDrive, Temp1, _
     Len(Temp1), SerialNum, 0, 0, Temp2, Len(Temp2))
    
     GetSerialNumber = SerialNum
    
     End Function
    
     Sub GetNum()
     Dim DNum As String
       DNum = GetSerialNumber("C:\")
       ThisDrawing.SetVariable "USERS1", DNum
     End Sub

ngeqt521

大哥你能给我密码吗?I服了YOU OR THANK YOU

ngeqt521

下面有一个是VB写的获取硬盘序列号的代码:

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

Private Sub Command1_Click()
  Dim mySerial As Long
  Dim mylong As Long
  mystr = String$(255, Chr$(0))
  mytype = String$(255, Chr$(0))
  If Right(Text1.Text, 1) <> "\" Then Text1.Text = Text1.Text & "\"
  sRoot = Text1.Text                                   '设定盘名
  mylong = GetVolumeInformation(sRoot, mystr, Len(mystr), mySerial, 0, 0, mytype, Len(mytype))
  Text2.Text = mySerial                                'TEXT2 存放盘序列号
End Sub

Private Sub Command3_Click()
  End
End Sub

wyj7485

是一样的

fjfhgdwfn

这个论坛就有。自己搜下我的贴子。

xcajcj

没看明白

玄冰草

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
    
     Function GetSerialNumber(strDrive As String) As Long
    
     Dim SerialNum As Long
    
     Dim Res As Long
     Dim Temp1 As String
     Dim Temp2 As String
    
     Temp1 = String$(255, Chr$(0))
     Temp2 = String$(255, Chr$(0))
    
     Res = GetVolumeinformation(strDrive, Temp1, _
     Len(Temp1), SerialNum, 0, 0, Temp2, Len(Temp2))
    
     GetSerialNumber = SerialNum
    
     End Function
    
     Sub GetNum()
     Dim DNum As String
       DNum = GetSerialNumber("C:\")
       ThisDrawing.SetVariable "USERS1", DNum
     End Sub

H××兄更胜一筹