:: # دورة إدارة النفايات الصناعية #30 يونية 2024م#القاهرة#metc (آخر رد :جهاد سعيد)       :: # دورة مهارات التخطيط اللازمة لمواجهة الأزمات #21يوليو 2024م#اسطنبول#metc (آخر رد :جهاد سعيد)       :: المحامية رباب المعبي : سعدت بالحصول على الشهادة المهنية في المجال الاعلامي (آخر رد :جاسر صفوان)       :: الاعلامية البندري تركي تغطي حفل توطيد العلاقات بين سفارة النرويج وسفارة اليابان (آخر رد :جاسر صفوان)       :: فروع شركة الحمد وخدماتها بالسعوديه (آخر رد :soha mag)       :: # دورة العلاقات العامة و ادارة الفعاليات المتقدمة#21يوليو 2024م#دبي#metc (آخر رد :جهاد سعيد)       :: # دورة التقارير المالية لصناعة النفط#14 يوليو 2024م#اسطنبول#metc (آخر رد :جهاد سعيد)       :: فروع شركة الحمد وخدماتها بالسعوديه (آخر رد :soha mag)       :: دورة مهارات المراسم والسلوك الدبلوماسي لمدراء المكاتب العليا-دورات فى السكرتارية تعقد (آخر رد :ايمان محمد)       :: دورة أمانة السر والسكرتاريا-دورات معتمدة فى السكرتارية تعقد القاهرة–دبـــــي–شرم (آخر رد :ايمان محمد)      
اختر لونك:
وَقُلِ اعْمَلُوا فَسَيَرَى اللَّهُ عَمَلَكُمْ وَرَسُولُهُ وَالْمُؤْمِنُونَ ۖ وَسَتُرَدُّونَ إِلَىٰ عَالِمِ الْغَيْبِ وَالشَّهَادَةِ فَيُنَبِّئُكُم بِمَا كُنتُمْ تَعْمَلُونَ [ التوبة : ( 105 )] كلمة الإدارة

يرجى إختيار القسم المناسب قبل النشر وسيعاقب المخالف بإنذار أول مرة وسيتم حظره إذا تكرر ذلك كلمة الإدارة

يُمنع كتابة مواضيع السحر والشعوذة والروحانيات والابراج بكافة الأشكال والمخالف سيعاقب بحظر مؤقت وإذا تكرر سيكون حظر دائم تنبيه هام جداً



أضف رد جديد
 
LinkBack أدوات الموضوع انواع عرض الموضوع

قديم 03-05-2019, 03:37 PM   #1
تاريخ التسجيل: Feb 2019
العمر: 28
المشاركات: 1,003
التقييم: 10
تاريخ التسجيل: Feb 2019
العمر: 28
المشاركات: 1,003
التقييم: 10
افتراضي كود لجعل برنامجك تجريبيا


كود لجعل برنامجك تجريبيا




كود:

Public Class Form1
Dim T As Boolean
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
T = False
Dim RegX As Microsoft.Win32.RegistryKey
RegX = Microsoft.Win32.Registry.CurrentUser
Dim S As String() = RegX.GetSubKeyNames
For Each A As String In S
If A = "smp3" Then
T = True
End If
Next

If T = True Then
RegX = Microsoft.Win32.Registry.CurrentUser.OpenSubKey("s mp3", True)
Dim x As Integer = RegX.GetValue("val")
x = x + 1
RegX.SetValue("val", x)
If x = 5 Or x > 5 Then
MsgBox("لقد انتهت مدتك لاستخدام البرنامج , يرجى الاتصال بفريق الدعم لمعرفة كيفية الشراء")
Application.Exit()
End If
Else
RegX = Microsoft.Win32.Registry.CurrentUser.CreateSubKey( "smp3")
RegX.SetValue("val", 1)
End If
End Sub
End Class

القيصر غير متواجد حالياً   اقتباس
أضف رد جديد

الكلمات الدلالية (Tags)
منتديات رحيل, رحيل, شبكة رحيل, r7il, r7il.com


الذين يشاهدون محتوى الموضوع الآن : 1 ( الأعضاء 0 والزوار 1)
 

تعليمات المشاركة
لا تستطيع إضافة مواضيع جديدة
لا تستطيع الرد على المواضيع
لا تستطيع إرفاق ملفات
لا تستطيع تعديل مشاركاتك

BB code is متاحة
كود [IMG] متاحة
كود HTML معطلة
Trackbacks are متاحة
Pingbacks are متاحة
Refbacks are متاحة


المواضيع المتشابهه
الموضوع كاتب الموضوع المنتدى مشاركات آخر مشاركة
كيف أجعل شخصاً يحبني من كلامي؟ تجنب الكذب أبرز النصائح مهرة النجدية عالم آدم 1 07-07-2019 11:57 PM
كود بسيط جداً ولكن مهم لجعل Text Box يكتب رقم لا يكتب نص ويكتب نص ولا يكتب رقم . القيصر قسم تطوير المواقع ومحركات البحث والسيو Seo والووردبريس WordPress 0 03-05-2019 03:36 PM


الساعة الآن 08:36 AM

 


Content Relevant URLs by vBSEO ©2010, Crawlability, Inc.