26 | 04 | 2017

Reboot Computer

Function RebootComputer()
 
'***************************************
'**** Code from VisibleVisual.com ******
'***************************************
On Error GoTo errorhandler
Dim RetVal As Integer
RetVal = ExitWindows(EW_REBOOTSYSTEM, 0)
RebootComputer = RetVal
Exit Function
errorhandler:  MsgBox Err.Description, vbExclamation, "Error"
 
End Function
Login

Sign up now and upload your code to the website.

Help us to continue.....
Statistics
Articles View Hits
2234898
Latest Articles