تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مساعده بمعلومه من فضلكم
#1
لو فيه معلومه او دروس او شروحات 
ان اعمل المشروع بسيريال نمبر وما يشتغلش غير علي جهاز واحد فقط ابقي شاكر افضالكم
الرد
تم الشكر بواسطة:
#2
يمكن الاستفادة من

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 StringByVal lpVolumeNameBuffer As StringByVal nVolumeNameSize As LonglpVolumeSerialNumber As LonglpMaximumComponentLength As LonglpFileSystemFlags As LongByVal lpFileSystemNameBuffer As StringByVal nFileSystemNameSize As Long) As Long
 
Public Function GetSerial(StrDrive As String) As Long
Dim Serial 
As Long
 
StrDrive 
FixArg(StrDrive)
 
GetVolumeInformation StrDrivedummy255Serial00dummy2255
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 


الموضوع الاصلي
 لعل الكلمة التي تنفعني لم أكتبها بعد
عبد الله بن المبارك
الرد



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم