14-08-20, 12:45 PM
14-08-20, 01:16 PM
يمكن الاستفادة من
http://vb4arb.com/vb/showthread.php?tid=...#pid121785
http://vb4arb.com/vb/showthread.php?tid=...8%A7%D9%84
http://vb4arb.com/vb/showthread.php?tid=...8%A7%D9%84
يعني الفكرة العامة ....... استخلاص رقم الهارد ديسك مثلا من جهاز المعني ثم اعادة تشفيره و جعله رقم سريال 4اذن لن يعمل الا على جهاز المعني
هذه الدالة تساعد في التعرف على رقم الهارد
الموضوع الاصلي
http://vb4arb.com/vb/showthread.php?tid=...#pid121785
http://vb4arb.com/vb/showthread.php?tid=...8%A7%D9%84
http://vb4arb.com/vb/showthread.php?tid=...8%A7%D9%84
يعني الفكرة العامة ....... استخلاص رقم الهارد ديسك مثلا من جهاز المعني ثم اعادة تشفيره و جعله رقم سريال 4اذن لن يعمل الا على جهاز المعني
هذه الدالة تساعد في التعرف على رقم الهارد
PHP كود :
Private Declare Function GetVolumeInformation Lib "Kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long
Public Function GetSerial(StrDrive As String) As Long
Dim Serial As Long
StrDrive = FixArg(StrDrive)
GetVolumeInformation StrDrive, dummy, 255, Serial, 0, 0, dummy2, 255
GetSerial = Serial
End Function
Private Function FixArg(StrArg As String) As String '
If InStr(1, StrArg, ":") = 0 Then
FixArg = StrArg & ":"
Exit Function
Else: End If
FixArg = StrArg
End Function
الموضوع الاصلي