منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
مساعده بمعلومه من فضلكم - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : مساعده بمعلومه من فضلكم (/showthread.php?tid=36106)

مساعده بمعلومه من فضلكم - اليوم السابع - 14-08-20

لو فيه معلومه او دروس او شروحات 
ان اعمل المشروع بسيريال نمبر وما يشتغلش غير علي جهاز واحد فقط ابقي شاكر افضالكم

RE: مساعده بمعلومه من فضلكم - عبد الهادي بهاب - 14-08-20

يمكن الاستفادة من

http://vb4arb.com/vb/showthread.php?tid=25427&pid=121785#pid121785

http://vb4arb.com/vb/showthread.php?tid=21269&highlight=%D8%B3%D8%B1%D9%8A%D8%A7%D9%84

http://vb4arb.com/vb/showthread.php?tid=11245&highlight=%D8%B3%D8%B1%D9%8A%D8%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 


الموضوع الاصلي