CD TRAY

[therks]

If you explore that site a little you'll be able to find the source for that program, which you could analyze and then maybe come up with a way to do this in AutoIt. Emphasis on maybe. I'm just offering it as a suggestion.

Download the source from here:

http://sourceforge.net/project/showfiles.p...ckage_id=166050

[James]

You could use some True and False statements, in a while loop with hotkeys.

[testingtest]

thanks guys

[James]

No problem.

I did try doing this once. I had it working so you could have hot keys which would lock or unlock the CD Tray, sometimes it would work but then you keep pressing and it doesn't..

[testingtest]

  Secure_ICT said:

No problem.

I did try doing this once. I had it working so you could have hot keys which would lock or unlock the CD Tray, sometimes it would work but then you keep pressing and it doesn't..

yea I had it lock but I notice if I pushed it in it does the same thing. Ill keep playing with it

[James]

Here is what I had:

HotKeySet("!^u", "_Unlock")
HotKeySet("!^l", "_Lock")
HotKeySet("1", "_Msg")
HotKeySet("{esc}", "_Esc")
#NoTrayIcon

$Lock = True

While $Lock = True
    CDTray("D:", "closed")
    $Lock = True
WEnd

While $Lock = False
    $Lock = False
WEnd

Func _Unlock()
    $Lock = False
EndFunc   ;==>_Unlock

Func _Lock()
    $Lock = True
    CDTray("D", "closed")
EndFunc   ;==>_Lock

Func _Esc()
    Exit
EndFunc   ;==>_Esc

Func _Msg()
    MsgBox(0, "CD Drive", $Lock)
EndFunc   ;==>_Msg

It's messy, but it could work if someone can be bothered.

[testingtest]

  Secure_ICT said:

Here is what I had:

HotKeySet("!^u", "_Unlock")
HotKeySet("!^l", "_Lock")
HotKeySet("1", "_Msg")
HotKeySet("{esc}", "_Esc")
#NoTrayIcon

$Lock = True

While $Lock = True
    CDTray("D:", "closed")
    $Lock = True
WEnd

While $Lock = False
    $Lock = False
WEnd

Func _Unlock()
    $Lock = False
EndFunc   ;==>_Unlock

Func _Lock()
    $Lock = True
    CDTray("D", "closed")
EndFunc   ;==>_Lock

Func _Esc()
    Exit
EndFunc   ;==>_Esc

Func _Msg()
    MsgBox(0, "CD Drive", $Lock)
EndFunc   ;==>_Msg

It's messy, but it could work if someone can be bothered.

thanks nice picture

[James]

No problem.

Its my real identity! I'm that person, well dog behind my screen. Woof!

[Shevilie]

WTF - Damn ugly code there would eat all your CPU and you can only lock / unlock one time

While $Lock = True
    CDTray("D:", "closed")
    $Lock = True
WEnd

While $Lock = False
    $Lock = False
WEnd

Edited February 23, 2007 by Shevilie

[testingtest]

  Secure_ICT said:

No problem.

Its my real identity! I'm that person, well dog behind my screen. Woof!

hehe looks like a counter strike dog with his little microphone.

I have to get ready for school peace out guys