OpenEuphoria

2. Re: Shutdown Win2000/XP

• Posted by Vincent <darkvincentdude at yahoo.com> Mar 05, 2006
• 587 views
• Last edited Mar 06, 2006

C Bouzy wrote:
> 
> Hello All,
> 
> Does anyone know how I can completely shutdown Win2000/XP using EU code?
> 
> ----C Bouzy
> 
> ----If you continue to do what you have always done,
> you will get what you have always gotten.----

system("shutdown -f -s -t 0", 0)

Regards,
Vincent

4. Re: Shutdown Win2000/XP

• Posted by C Bouzy <eucoder at hotmail.com> Mar 05, 2006
• 579 views
• Last edited Mar 06, 2006

Hello Vincent/Al

Thanks for the code. It works but I am trying to avoid the DOS popup box.
I have been trying the following code, but it does not shutdown the computer
fully.

constant USER32 = open_dll("user32")

constant SHUTDOWNEX = define_c_func(USER32, "ExitWindowsEx", {C_UINT, C_LONG},
C_INT)
global constant

  EWX_FORCE = 4,
  EWX_LOGOFF = 0,
  EWX_POWEROFF = 8,
  EWX_REBOOT = 2,
  EWX_SHUTDOWN = 1

global procedure win32_shutdown(integer shutdown_type)
    integer x
    x = c_func(SHUTDOWNEX, {shutdown_type, 0})
end procedure

win32_shutdown(or_all({EWX_FORCE,EWX_FORCE}))



----If you continue to do what you have always done,
you will get what you have always gotten.----

6. Re: Shutdown Win2000/XP

• Posted by Chris Burch <chriscrylex at aol.com> Mar 05, 2006
• 587 views
• Last edited Mar 06, 2006

Hi

I use this if I I'm doing something thats going to take a long time, ANd I need
the computer shut down later.

--  code generated by Win32Lib IDE v0.18.23r

 
include Win32Lib.ew
without warning

--------------------------------------------------------------------------------
--  Window Window1
sequence IDEFlags
IDEFlags = classDefaults(Window, { {1, {WS_SYSMENU}},{2, {WS_EX_DLGMODALFRAME}}
} )
constant Window1 = createEx( Window, "", 0, Default, Default, 126, 136,
{WS_DLGFRAME, WS_SYSMENU}, {WS_EX_DLGMODALFRAME} )
constant LText2 = createEx( LText, "Minutes to shudown", Window1, 8, 8, 112, 20,
0, 0 )
constant EditText3 = createEx( EditText, "", Window1, 16, 32, 84, 20, 0, 0 )
constant PushButton4 = createEx( PushButton, "Go", Window1, 16, 60, 84, 28, 0, 0
)
---------------------------------------------------------
sequence IDE_labeltable
IDE_labeltable = {
{Window1,"Layer 0",EditText3},
{Window1,"Layer 0",LText2},
{Window1,"Layer 0",PushButton4},
{Window1,"Layer 0",Window1}
}
function setLayerVisible(integer windowName,sequence layerName,integer state)
    integer foundIt
    foundIt=0
    for i=1 to length(IDE_labeltable) do
        if equal(windowName,IDE_labeltable[i][1])
        and equal(layerName,IDE_labeltable[i][2]) then
            setVisible(IDE_labeltable[i][3],state)
            foundIt=w32True
        elsif foundIt then
            exit
        end if
    end for
    if foundIt then
        return 0
    else
        return 1
    end if
end function
function setLayerEnable(integer windowName,sequence layerName,integer state)
    integer foundIt
    foundIt=0
    for i=1 to length(IDE_labeltable) do
        if equal(windowName,IDE_labeltable[i][1])
        and equal(layerName,IDE_labeltable[i][2]) then
            setEnable(IDE_labeltable[i][3],state)
            foundIt=w32True
        elsif foundIt then
            exit
        end if
    end for
    if foundIt then
        return 0
    else
        return 1
    end if
end function
--------------------------------------------------------------------------------
procedure PushButton4_onClick (integer self, integer event, sequence
params)--params is ()
integer mins
sequence cmd_str
integer MsgBox

mins = w32TextToNumber(getText(EditText3))

if mins > 0  then
	cmd_str = sprintf("shutdown -f -s -t %d", {60*mins})
	--integer MsgBox
	--MsgBox = message_box(cmd_str, "Title", #0)

	system(cmd_str, 0)

else
	abort(0)

end if


end procedure
setHandler( PushButton4, w32HClick, routine_id("PushButton4_onClick"))


WinMain( Window1,Normal )

http://members.aol.com/chriscrylex/euphoria.htm
http://uboard.proboards32.com/
http://members.aol.com/chriscrylex/EUSQLite/eusql.html

8. Re: Shutdown Win2000/XP

• Posted by C Bouzy <eucoder at hotmail.com> Mar 06, 2006
• 614 views
• Last edited Mar 07, 2006

Wolf wrote:
> 

> --shut down Windows, also, if ATX, power.
> --only tested on 98, 2K

Thank you Wolf...

This is what I needed, I did not know about TOKEN_PRIVILEGES..etc..etc,
which was the reason why it would not shut down fully.

----If you continue to do what you have always done,
you will get what you have always gotten.----