السلام عليكم
مرحبا اخواني لدي مشكلة وهي اننا وضعت ملف txt به تاريخ مثلا23/08/2016 داخل
هذا المسار E:\1.txt اوك
اولا اريد عندما يفتح برنامجي يره هل يوجد ملف باسم 1 في المسار التالي او لا E:\1.txt
اذ كان اريد البرنامج اي يغير تاريخ الحاسوب للتاريخ الذي في الملف وعندما يغلق البرنامج يرجع التاريخ الحقيقي
واذ لم يوجد هذا الملف يفتح البرنامج عادي بدون تغير شئ شكرا لكم
التحقق من وجود الملف من عدمه راح يكون بهذا الشكل
PHP كود :
Dim X$
X$ = Dir$("D:\1.txt")
If X$ = "" Then
MsgBox "It does Not exist!", vbExclamation, "Doesn't Exist"
Else
MsgBox "It does exist!", vbExclamation, "Does Exist"
End If
وبالنسبة لقراء محتواه من
هنا
ياناس حرام عليكم
انا اريد عندما يفتح برنامجي يغير تاريخ الحاسوب الي التاريخ الموجود داخل المسار فقط لاغير
بعد ان تكون قد قرأت التاريخ من ملفك النصي استخدم مسجل النظام للتعديل
PHP كود :
Dim rkey As RegistryKey = Registry.CurrentUser.OpenSubKey("Control Panel\International", True)
rkey.SetValue("sShortDate", "08/28/2016")
كيف اجعل برنامجي يقرء الملف
وجدت الكود اخي لكن احتاج شئ ان عندما يغلق البرنامج يعود التاريخ الي سابقه
المفروض إنك قبل أن تبدأ في تغيير تاريخ النظام إنك تقوم بتعريف متغير يعبر عن الوقت الراهن و قيمته ستكون Now
وفي الحدث Form_Closing تعيد تغيير تاريخ النظام باستخدام هذا المتغير
المفروض ان الشكل العام للكود يكون شئ من هذا القبيل
PHP كود :
Public Class Form1
Private currentDateTime As DateTime
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
currentDateTime = DateTime.Now
' قم بتغيير التاريخ
End Sub
Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing
' إضبط التاريخ هنا ثانية باستخدام المتغير
' currentDateTime
End Sub
End Class
يا أخ عبد الرحمن
قبل أن تغير التاريخ الخاص بنظام التشغيل عليك ان تقوم بتعريف متغير يحدد القيمة الحالية لهذا التاريخ
و الأفضل لك أن تحفظ قيمة هذا المتغير في ملف علي فهرس المشروع لأنه ليس مضمونا ان يحتفظ برنامجك طوال فترة تشغيلة بهذه القيمة وهذا بسبب GC كلاس
ثم بعد ذلك تقوم بتغيير التاريخ الي القيمة التي تريدها انت وذلك بالطريقة التي تريدها
ثم و قبل اغلاق البرنامج عليك ان تعيد ضبط التاريخ الي قيمته الأصلية مرة ثانية
