改变窗口大小事件 |
Private Sub Form_Resize() |
|
硬盘注册代码 |
Private Sub Command1_Click() |
Set FSO = CreateObject("Scripting.FileSystemObject") |
Set d = FSO.getdrive("c:") |
xyz = Hex(d.SerialNumber) |
|
|
If Len(xyz) > 7 Then |
Vov01 = Left(Val(Right(Left(xyz, 1), 1)), 1) |
Vov02 = Left(Val(Right(Left(xyz, 2), 1)), 1) |
Vov03 = Left(Val(Right(Left(xyz, 3), 1)), 1) |
Vov04 = Left(Val(Right(Left(xyz, 4), 1)), 1) |
Vov05 = Left(Val(Right(Left(xyz, 5), 1)), 1) |
Vov06 = Left(Val(Right(Left(xyz, 6), 1)), 1) |
Vov07 = Left(Val(Right(Left(xyz, 7), 1)), 1) |
Vov08 = Left(Val(Right(Left(xyz, 8), 1)), 1) |
xxyz = Vov01 & Vov02 & Vov03 & Vov04 & Vov05 & Vov06 & Vov07 & Vov08 |
xxxyz = Left(xxyz * 9, 8) |
MsgBox xxxyz |
End If |
End Sub |