+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم مكتبة أكواد vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=33)
+---- الموضوع : [VB.NET] كود لجعل برنامجك تجريبي . (/showthread.php?tid=23612)
كود لجعل برنامجك تجريبي . - YousefOkasha - 31-01-18
الكود هو عبارة عن أن المستخدم يستخدم البرنامج لمدة 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 IfRE: كود لجعل برنامجك تجريبي . - ِAhmed Bahshwan - 29-03-18
هدا الكود وين مكانه المناسب في البرنامج
RE: كود لجعل برنامجك تجريبي . - عبدالله الدوسري - 29-03-18
هذا الكود خاص بــ VB6 وليس للـ VB.NET
RE: كود لجعل برنامجك تجريبي . - smai - 18-03-20
لو سمحت انا عاوز اضغط على زى معين فى الفيجول بيسك
يقوم الزر بستدعاء ملف النص الذى وضعته فى الريسورس الى سطح المكتب مباشرة
ارجو المساعدة
لو سمحت انا عاوز اضغط على زى معين فى الفيجول بيسك
يقوم الزر بستدعاء ملف الصورة الذى وضعته فى الريسورس الى سطح المكتب مباشرة
ارجو المساعدة
RE: كود لجعل برنامجك تجريبي . - Whled2020 - 05-01-24
شكرا
بارك الله فيك
RE: كود لجعل برنامجك تجريبي . - HALIM ELEULMA - 06-01-24
(18-03-20, 10:13 PM)smai كتب : لو سمحت انا عاوز اضغط على زى معين فى الفيجول بيسك
يقوم الزر بستدعاء ملف النص الذى وضعته فى الريسورس الى سطح المكتب مباشرة
ارجو المساعدة
لو سمحت انا عاوز اضغط على زى معين فى الفيجول بيسك
يقوم الزر بستدعاء ملف الصورة الذى وضعته فى الريسورس الى سطح المكتب مباشرة
ارجو المساعدة
يرجى استبدال "اسم_الملف_في_المورد" بالاسم الصحيح الذي قمت بإعطائه للملف في المورّد. هذا الكود يستخدم مكتبة
كود :
System.IOPHP كود :
Imports System.IO
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles 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