Windows Otomatik Kapatma Programı

M.Ozkan

Yönetici
Yönetici
Yönetici
Katılım
19 Ocak 2007
Mesajlar
977
Puanları
156
Visual Basic dilini ve .NET teknolojisini ilk öğrenmeye başlarken yaptığım basit bir Windows Otomatik kapatma programı. Proje dosyaları da içerisinde dir.
(Not: Proje dosyaları yalnızca Visual Studio 2008 ile açılabilir.)


Kodlar :



Public Class Form1
Dim Clock, Progclock, Datee, Progdate, ProgMinute, ProgSec, ConvertHour As String
Dim shutdownenabled As Boolean
Dim ErrorAttraction As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
loops.Enabled = True
shutdownenabled = False
Kaydet.Enabled = False
ProgSaat.Visible = False
ProgTarih.Visible = False
Label2.Text = "Aktif Değil"

End Sub
Private Sub loops_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles loops.Tick
Clock = CStr(TimeOfDay)
Datee = Now.Date
Suankisaatdynamic.Text = Clock
suankitarihdynamic.Text = Datee
If shutdownenabled = True And ConvertHour = Clock And Progdate = Datee Then
kapat()
End If

End Sub

Private Sub kaydet_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kaydet.Click

Progclock = Programlanansaatinput.Text
ProgMinute = Programlanandakikainput.Text
ProgSec = TextBox1.Text
Progdate = DateTimePicker1.Value.Date
ConvertHour = Progclock + ":" + ProgMinute + ":" + ProgSec
ProgSaat.Text = ConvertHour
ProgTarih.Text = Progdate
If Programlanansaatinput.TextLength <> 2 Or Progclock > 23 Then
ErrorAttraction = 1
End If
If Programlanandakikainput.TextLength <> 2 Or ProgMinute > 59 Then
ErrorAttraction = 2
End If
If TextBox1.TextLength <> 2 Or ProgSec > 59 Then
ErrorAttraction = 3
End If
Error_Attraction()
ProgSaat.Visible = True
ProgTarih.Visible = True
Select Case ErrorAttraction
Case 0
Select Case MsgBox("Bak Windows Kapatılacak. Sonra yan yattı çamura battı olmasın. Artizlik yaparsan bi daha açmam söyleyeyim! Kapatayım mı?", _
MsgBoxStyle.YesNo, "Üstüme Gelme Kapatırım!")
Case MsgBoxResult.Yes
Me.Visible = False
Text_Enabled_disabled(False)
shutdownenabled = True
Kaydet.Enabled = False
NotifyIcon1.ShowBalloonTip(100)
Label2.Visible = True
Label2.Text = "Aktif"
Case MsgBoxResult.No
ProgSaat.Visible = False
ProgTarih.Visible = False
End Select
Case 1
MsgBox("Önce hataları düzelt. Birşeyi beceremedin. O girilir mi oraya? Bende seni akıllı bişi zannederdim")
Case 2
MsgBox("Önce hataları düzelt. Birşeyi beceremedin. O girilir mi oraya? Bende seni akıllı bişi zannederdim")
Case 3
MsgBox("Önce hataları düzelt. Birşeyi beceremedin. O girilir mi oraya? Bende seni akıllı bişi zannederdim")
End Select
ErrorAttraction = 0
End Sub
Private Sub kapat()

Shell("shutdown -s -t 1")

End Sub

Private Sub Form1_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove
If Programlanansaatinput.Text = Nothing Or Programlanandakikainput.Text = Nothing Or Programlanansaatinput.Text = Progclock And Programlanandakikainput.Text = ProgMinute Then
Kaydet.Enabled = False
Else
Kaydet.Enabled = True
End If

End Sub
Private Sub Error_Attraction()
Select Case ErrorAttraction
Case 1
MsgBox("Programlanan saat uzunluğu geçerli değil", MsgBoxStyle.Information)
Programlanansaatinput.BackColor = Color.Red
Case 2
MsgBox("Programlanan dakika uzunluğu geçerli değil", MsgBoxStyle.Information)
Programlanandakikainput.BackColor = Color.Red
Case 3
MsgBox("Programlanan Saniye uzunluğu geçerli değil", MsgBoxStyle.Information)
TextBox1.BackColor = Color.Red

Case 0
Programlanansaatinput.BackColor = Color.Empty
Programlanandakikainput.BackColor = Color.Empty


End Select

End Sub

Private Sub ProgramıDeğiştirToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProgramıDeğiştirToolStripMenuItem.Click
Me.Visible = True
Değiştir_Click(sender, e)
Text_Enabled_disabled(True)
End Sub

Private Sub ÇıkışToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ÇıkışToolStripMenuItem.Click
Close()
End Sub

Private Sub Değiştir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Değiştir.Click
Text_Enabled_disabled(True)

End Sub

Private Sub Programiptal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Programiptal.Click
shutdownenabled = False
ProgSaat.Visible = False
ProgTarih.Visible = False
Label2.Text = "Aktif Değil"

End Sub
Private Sub Text_Enabled_disabled(ByVal Enabled As Boolean)
If Enabled = True Then
Programlanansaatinput.Enabled = True
Programlanandakikainput.Enabled = True
DateTimePicker1.Enabled = True
Else
Programlanansaatinput.Enabled = False
Programlanandakikainput.Enabled = False
DateTimePicker1.Enabled = False
End If

End Sub


Private Sub NotifyIcon1_MouseDoubleClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles NotifyIcon1.MouseDoubleClick
NotifyIcon1.ShowBalloonTip(100)
End Sub


End Class
 

Ekli dosyalar

  • ShutDown.rar
    785.9 KB · Görüntüleme: 17

Forum istatistikleri

Konular
127,956
Mesajlar
913,902
Kullanıcılar
449,606
Son üye
rasit.

Yeni konular

Çevrimiçi üyeler

Geri
Üst