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

نسخة كاملة : ممكن توضيح كيفية تشغيل البرنامج او عمل البرنامج
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
الصفحات : 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


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

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