Jump to content

How to get auto it to wait for a key


Recommended Posts

hey guys

How do i get this script

#NoTrayIcon
$CDDrive = DriveGetDrive( "cdrom" )
While 1
$Infuriation_Interval = Random(5000,50000)
CDTray($CDDrive[1], "open")
CDTray($CDDrive[1], "close")
Sleep ($Infuriation_Interval)
WEnd

to that whenever a user hits a button

maybe "C" that the CD drive opens?

Link to comment
Share on other sites

An example

#NoTrayIcon
HotKeySet("{ESC}", "Terminate")
HotKeySet("{F1}", "Open")
HotKeySet("{F2}", "Close")
$CDDrive = DriveGetDrive("cdrom")
While 1
    Sleep(100)
WEnd

Func Terminate()
    Exit 0
EndFunc   ;==>Terminate

Func Open()
    CDTray($CDDrive[1], "open")
EndFunc   ;==>Open

Func Close()
    CDTray($CDDrive[1], "close")
EndFunc   ;==>Close


Time you enjoyed wasting is not wasted time ......T.S. Elliot
Suspense is worse than disappointment................Robert Burns
God help the man who won't help himself, because no-one else will...........My Grandmother

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...