硬盘注册码

改变窗口大小事件

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

转载于:https://www.cnblogs.com/vov5601/p/4598461.html