Ja implementimi i nje shembulli te thjesht si mund te kontrollohet numri i hardiskut te nje kompjuteri dhe vlersimi se a mund te perdorim apo jo kete program ne kete hardisk, nese numri nuk perputhet accessi do te perfundoje (Kujdes ketu se mund te bllokosh edhe programin tend). Para se te perdorni kete cope kodi ruani programet tuaja ne nje vend tjeter!
Kodi:
Option Compare Database
Private Sub Form_Load()
Dim serHardisk As Long
serHardisk = GetDriveSerialNumber
If serHardisk = 815 Then
MsgBox "Numri serial hardiskut " & Left(AppPath, 1) & ":\ eshte " & GetDriveSerialNumber & _
vbCrLf & "Ju keni te drejte te perdorni kete Program!", vbOKOnly + vbInformation
Else
MsgBox "Numri serial hardiskut " & Left(AppPath, 1) & ":\ eshte " & GetDriveSerialNumber & _
vbCrLf & "Ju nuk keni te drejte te perdorni kete Program!" & vbCrLf & "PAPA!", vbOKOnly + vbInformation
Dim a
a = InputBox("Jepni numrin e sakte serial!")
If serHardisk = a Then
MsgBox "Numri serial hardiskut " & Left(AppPath, 1) & ":\ eshte " & GetDriveSerialNumber & _
vbCrLf & "Ju keni te drejte te perdorni kete Program!", vbOKOnly + vbInformation
Else
MsgBox "Numri serial hardiskut " & Left(AppPath, 1) & ":\ eshte " & GetDriveSerialNumber & _
vbCrLf & "Ju nuk keni te drejte te perdorni kete Program!" & vbCrLf & "PAPA!", vbOKOnly + vbInformation
'DoCmd.Quit 'Mbyll Accessin dhe Databazen! PERDORE ME KUJDES SEPSE MUND TA BLLOKOSH PROGRAMIN TEND
End If
End If
End Sub
Public Function GetDriveSerialNumber(Optional ByVal DriveLetter As String) As Long
Dim fso As Object, Drv As Object
Set fso = CreateObject("Scripting.FileSystemObject")
If DriveLetter <> "" Then
Set Drv = fso.GetDrive(DriveLetter)
Else
Set Drv = fso.GetDrive(fso.GetDriveName(AppPath))
End If
With Drv
If .IsReady Then
DriveSerial = Abs(.SerialNumber)
Else
DriveSerial = -1
End If
End With
Set Drv = Nothing
Set fso = Nothing
GetDriveSerialNumber = DriveSerial
End Function
Public Function AppPath() As String
Dim sPath As String
sPath = CurrentDb.Name
While Right$(sPath, 1) <> "\"
sPath = Left$(sPath, Len(sPath) - 1)
Wend
AppPath = sPath
End Function
per te kontrolluar se sa here eshte hapur ky program nga perdoruesi mund te perdoret nje tekstfile e fshehur diku ne system qe numron startimet e programit dhe nese startimet e paregjistruara arrijne numrin 3 atehre mund te aktivizohet nje funksion qe fshin databazen prej sistemi.
Krijoni Kontakt