SRL Archive - Misc. Links and Programs

Anyone know of a program that can just spam open/close my CD tray?

<3YoHoJo

Why would you want that? JW ;)

ISN'T IT OBVIOUS?!

Ooooooooooh, now it makes perfect sense. lol j/k

I dunno how that picture of pikachu helps..

http://rjlpranks.com/pranks/floppy_madness/

http://www.instructables.com/id/%7BUpdated%7DHow-to-make-the-cd-drive-of-any-computer-/

http://www.mediafire.com/download.php?5zjkxymewmy

There ya' go :)

Set-up is pretty self-explanatory ;)

var
  IsSpamming, Stop: Boolean;

procedure Wait(ms: Cardinal);
var
  eT: Cardinal;
begin
  eT := GetTickCount + ms;

  while (GetTickCount < eT) do
  begin
    Application.ProcessMessages;
    Sleep(1);
  end;
end;

procedure DoTheStuff;
var
  BetweenV, AfterV: Integer;
begin
  IsSpamming := True;

  BetweenV := StrToInt(Form1.Edit1.Text);
  AfterV := StrToInt(Form1.Edit2.Text);

  repeat

    mciSendString('Set cdaudio door open wait', nil, 0, Form1.Handle);
    Wait(BetweenV);
    mciSendString('Set cdaudio door closed wait', nil, 0, Form1.Handle);
    Wait(AfterV);

  Until(Stop);

  Stop := False;
  IsSpamming := False;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
  if(not(IsSpamming)) then
    DoTheStuff;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Stop := True;
end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  Stop := True;
end;

Wow. Dan is really THE MAN. :thumbsup:

Except that he cheats using compiled applications, while API calls also do the job :)

function mcisendstring(command, buffer : string; returnbuf : longword; callbackhandle : hwnd) : longword; external 'mciSendStringA@winmm.dll'; stdcall;

should work.

From: Markus
Except that he cheats using compiled applications, while API calls also do the job :)

function mcisendstring(command, buffer : string; returnbuf : longword; callbackhandle : hwnd) : longword; external 'mciSendStringA@winmm.dll'; stdcall;

should work.

Am I cheating, eh? xD

@Runescape Pro:
It's actually simple, not hard at all..

it's a shame you aren't using Linux, else it would be:
`eject` to eject the tray
and `eject -t` to insert the tray

haven't added insert functionality, but here's some Ruby for ejecting:

[PHP]
require "win32ole"

class CDRom
attr_accessor :drive, :drive_letter

def initialize(drive_letter)
my_computer = 17
@drive_letter = drive_letter
shell = WIN32OLE.new("Shell.Application")
@drive = shell.NameSpace(my_computer).ParseName(drive_letter)
end

def invoke_verb(verb_name)
@drive.Verbs.each do |verb|
if verb.Name == verb_name
verb.doIt
break
end
end
end

def eject
self.invoke_verb("E&ject")
end
end

cdrom = CDRom.new("E:\\")
cdrom.eject
[/PHP]

~ Craig` :)

# open and close the CD <strong class="highlight">tray</strong> door (Windows OS)
# tested with <strong class="highlight">Python</strong> 3.1

import ctypes
import time

# open the CD <strong class="highlight">tray</strong> door
ctypes.windll.winmm.mciSendStringW("set cdaudio door open",
    None, 0, None)

# wait 3.5 seconds
time.sleep(3.5)

# close the CD <strong class="highlight">tray</strong> (manual closing only with some notebooks)
ctypes.windll.winmm.mciSendStringW("set cdaudio door closed",
    None, 0, None)

Thanks Dan, it opens it quite fast, but after closing it, the computer tires to 'read' the 'not disk' in the drive, and then opens it up again. So its kinda slow.

in msn
type,
/open