| 改变窗口大小事件 |
| 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 |
