تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
صناعة برنامج يعمل لشهر واحد ثم يتوقف عن العمل
#1
السلام عليكم
العنوان واضع , لو سمحتو اريد صناعة برنامج يعمل لشهر واحد ثم يتوقف عن العمل
حاولت كثير مع التاريخ ولم استطع ..
الرد }}}}
تم الشكر بواسطة:
#2
تفضل اخي



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 abdulrahman As Microsoft.Win32.RegistryKey
abdulrahman = Microsoft.Win32.Registry.CurrentUser
Dim S As String() = abdulrahman.GetSubKeyNames
For Each A As String In S
If A = "smp3" Then
T = True
End If
Next

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] المرجو المساعدة كود الاضافة ليعمل في تصميم برنامج صانع الاكواد brioule 1 47 أمس, 06:31 PM
آخر رد: khodor1985
  [سؤال] فكرة عمل برنامج تنبيهات abdulla2 1 85 20-02-17, 12:47 AM
آخر رد: EnormousSoft
  [كود] كود برنامج chat متعدد المستخدمين YazanOtoum 2 69 17-02-17, 11:54 PM
آخر رد: احمد مهران
  [سؤال] حل مشكلة برنامج لتغير التاريخ عبدالرحمن المكاوي 6 145 17-02-17, 11:19 PM
آخر رد: EnormousSoft
  تصميم برنامج امتحان الاوفيس والويندوز القيصر بيلا 0 61 12-02-17, 03:07 PM
آخر رد: القيصر بيلا
  طلب برنامج لزيادة دقة الصور احمد علي احمد سلمان 1 84 10-02-17, 05:33 PM
آخر رد: مساعدة
  اخفاء برنامج بعد استدعائه وتشغيله moshax 4 120 07-02-17, 09:53 PM
آخر رد: moshax
Heart [VB.NET] احتاج الى مساعدة في برنامج لمحل لحساب الفاتورة malek369 1 186 06-02-17, 02:44 AM
آخر رد: ٌRy SAEED
  برنامج اسئلة بين برنامجين mohssan 11 2,250 05-02-17, 06:24 PM
آخر رد: ٌRy SAEED
  [سؤال] كيف ابطل زر tab فى برنامج على الفيجوال بيسك Mohamed371 1 89 20-01-17, 02:11 AM
آخر رد: مساعدة

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم