Ishizuka naga samaran | Fryme Joe | Defacer Indonesia
Gaconk Gnr | Fryme Joe | Ishizuka naga samaran | And you !!
Private Sub cmdSet_Click() txtsetTime.Enabled = True cmdok.Visible = True cmdset.Visible = False txtsetTime.SetFocus End Sub Private Sub Combo1_Click() '////Log Off//// If Combo1 = "Log Off" Then cmdset.Enabled = True Form3.Timer1.Enabled = False Form3.tmrlogoff.Enabled = True Form3.tmrShut.Enabled = False Label2.Caption = "" Label2.Caption = "You are trying to log off the login account.." '////restart the pc//// ElseIf Combo1 = "Restart" Then cmdset.Enabled = True Form3.Timer1.Enabled = True Form3.tmrlogoff.Enabled = False Form3.tmrShut.Enabled = False Label2.Caption = "" Label2.Caption = "Restart the Computer" End If '/////shutdown the pc///// If Combo1 = "Shutdown" Then cmdset.Enabled = True Form3.Timer1.Enabled = False Form3.tmrlogoff.Enabled = False Form3.tmrShut.Enabled = True Label2.Caption = "" Label2.Caption = "Auto Shutdown your Computer" End If End Sub Private Sub Form_DblClick() MsgBox "Thank you! From Jakjes..." End End Sub Private Sub Form_Load() Combo1.AddItem "-------" Combo1.AddItem "Log Off" Combo1.AddItem "Restart" Combo1.AddItem "Shutdown" End Sub Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single) Picture1.Visible = False Label4.Visible = False End Sub 'Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) 'Picture1.Visible = False 'End Sub Private Sub lblpic_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single) Picture1.Visible = True Label4.Visible = True End Sub Private Sub Timer1_Timer() lblCurTime.Caption = Time 'If Text1.Text = Label3.Caption Then If txtsetTime.Text = lblCurTime.Caption Then '//// Restart /////// Shell "shutdown -r -f -t 0" ElseIf txtsetTime.Text = lblCurTime.Caption Then '//// Shutdown ///// Shell "shutdown -s -f -t 0" End If End Sub