Visual FoxPro

Data Base Programing
 
الرئيسيةالبوابةس .و .جالتسجيلدخول

شاطر | 
 

 GetDiskSerial V4.0

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل 
كاتب الموضوعرسالة
mahdi22dz

avatar

عدد الرسائل : 7
الموقع : www.foxproFr.com
تاريخ التسجيل : 27/03/2008

مُساهمةموضوع: GetDiskSerial V4.0   الجمعة مايو 28, 2010 5:07 am

الملف GetDiskSerial V4.0 يسمح لنا بمعرفة الرقم التسلسلي للقرص الصلب و هذا مهم جدا للاخوة المبرمجين الذين يستعملون VFP لانشاء نسخ محمية .
المشكل المطروح هو ان هذا الملف يحتاج الى سريال او مايسمى ب REGCODE .
نرجو من الاخوة المشاركين مساعدتنا في ايجاد ٌRegCode او serial لهذه المكتبة.
مشكورين
الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو http://www.foxproFr.com
neoxenon



عدد الرسائل : 1
تاريخ التسجيل : 23/02/2008

مُساهمةموضوع: رد: GetDiskSerial V4.0   السبت يناير 15, 2011 4:41 am

mahdi22dz كتب:
الملف GetDiskSerial V4.0 يسمح لنا بمعرفة الرقم التسلسلي للقرص الصلب و هذا مهم جدا للاخوة المبرمجين الذين يستعملون VFP لانشاء نسخ محمية .
المشكل المطروح هو ان هذا الملف يحتاج الى سريال او مايسمى ب REGCODE .
نرجو من الاخوة المشاركين مساعدتنا في ايجاد ٌRegCode او serial لهذه المكتبة.
مشكورين


استعمل هذا الكود في تطبيقاتك :

LOCAL lnparms, lcroot, lcvolumename, lnvolumesize, lnserialno,;
lncomplen, lnsysflags, lcsysname, lnnamesize

STORE 0 TO lnserialno, lncomplen, lnsysflags
STORE SPACE(260) TO lcvolname, lcsysname
STORE LEN(lcvolname) TO lnvolsize, lnnamesize

* Declare windows API
DECLARE SHORT GetVolumeInformation IN Win32API;
STRING @lpRootPathName, STRING @lpVolumeNameBuffer,;
INTEGER nVolumeNameSize, INTEGER @lpVolumeSerialNumber,;
INTEGER @lpMaximumComponentLength, INTEGER @lpFileSystemFlags,;
STRING @lpFileSystemNameBuffer, INTEGER nFileSystemNameSize

lcroot = "C:"
lcolddec = SET('DECIMALS')
SET DECIMALS TO 0

*-- Get the volume information and return the number or false
IF getvolumeinformation(@lcroot, @lcvolname, lnvolsize, @lnserialno,;
@lncomplen, @lnsysflags, @lcsysname, lnnamesize) # 0
DO CASE
CASE lnserialno < 0 AND lnserialno > -4294967296
lnserialno = VAL(TRANSFORM(-lnserialno, '@O'))

CASE lnserialno > 0 AND lnserialno < 4294967296
lnserialno = VAL(TRANSFORM(lnserialno, '@O'))

ENDCASE
SET DECIMALS TO lcolddec
*!* THIS.nserialnumber = lnserialno
lcMess = alltrim(str(lnserialno))
RETURN .T.
ELSE
SET DECIMALS TO lcolddec
*!* THIS.nserialnumber =
lcMess = [555556789]
RETURN .F.
ENDIF
الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو
lion iraq

avatar

عدد الرسائل : 3
العمر : 31
الموقع : iraq
تاريخ التسجيل : 19/06/2010

مُساهمةموضوع: رد: GetDiskSerial V4.0   الأربعاء يناير 11, 2012 3:16 am

السلام عليكم
اخي العزيز الموضوع جميل
ولكن مادام هنالك برامج امثال الريفوكس
وطريقة الدوس لمعرفة السيريال للبارتشنات فما الحاجة للبرنامج لمعرفة السيريال او طريقة حساب الكود
واليك طريقة الدوس
من اوامر run اكتب label فقط وسوف يظهر لك سيريال المثبت عليه النظام وهو الاكثر شيوعا :C
او اكتب label Very Happy وسوف تظهر لك النتائج
تحياتي للجميع
الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو http://www.facebook.com/pages/تجمع-مبرمجي-فيجوال-فوكس-برو-الساحر
 
GetDiskSerial V4.0
استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1
 مواضيع مماثلة
-
» GetDiskSerial V4.0

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
Visual FoxPro :: المنتدى العام :: الساحة العامة-
انتقل الى: