اود عمل برنامج تتوفر فيه خاصية ضبط ساعة الويندوز
كيف يمكن عمل ذلك؟
كيف اضبط ساعة الويندوز من داخل الفيجوال؟
مغلق
السلام عليكم ورحمة الله وبركاتة
Hour = "03" 'الساعة mint = "03" 'الدقائق seco = "03" 'الثوانى Settime = TimeSerial(Hour, mint, seco)
{يَا أَيُّهَا النَّاسُ اتَّقُوا رَبَّكُمْ إِنَّ زَلْزَلَةَ السَّاعَةِ شَيْءٌ عَظِيمٌ }الحج1
هذا الكود لتغيير ساغة النظام مع ملاحظة تغيير الوقت
Time="10:15:00"
*************************************************
**************************************************
مصطفى زيداني
وهناك طريقة أخرى بواسطة دالة API تمكنك من ضبط الوقت والتاريخ والكود كالتالى
'فى قسم التصريحات العامة ضعى اعلان الدالة Private Declare Function SetSystemTime Lib "kernel32" (lpSystemTime As SYSTEMTIME) As Long Private Type SYSTEMTIME wYear As Integer wMonth As Integer wDayOfWeek As Integer wDay As Integer wHour As Integer wMinute As Integer wSecond As Integer wMilliseconds As Integer End Type prvate sub Command1_Click() Dim sysTD As SYSTEMTIME With sysTD .wYear=2006 .wMonth=6 .wDayOfWeek=5 .wDay=20 .wHour=12 .wMinute=00 .wSecond=00 .wMilliseconds=00 End With SetSystemTime sysTD End Sub
طبعاً يمكنكى تغيير الارقام كما تريدين
اتمنى ان تستفيدى من الكود :rolleyes:
تم تعديل هذه المشاركة بواسطة ghost2010 في 7 مايو 2005 في 18:06
إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال
هذا الموضوع مغلق.