قفل نرم افزاری براساس شماره سریال hard

***UNIQUE*** · Nov 27, 2005

سلام
من یه قفل نرم افزاری میخوام که براساس شماره سریال hard باشه یعنی دفعه اول ه اجرا میشه شماره سریال هارد رو بگیره و دیگه فقط رو اون hard بتونه اجرابشه.
شما این قفل رو دارید؟
با تشکر

MnavidM · Nov 28, 2005

سلام.

منظورت برنامه آماده هست ؟

يا اينكه خودتون اين برنامه رو بنويسيد ؟

برنامه از رو سيدي اجرا ميشه يا هارد ... مشخص كنيد .

نويد.

***UNIQUE*** · Nov 28, 2005

نه ندارم میخواستم ببینم کسی داره ؟
منظورتون رو متوجه نشدم ؟از رو cd رو System نصب میشه دیگه !
این برنامه یک Windows Apllication است اما مثل Winoows Service رو سیستم عمل میکنه! D:

MnavidM · Nov 29, 2005

سلام.

برنامه آماده مخصوص این کار ندیدم .

اما خودتون می تونید بنویسد ، کافی تابع مورد نظر جهت گرفتن شماره سریال رو در زبان مربوطه پیدا کنید .

بعد خودتون با روش های مختلف می تونید برای برنامتون قفل بزارید .

نوید.

sanbad · Dec 2, 2005

قفل نگهبان و قفل پرولاک توليد ايران هست: novinmedia.com
www.protectionkey.com

قفل هاي زير نيز توليد خارج و ارزان هستند:

http://www.strongbit.com

www.softworkz.com

***UNIQUE*** · Dec 2, 2005

از توجهتون ممنونم
چیزی که میخواستم پیدا کردم

sh_sepehr · Dec 7, 2005

میشه بگین در Vb از چه تابعی میشه برای بدشت آوردن کد هارد استفاده کرد ؟ !!!

night11 · Dec 7, 2005

از این استفاده کن

کد:

Public Declare Function GetVolumeSerialNumber Lib "kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As Long, ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, ByVal lpMaximumComponentLength As Long, ByVal lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As Long, ByVal nFileSystemNameSize As Long) As Long

Public Function VolumeSerial(DriveLetter) As Long
    Dim Serial As Long
    Call GetVolumeSerialNumber(UCase(DriveLetter) & ":\", 0&, 0&, Serial, 0&, 0&, 0&, 0&)
    VolumeSerial = Serial
End Function

Example

کد:

MsgBox VolumeSerial("C")

***UNIQUE*** · Dec 8, 2005

سلام
این فایل رو ببینید
دستورش در vb6 هم همراهشه .
اما مشکلم کامل حل نشد Sample اون هم در .net اطلاعات رو نمیده اجرا میشه اما بعضی جاها bug میده و کلا" کار نمیکنه
این لینک رو هم ببینید
http://www.activexperts.com/activmonitor/windowsmanagement/wmi/samples/hw/#Win32_SerialPort.htm
ممنون میشم دوستانی که میتونن این مشکل رو حل کنند من رو هم راهنمایی کنند

sh_sepehr · Dec 8, 2005

من میزنم Compile Erorr میزنه !!! میشه یکم بیشتر توضیح بدین ؟؟!!!!

***UNIQUE*** · Dec 8, 2005

سلام
با تشکر از توجهتون
شما باید اون فایل vbp. رو با VisualStudio.net باز کنید بعد خودش شروع به ساخت یه پروژه میکنه بعد از اینکه کارش تموم شد یه پروژه vb.net با source در اختیار شماست اون رو اجرا کنید.
امیدورام مشکل حل شده باشه.
اگر مشکل غیر از اینه لطفا" متن Error رو بنویسید شاید بتونم برای اجراش کمکتون کنم
- چون برای من اجرا میشه اما در tabPage Information بعد از اجرا اطلاعات سیستمم رو نمیده و کلا" کار خاصی انجام نمیده(یا به عبارتی من نتونستم باهاش درست کار کنم)! -
موفق باشید