تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] كود لجعل برنامجك تجريبي .
#1
الكود هو عبارة عن أن المستخدم يستخدم البرنامج لمدة 5 أيام فقط و للمبرمج بإستطاعتة تغيير المدة

كود :
' XpressLayer , Eng. Hazem Ali
retvalue = GetSetting("A", "0", "Runcount")
GD$ = Val(retvalue) + 1
SaveSetting "A", "0", "RunCount", GD$
If GD$ > 5 Then
MsgBox ("انتهت مدة عمل البرنامج ، رجاء شراء النسخة الاصلية")
Unload Me
End If
الرد }}}
#2
هدا الكود وين مكانه المناسب في البرنامج
الرد }}}
تم الشكر بواسطة:
#3
هذا الكود خاص بــ VB6 وليس للـ VB.NET
الرد }}}
تم الشكر بواسطة:
#4
شكرا جزيلا لك 
تم نقل الموضوع الى القسم المناسب .
الرد }}}
تم الشكر بواسطة:
#5
لو سمحت انا عاوز اضغط على زى معين فى الفيجول بيسك
يقوم الزر بستدعاء ملف النص الذى وضعته فى الريسورس الى سطح المكتب مباشرة
ارجو المساعدة

لو سمحت انا عاوز اضغط على زى معين فى الفيجول بيسك
يقوم الزر بستدعاء ملف الصورة الذى وضعته فى الريسورس الى سطح المكتب مباشرة
ارجو المساعدة
الرد }}}
تم الشكر بواسطة:
#6
شكرا
بارك الله فيك
الرد }}}
تم الشكر بواسطة:
#7
(18-03-20, 10:13 PM)smai كتب : لو سمحت انا عاوز اضغط على زى معين فى الفيجول بيسك
يقوم الزر بستدعاء ملف النص الذى وضعته فى الريسورس الى سطح المكتب مباشرة
ارجو المساعدة

لو سمحت انا عاوز اضغط على زى معين فى الفيجول بيسك
يقوم الزر بستدعاء ملف الصورة الذى وضعته فى الريسورس الى سطح المكتب مباشرة
ارجو المساعدة

يرجى استبدال "اسم_الملف_في_المورد" بالاسم الصحيح الذي قمت بإعطائه للملف في المورّد. هذا الكود يستخدم مكتبة
كود :
System.IO
للتعامل مع ملفات النظام ويحفظ الملف على سطح المكتب.

PHP كود :
Imports System.IO

Public Class Form1
    Private Sub Button1_Click
(sender As ObjectAs EventArgsHandles Button1.Click
        
' احلل الملف من المورد واحفظه على سطح المكتب
        Dim desktopPath As String = Environment.GetFolderPath(Environment.SpecialFolder.Desktop)
        Dim filePath As String = Path.Combine(desktopPath, "اسم_الملف.txt")

        ' 
اسم الملف الذي أضفته في المورّد
        Dim resourceName 
As String "اسم_الملف_في_المورد"

 
       ' افحص إذا كان الملف موجوداً على سطح المكتب مسبقاً
        If Not File.Exists(filePath) Then
            ' 
انسخ الملف من المورد إلى سطح المكتب
            Using resource 
= New StreamReader(My.Resources.ResourceManager.GetStream(resourceName))
 
               Using file = New StreamWriter(filePath)
 
                   file.Write(resource.ReadToEnd())
 
               End Using
            End Using

            MessageBox
.Show("تم حفظ الملف على سطح المكتب بنجاح!""نجاح")
 
       Else
            MessageBox
.Show("الملف موجود بالفعل على سطح المكتب.""تنبيه")
 
       End If
 
   End Sub
End 
Class 
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  إضافة برنامجك في قائمة السماح للجدار الناري للوندوز Ahmed_Mansoor 7 3,690 22-09-20, 05:25 PM
آخر رد: tempman

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


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