What's the code to open the cd tray?

[bucky002]

I Don't know how to work hot keys very well though.

I wanna have it so whenever my sister, brother etc pushes o(open cd tray) or c(close cd tray) that it will do that.

This code might help alittle.

if StringInStr ($con, "pc1") > 0 Then
Select
    Case StringInStr ($con, "opencd") > 0
    CDTray ( "d:", "open" )

        
    Case StringInStr ($con, "closecd") > 0
    CDTray ( "d:", "close" )

Thanks.

Edited February 17, 2006 by bucky002

[Valuater]

maybe this could help

Global $Paused, $CDTray
HotKeySet("{PAUSE}", "TogglePause")
HotKeySet("{ESC}", "Terminate")
HotKeySet("{F9}", "ShowMessage")  

;;;; Body of program would go here;;;;
While 1
    Sleep(100)
WEnd
;;;;;;;;

Func TogglePause()
    $Paused = NOT $Paused
    While $Paused
        sleep(100)
        ToolTip('Script is "Paused"',0,0)
    WEnd
    ToolTip("")
EndFunc

Func Terminate()
    Exit 0
EndFunc

Func ShowMessage()
    If $CDTray Then CDTray ( "d:", "close" )
    If Not $CDTray Then CDTray ( "d:", "open" )
    $CDTray = NOT $CDTray
EndFunc

8)

[bucky002]

Okay, thanks I'll try it later cause I gatta go.

Any more help would be appreciated.

[Valuater]

what other help do you need?

8)

[bucky002]

Can I make a letter instead of f9?

Global $Paused, $CDTray
HotKeySet("{PAUSE}", "TogglePause")
HotKeySet("{ESC}", "Terminate")
HotKeySet("{F9}", "ShowMessage")  

;;;; Body of program would go here;;;;
While 1
    Sleep(100)
WEnd
;;;;;;;;

Func TogglePause()
    $Paused = NOT $Paused
    While $Paused
        sleep(100)
        ToolTip('Script is "Paused"',0,0)
    WEnd
    ToolTip("")
EndFunc

Func Terminate()
    Exit 0
EndFunc

Func ShowMessage()
    If $CDTray Then CDTray ( "d:", "close" )
    If Not $CDTray Then CDTray ( "d:", "open" )
    $CDTray = NOT $CDTray
EndFunc

[cdkid]

change

HotKeySet("{F9}", "ShowMessage")

to

HotKeySet("a letter goes here", "ShowMessage")

~cdkid

Edited February 20, 2006 by cdkid

[bucky002]

Thanks I thought I tried that, but yours worked.

Thanks.

[bucky002]

How can I make this work on all users?

Global $Paused, $CDTray
HotKeySet("{PAUSE}", "TogglePause")
HotKeySet("{ESC}", "Terminate")
HotKeySet("e", "ShowMessage")

;;;; Body of program would go here;;;;
While 1
    Sleep(100)
WEnd
;;;;;;;;

Func TogglePause()
    $Paused = NOT $Paused
    While $Paused
        sleep(100)
        ToolTip('Script is "Paused"',0,0)
    WEnd
    ToolTip("")
EndFunc

Func Terminate()
    Exit 0
EndFunc

Func ShowMessage()
    If $CDTray Then CDTray ( "d:", "close" )
    If Not $CDTray Then CDTray ( "d:", "open" )
    $CDTray = NOT $CDTray
EndFunc

[Valuater]

it works with ... any user.... using it

you can also compile it into an exe file

8)

Edited February 20, 2006 by Valuater

[bucky002]

I want it to run on my name so I can switch user then if my sister gets on her name that if will be effective on hers.

[Valuater]

place it in the start-up for all users

@StartupCommonDir

8)

Edited February 20, 2006 by Valuater

[bucky002]

So it should look like this?

@StartupCommonDir
Global $Paused, $CDTray
HotKeySet("{PAUSE}", "TogglePause")
HotKeySet("{ESC}", "Terminate")
HotKeySet("e", "ShowMessage")

;;;; Body of program would go here;;;;
While 1
    Sleep(100)
WEnd
;;;;;;;;

Func TogglePause()
    $Paused = NOT $Paused
    While $Paused
        sleep(100)
        ToolTip('Script is "Paused"',0,0)
    WEnd
    ToolTip("")
EndFunc

Func Terminate()
    Exit 0
EndFunc

Func ShowMessage()
    If $CDTray Then CDTray ( "d:", "close" )
    If Not $CDTray Then CDTray ( "d:", "open" )
    $CDTray = NOT $CDTray
EndFunc

[Valuater]

no...

just compile it and put a shortcut in that directory

8)

[greenmachine]

Replace the first line (@startupcommondir) with this:

FileCreateShortcut (@ScriptFullPath, @StartupCommonDir & "\" & @ScriptName)

Actually, more specifically so it doesn't try to run the script as an au3 file:

If StringInStr (@ScriptName, ".exe") Then
    FileCreateShortcut (@ScriptFullPath, @StartupCommonDir & "\" & @ScriptName)
EndIf

Edited February 20, 2006 by greenmachine

[bucky002]

So this would work?

If StringInStr (@Script, ".exe") Then
    FileCreateShortcut (@ScriptFullPath, @StartupCommonDir & "\" & @ScriptName)
EndIf
Global $Paused, $CDTray
HotKeySet("{PAUSE}", "TogglePause")
HotKeySet("{ESC}", "Terminate")
HotKeySet("e", "ShowMessage")

;;;; Body of program would go here;;;;
While 1
    Sleep(100)
WEnd
;;;;;;;;

Func TogglePause()
    $Paused = NOT $Paused
    While $Paused
        sleep(100)
        ToolTip('Script is "Paused"',0,0)
    WEnd
    ToolTip("")
EndFunc

Func Terminate()
    Exit 0
EndFunc

Func ShowMessage()
    If $CDTray Then CDTray ( "d:", "close" )
    If Not $CDTray Then CDTray ( "d:", "open" )
    $CDTray = NOT $CDTray
EndFunc

Edited February 20, 2006 by bucky002

[greenmachine]

Looks good to me.

Almost.. got the first line a little off again.

If StringInStr (@Script, ".exe") Then
    FileCreateShortcut (@ScriptFullPath, @StartupCommonDir & "\" & @ScriptName)
EndIf

Should be:

If StringInStr (@ScriptName, ".exe") Then
    FileCreateShortcut (@ScriptFullPath, @StartupCommonDir & "\" & @ScriptName)
EndIf

Edited February 20, 2006 by greenmachine

[bucky002]

Alright, I'll try it.

Thanks. :">

[bucky002]

Hmm..

It still doesn't seem to work.

It works on mine, but not anyone elses.

[greenmachine]

Is the location of the script in a place that anyone can access?

Also, I think startup means computer startup. I could be wrong though.

Edited February 20, 2006 by greenmachine

[bucky002]

It's on MY Desktop. Should I put it somewhere else?