منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : ممكن توضيح كيفية تشغيل البرنامج او عمل البرنامج
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
الصفحات : 1 2
(06-02-18, 12:58 AM)طالب برمجة كتب : [ -> ]تفضل المكتبة في المرفقات

بعد إضافتها يمكنك إظهار النافذة التي طلبتها بالكود
PHP كود :
Dim info As String "Phone:" vbNewLine "Mobilr:"

Dim daysToEnd As Integer 5

Dim runed 
As Integer 9

Dim frm 
As New SoftwareLocker.frmDialog("F8E0TBTB1BSTEMOF4F0F00FI9""0EB2F3486DE54C74B287D231E"daysToEndrunedinfo)
MsgBox(frm.ShowDialog().ToString

قم بتجربة التسجيل Serial التالي
0EB2F
3486D
E54C7
4B287
D231E

[صورة مرفقة: RegistrationDialog.jpg]

اه بس البرنامج المفروض بيطلع الكود الاولانى من الهارد دسك او البروسيسور
آخر مشاركة لي في هذا الموضوع

PHP كود :
Dim softwareName As String 'اسم البرنامج
Dim regFilePath As String '
مسار ملف التسجيل
Dim hideFilePath 
As String 'مسار ملف التسجيل
Dim txt As String '
نص
Dim trailDays 
As Integer 'عدد أيام التجربة
Dim trailRunTimes As Integer '
عدد مرات التشغيل
Dim id 
As String 'رقم تعريف من ثلاث رموز

Dim trialMaker As New SoftwareLocker.TrialMaker(softwareName, regFilePath, hideFilePath, txt, trailDays, trailRunTimes, id)
trialMaker.UseDiskDriveSignature = True '
استخدام رقم الهارد دسك
trialMaker
.UseProcessorID True 'استخدام رقم البروسيسور

Dim tripleDESKey As Byte() = trialMaker.TripleDESKey 

لكن تحتاج مراجعة الموقع لتعرف التفاصيل وكيفية الاستفادة من الطريقة
(06-02-18, 02:24 AM)طالب برمجة كتب : [ -> ]آخر مشاركة لي في هذا الموضوع

PHP كود :
Dim softwareName As String 'اسم البرنامج
Dim regFilePath As String '
مسار ملف التسجيل
Dim hideFilePath 
As String 'مسار ملف التسجيل
Dim txt As String '
نص
Dim trailDays 
As Integer 'عدد أيام التجربة
Dim trailRunTimes As Integer '
عدد مرات التشغيل
Dim id 
As String 'رقم تعريف من ثلاث رموز

Dim trialMaker As New SoftwareLocker.TrialMaker(softwareName, regFilePath, hideFilePath, txt, trailDays, trailRunTimes, id)
trialMaker.UseDiskDriveSignature = True '
استخدام رقم الهارد دسك
trialMaker
.UseProcessorID True 'استخدام رقم البروسيسور

Dim tripleDESKey As Byte() = trialMaker.TripleDESKey 

لكن تحتاج مراجعة الموقع لتعرف التفاصيل وكيفية الاستفادة من الطريقة

شكرااااااااا لحضرتك
الصفحات : 1 2