硬盘注册码

改变窗口大小事件

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