Program Shutdown Timer (Komputer mati sendiri)

Program Shutdown Timer (Komputer mati sendiri)
hari ini adalah hari yang cerah , ketika ku sedang mencari data-data di laptop, bos ku datang..dengan muka yang di tekuk sepertinya akan marah, dengan sangar dia berkata.
Bos : jay kenapa komputer masih ada yang nyala semalam…. harusnya komputer di matiin, bilangin user jangan lupa matiin komputer klo sudah selesai klo gak kamu kasih SP saja..
Jay : Iya pak siap (saya akan laksanakan perintah bapak)
Bos : Pokoknya saya gak mau liat ada komputer yang gak dimatiin klo sudah selesai kerja, ngerti kamu..!!!bilang bos dengan wajah membara (hi..serem)
Jay :ok pak nanti saya bilangin usernya...
Bos : Bukan apa-apa nanti klo ada petir bahaya...
yah inilah sedikit percakapan ( ini bukan percakapan tapi di omelin ) saya dengan bos..
mungkin klo dibilangin sudah, tapi alasan nya pasti lupa...yah gitu deh tabiat manusia kadang lupa kadang lupa lagi mungkin harus cari akal biar user tuh matiin komputernya
setelah menghayal sedikit dikamar menerawang ( bukan bayangin jorok loh…!! ) akhir nya buat program pake Visual Basic, mumpung bisa VB dikit ya udah tak buat program dari VB aja gimana caranya..biar tuh komputer mati terscheduled
disini saya buat program vb mudah kok cuma ada 2 tombol dan timer mundur, jadi program ini di schedulkan pada jam tertentu misalnya klo dikantor ku ada 20 komputer dan di schedulkan mati pada jam 17.30 karena biasanya user pasti dah pulang jam segitu
dan satu lagi jam 23.15 karena namanya di perkebunan kelapa sawit kadang gak ada kerjaan mereka biasanya ngantor sampai malam. untuk lebih jelasnya ini dia programnya




Jadi cara kerjanya pada jam – jam yang sudah di schedulkan program akan di execute , timer akan menghitung mundur dari hitungan 99 detik hingga 0 jadi apabila hitungan sudah 0 komputer akan shutdown.dan apabila user yang ingin melanjutkan pekerjaannya cukup tekan tombol batalkan nanti akan ada message box seperti berikut ini.




Program ini harus di buat always on top alias selalu di atas agar apabila program lain berjalan , ,_timer ini akan selalu diatas sehingga memaksa user untuk menekan tombol batal apabila ingin melanjutkan pekerjaan, gunanya always on top adalah apabila user secara tidak sengaja mengklik program lain user tersebut tidak tau kalau program shutdown_timer ini berjalan dan akan langsung menshutdown komputer sedangkan user sedang mengerjakan kerjaan kantor..
Program sederhana sih tapi yah lumayan buat ngeringanin kerjaan , klo mau download programnya download aja di “ download me “ aku tak upload program jadi dan source
Ini source programnya.

------------------------------------------------------------------------------------------------------
'ini biar program always on top (selalu di atas)
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

Const HWND_TOPMOST = -1
Const SWP_SHOWWINDOW = &H40

Dim a As String

Private Sub Command1_Click()
Shell "shutdown.exe -s -f -t 00"
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
MsgBox "Jangan Lupa setelah selesai kerja, matikan komputer anda", vbInformation, "Fairco Agro Mandiri"
Unload Me
'End If
End Sub

Private Sub Form_Load()
Form1.Visible = True
Dim TempValue As Long
Dim MyWidth As Long, MyHeight As Long
Dim MyTop As Long, MyLeft As Long


MyWidth = (Screen.Width / 2.9)
MyWidth = MyWidth / Screen.TwipsPerPixelX
MyHeight = Screen.Height / 3
MyHeight = MyHeight / Screen.TwipsPerPixelY

MyLeft = Screen.Width / (2.7 * Screen.TwipsPerPixelX)
MyTop = Screen.Height / (4 * Screen.TwipsPerPixelY)
'Call SetWindowPos API function
TempValue = SetWindowPos(Me.hwnd, HWND_TOPMOST, MyLeft, MyTop, MyWidth, MyHeight, SWP_SHOWWINDOW)
End Sub



Private Sub Timer1_Timer()
If Label2.Caption <= 0 Then
Shell "shutdown.exe -s -f -t 00"
Else
Label2.Caption = Label2.Caption - 1
End If
End Sub

Simple aja program nya gak ribet kok….
Kisah berlanjut
Akhirnya tak ada omelan lagi yang masuk kuping ini, hari ini adalah hari yang indah