project in vb

[nimbalkar]

Desciption : This VB project enables you to logoff
programme:

const EWX_LogOff as long=0
const EWX_SHUTDOWN as long=1
const EWX_REBOOT as long=2
const EWX_FORCE as long=4
Private Declare Function ExitWindow _
Lib "User32" Alias "ExitWindowEx" _
(Byval dwOption as Long, Byval dwReserved as Long) as Long
Private Sub command1_Click()
  ExitWindow EWX_SHUTDOWN,&HFFFFFFFF
End Sub
Private Sub command2_Click()
  ExitWindow EWX_REBOOT ,&HFFFFFFFF
End Sub

ERROR :
But there is error as compiler error :
expected :Lib
I can't understand it and also &HFFFFFFFF what is that?
It will not work on the window ntos.

[debasisdas]

use this

Private Declare Function ExitWindow Lib "User32" Alias "ExitWindowEx" (ByVal dwOption As Long, ByVal dwReserved As Long) As Long
 
 

and is not supported on NT.

Please find details here .

[VACEPROGRAMER]

Hi. Dont do taht , this is easy way . . . .

Shell("ShutDown -i , -t 01)

' i don't know was -i or something other
It works whit VB5,VB6 and VB.Net

*VACE*

[Killer42]

Private Declare Function ExitWindow Lib "User32" Alias "ExitWindowEx" (ByVal dwOption As Long, ByVal dwReserved As Long) As Long

That's exactly what the original post said. Except that it was typed in and was missing some capitals, of course (I've corrected it now).

nimbalkar, the &HFFFFFFFF you asked about is a hexadecimal (base 16) value. Look it up in your documentation, or on the web. Wikipedia probably has a good description.

[nimbalkar]

ERROR:
while running again there run time error:
can't find dll entry point exitwindowex in user 32
-------------------------------------------------------------------------------------------------------------------
[quote=nimbalkar]Desciption : This VB project enables you to logoff
programme:

const EWX_LogOff as long=0
const EWX_SHUTDOWN as long=1
const EWX_REBOOT as long=2
const EWX_FORCE as long=4
Private Declare Function ExitWindow _
Lib "User32" Alias "ExitWindowEx" _
(Byval dwOption as Long, Byval dwReserved as Long) as Long
Private Sub command1_Click()
  ExitWindow EWX_SHUTDOWN,&HFFFFFFFF
End Sub
Private Sub command2_Click()
  ExitWindow EWX_REBOOT ,&HFFFFFFFF
End Sub

[nimbalkar]

ERROR:
while running again there run time error:
can't find dll entry point exitwindowex in user 32

[QVeen72]

Hi,

When you Shut-Down a WindowsNT , / Win2K, you need to have Sufficient Privileges, and the Status of Shut-Down.
Check the code here

Regards
Veena

[Killer42]

My initial guess would be that ExitWindowEx is a mis-typed ExitWindowsEx. This is based merely on the observation that we're dealing with Microsoft Windows.

[werks]

Try this code..

Shell("rundll32.exe user32.dll, LockWorkStation")

[nimbalkar]

My initial guess would be that ExitWindowEx is a mis-typed ExitWindowsEx. This is based merely on the observation that we're dealing with Microsoft Windows.

I have saw that there is nothing missing .again there is same error cant find the dll entry point. what is that

[Killer42]

I have saw that there is nothing missing .again there is same error cant find the dll entry point. what is that

I'm afraid your post is a bit hard to understand. But a little research on the web has shown that the suggestion I made in post #8 is almost certainly correct. For details, see this link.

[nimbalkar]

[quote=nimbalkar]Desciption : This VB project enables you to logoff
programme:

const EWX_LogOff as long=0
const EWX_SHUTDOWN as long=1
const EWX_REBOOT as long=2
const EWX_FORCE as long=4
Private Declare Function ExitWindow _
Lib "User32" Alias "ExitWindowEx" _
(Byval dwOption as Long, Byval dwReserved as Long) as Long
Private Sub command1_Click()
  ExitWindow EWX_SHUTDOWN,&HFFFFFFFF
End Sub
Private Sub command2_Click()
  ExitWindow EWX_REBOOT ,&HFFFFFFFF
End Sub

PROBLEM:
now there is no error but the system willnot shut down