[VB] Mematikan PC Remote

Private Declare Function InitiateSystemShutdown Lib _
"advapi32.dll" Alias "InitiateSystemShutdownA" (ByVal _
lpMachineName As String, ByVal lpMessage As String, _
ByVal dwTimeout As Long, ByVal bForceAppsClosed As Long, _
ByVal bRebootAfterShutdown As Long) As Long
Private Declare Function AbortSystemShutdown Lib "advapi32.dll" _
Alias "AbortSystemShutdownA" (ByVal lpMachineName As _
String) As Long

Private Sub Command1_Click()
'Proses Shutdown PC
InitiateSystemShutdown "NamaPC", "Message", _
30, True, True
End Sub

Private Sub Command2_Click()
'PRoses Pembatalan Shutdown Komputer
AbortSystemShutdown "NamaPC"
End Sub

Jangan Lupa Komentar Yaa..