ACCESS FEED: Re: [belajar-access] membuat aplikasi dengan serial number [1 Attachment]

Jumat, 20 Desember 2013

Re: [belajar-access] membuat aplikasi dengan serial number [1 Attachment]

[Attachment(s) from abyadiazwar@yahoo.com included below]

makasih bang hariyanto saya coba dulu nanti kalau sudah berhasil saya uploadkan hasilnya ya.
maaf dikarenakan tadi saya tidak menuliskan codingnya
ini yg saya pake
Public Function GetDriveSerialNumber(ByVal DriveLetter As String) As Long
    Dim Drv As Object
    Dim DriveSerial As Long

    Set Drv = CreateObject("Scripting.FileSystemObject").GetDrive(DriveLetter)
    If Drv.IsReady Then
        DriveSerial = Abs(Drv.SerialNumber)
    Else
        DriveSerial = -1
    End If

    Set Drv = Nothing
    GetDriveSerialNumber = DriveSerial
End Function

Private Sub Form_Load()
    Text2 = GetDriveSerialNumber("C")
End Sub

form ini terbuka apabila kode aktivasi tidak valid, tapi kalau sdh valid langsung ke form login
nah begitulah saya mau menggunakan keygen..