New timer

JokerZ_Life · Nov 17, 2007

Its a timer i made in less then 45mins but it works good. i will give u the source.

exe: http://rapidshare.com/files/70276160/JokerZ_Timer_V1.0.exe.html

Public Class JokerZ_Timer

Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged

End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If Label1.Text = 0 And Label2.Text = 0 And Label3.Text = 1 Then
Timer1.Stop()
Timer2.Start()
Button2.Enabled = False
End If
Label3.Text = Label3.Text - 1
If Label3.Text = -1 Then
Label3.Text = 59
End If
If Label3.Text = 59 Then
Label2.Text = Label2.Text - 1
End If
If Label2.Text = -1 And Label3.Text = 59 Then
Label2.Text = 59
End If
If Label2.Text = 59 And Label3.Text = 59 Then
Label1.Text = Label1.Text - 1
End If
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If CheckBox1.Checked = False And CheckBox2.Checked = False Then
MsgBox("Please check one of the two boxes.")
Else

Label1.Text = TextBox1.Text
Label2.Text = TextBox2.Text
Label3.Text = TextBox3.Text
Timer1.Start()
Button2.BringToFront()
TextBox1.Visible = False
TextBox2.Visible = False
TextBox3.Visible = False
End If
If CheckBox1.Checked = True Or CheckBox2.Checked = True Then
CheckBox1.Enabled = False
CheckBox2.Enabled = False
End If
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Timer1.Stop()
Button1.BringToFront()
TextBox1.Visible = True
TextBox2.Visible = True
TextBox3.Visible = True
TextBox1.Text = Label1.Text
TextBox2.Text = Label2.Text
TextBox3.Text = Label3.Text
CheckBox1.Enabled = True
CheckBox2.Enabled = True
End Sub

Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)
If Label1.Text = 0 And Label2.Text = 0 And Label3.Text = 0 Then
MsgBox("Windows is shutting down")
Timer1.Stop()
End If
End Sub

Private Sub Timer2_Tick_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
If CheckBox1.Checked Then
Shell("C:\WINDOWS\system32\cmd", AppWinStyle.NormalFocus)
timer3.start()
Timer2.Stop()
End If
If CheckBox2.Checked Then
Beep()
End If
End Sub

Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
If CheckBox1.Checked Then
CheckBox2.Checked = False
End If
End Sub

Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged
If CheckBox2.Checked Then
CheckBox1.Checked = False
End If
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
MsgBox("beep will not quit until program is shutdown")
End Sub

Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
SendKeys.Send("shutdown -s ~")
End Sub
End Class
Click to expand...

X Zero · Nov 17, 2007

I dont get it, Whats it for?

skate4lifee · Nov 17, 2007

X Zero said: ↑

I dont get it, Whats it for?
Click to expand...

you insert a time(hours\minutes\seconds) then tick either ping or shutdown and it will do whatever action you choose by counting down from the time.

rattytatt50 · Nov 21, 2007

wicked, but i didnt kno it would really turn on your pc!!!

JokerZ_Life · Nov 23, 2007

only shutdown and ping

Log in or Sign up

New timer

JokerZ_Life Member

X Zero Forum Addict

skate4lifee Active Member

rattytatt50 Member

JokerZ_Life Member

Log in or Sign up

New timer

Thread Tools

JokerZ_Life Member

X Zero Forum Addict

skate4lifee Active Member

rattytatt50 Member

JokerZ_Life Member

Useful Searches