[mounzerlb]

السلام عليكم
الفكره نجحت ولكنها بحاجة الى تطوير
المصباح يضيئ عندما يكون البرنامج يعمل وعندما تصل ساعة الكمبيوتر الى الوقت المحدد
لكن
إذا كانت ساعة الكمبيوتر قد تخطت الوقت المحدد وفتحت البرنامج عندها لا يعمل وهذه تعتبر ثغره

وإن تمت معالجة هذه الثغره عليك بفحص البرنامج بإختيار هذا الوقت:
وقت التشغيل: 18:00:00
وقت الإيقاف : 05:00:00
وشكراً لمن سيحاول إجاد حل أو يجد حل

Private Sub Timer2_Timer() 
If Format(Now, "Am/Pm") = Format(Text1.Text, "Am/Pm") Then 
If Format(Now, "hh:mm:ss") = Format(Text1.Text, "hh:mm:ss") Then 
Out "&H378", 1 
Shape1.BackColor = &HFFFF& 
End If 
End If 
If Format(Now, "Am/Pm") = Format(Text2.Text, "Am/Pm") Then 
If Format(Now, "hh:mm:ss") = Format(Text2.Text, "hh:mm:ss") Then 
Out "&H378", 0 
Shape1.BackColor = &HFFFFFF 
End If 
End If 
End Sub