Remote Shut Down dengan Visual Basic 6.0

Terkadang kita punya kebiasaan yang gak bisa kita hilangin dari kehidupan kita.
kayak aku yang biasanya kalo tidur harus sambil dengerin musik dari laptop kita.
wah bahaya tuh kalo laptopnya mati karena habis baterainya atau lagi dicharge tapi gak dicabut, bisa-bisa jebol deh baterainya...!!!
Nah buat ngesiasatinnya kita buat ja aplikasi sederhana dengan visual basic 6.0....

let's cek 

 

buat codingnya dibawah ini

Dim waktu As Long

Private Sub cmd_cen_Click()

Frame3.Visible = False

txt_jam = "0"

txt_men = "0"

txt_det = "0"

Timer1.Enabled = False

Label7.Caption = ""

a = MsgBox("Apakah Anda Yakin Ingin Mematikan Timer ?", vbOKCancel)

                                   If a = vbOK Then

                                                  Frame3.Visible = False

                                                                Timer1.Enabled = False

                                   ElseIf a = vbCancel Then

                                                   Frame3.Visible = True

                                                                Timer1.Enabled = True

                                 End If

End Sub

Private Sub Cmd_Ok_Click()

Frame3.Visible = True

waktu = (3600 * Val(txt_jam)) + (60 * Val(txt_men)) + Val(txt_det)

Timer1.Enabled = True

If op_shut = True Then

 Label6.Caption = "KOMPUTER AKAN MATI DALAM :"

ElseIf op_res = True Then

 Label6.Caption = "KOMPUTER AKAN RESTART DALAM :"

End If

End Sub

Private Sub Form_Load()

a = MsgBox(" ")

                 If a = vbOK Then

                                neno.Visible = True

                End If

End Sub

Private Sub Timer1_Timer()

Label9.Caption = Date

Label10.Caption = Time

                 waktu = waktu - 1

                 Dim jam, menit, detik As Long

                 jam = waktu \ 3600

                menit = (waktu Mod 3600) \ 60

                detik = ((waktu Mod 3600) Mod 60)

Label7.Caption = jam & ":" & menit & ":" & detik

                                If waktu = 0 Then

                                                 If op_shut = True Then

                                                                Call Shell("Shutdown.exe -s -t 0")

                                                                Timer1.Enabled = False

                                                ElseIf op_res = True Then

                                                                Call Shell("Shutdown.exe -r -t 0")

                                                                Timer1.Enabled = False

                                                ElseIf op_log = True Then

                                                                Call Shell("Shutdown.exe -l -t 0")

                                                                Timer1.Enabled = False

                                                End If

                                 End If

End Sub

Smoga bermanfaat...!!!!

download aplikasi jadinya disini

Posted by Arief Suseno

Tweet