kamu bisa pake fungsi windows api ExitWindowsEx
mis:
 
Private Declare Function ExitWindowsEx Lib "user32.dll" ( _
    ByVal uFlags As Long, _
    ByVal dwReserved As Long) As Long

Private Const EWX_LOGOFF = 0
Private Const EWX_SHUTDOWN = 1
Private Const EWX_REBOOT = 2
Private Const EWX_FORCE = 4

Private Sub Command1_Click()
   Dim retval As Integer
   retval = ExitWindowsEx(EWX_SHUTDOWN, 0)
End Sub

 
best regards
[wwn]
 
On 12/24/05, clionhearts <[EMAIL PROTECTED]> wrote:
kalao ingin pake rundll32 gmana?
saya coba dgn printah di bawah ini ga berhasil. thanks
----- Original Message -----
Sent: Friday, December 23, 2005 12:48 PM
Subject: Re: [Programmer-VB] tanya shutdown restart winx[

 
shutdown [-i | -l | -s | -r | -a] [-f] [-m \\computername] [-t xx] [-c "comment"] [-d up:xx:yy]
 
 No args   Display this message (same as -?)
 -i   Display GUI interface, must be the first option
 -l   Log off (cannot be used with -m option)
 -s   Shutdown the computer
 -r   Shutdown and restart the computer
 -a   Abort a system shutdown
 -m \\computername Remote computer to shutdown/restart/abort
 -t xx   Set timeout for shutdown to xx seconds
 -c "comment"  Shutdown comment (maximum of 127 characters)
 -f   Forces running applications to close without warning
 -d [u][p]:xx:yy  The reason code for the shutdown
    u is the user code
    p is a planned shutdown code
    xx is the major reason code (positive integer less than 256)
    yy is the minor reason code (positive integer less than 65536)
 
 
 
----- Original Message -----
Sent: Thursday, December 22, 2005 9:09 PM
Subject: [Programmer-VB] tanya shutdown restart winx[

 
rekan2
saya sedang blajar buat prog pake vb
kyk  billing gitu,
gmana cara shutdown, restart, dll di win xp?
bs kasi printah nya?
exec runddl32 ( klo win98) klo di xp gmana?
mohonpencerahannya. thanks
 



Untuk keluar dari millis ini, kirim email kosong ke:
[EMAIL PROTECTED]





YAHOO! GROUPS LINKS




Kirim email ke