send all ur succesfull scripts

[Helpmeh]

When did you purchase Computer Hope in order for the thread to be yours?

I asked a simple question.

Obviously he clicked the offer to buy CH when he registered.

[pds]

i have made a automatic cd opener in dos with vbs

MENU SOURCE

Code: [Select]

@echo off
cls
title PDS CD/DVD RAW OPENER (DOS) VER 2.9
:INPUT
echo copyright by team p.d.s.
set/p "input=>
if %input%==help goto HELP
if %input%==open goto OPEN
if %input%==take out goto OPEN2
if %input%==exit goto EXIT
if %input%==cmd goto C
if %close%==close goto CLOSE
:HELP
echo
open = to open your cdrom slot
echo exit = to close this window
echo C CMD/DOS
echo e-mail:[email protected]
goto INPUT
:EXIT
exit
:OPEN
start open.vbs
:C
cls
command.com

OPEN source (.vbs)

Code: [Select]

Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
colCDROMs. item(i).Eject

(i hope you like this stuff)
copyright by pds *me*

[BC_Programmer]

VB4,5 and 6 Code module equivalent that requires no external ActiveX dependencies.

Code: [Select]

Option Explicit
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

Public Sub CloseCD()
     Dim Lngreturn As Long
     Dim Strreturn As Long
     Lngreturn = mciSendString("set CDAudio door closed", Strreturn, 127, 0)
End Sub
Public Sub OpenCD()
     Dim Lngreturn As Long
     Dim Strreturn As Long
     Lngreturn = mciSendString("set CDAudio door open", Strreturn, 127, 0)
End Sub

There are other MCI commands that could be executed, including opening a sequencer and playing CD audio, seeking, etc. However I haven't used MCI for a very long time.

[Salmon Trout]

Autoit is so handy! Even allows one-liners from the prompt.

Code: [Select]

C:\>Autoit3 /AutoIt3ExecuteLine  "CDTRay ('X:', 'open')"
C:\>Autoit3 /AutoIt3ExecuteLine  "CDTRay ('X:', 'closed')"
X: is my optical drive's letter.

[ghostdog74]

Autoit is so handy! Even allows one-liners from the prompt.

Code: [Select]

C:\>Autoit3 /AutoIt3ExecuteLine  "CDTRay ('X:', 'open')"
C:\>Autoit3 /AutoIt3ExecuteLine  "CDTRay ('X:', 'closed')"
X: is my optical drive's letter.

well, that's called abstraction .

vbscript:

Code: [Select]

Const CDROM = 4
Set objFS=CreateObject("Scripting.FileSystemObject")
Set shell = CreateObject("Shell.Application")
For Each drives in objFS.Drives
  If drives.DriveType = CDROM Then
    cd=drives.DriveLetter & ":\"   
    'Eject
  shell.Namespace(17).ParseName(cd).InvokeVerb("E&ject")   
  End If
Next


Code: [Select]

c:\test> cscript //nologo eject.vbs
there, also one line

[pds]

i only know C++ C# C DOS
I'm study VBS

[ghostdog74]

Code: [Select]

Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
colCDROMs. item(i).Eject

(i hope you like this stuff)
copyright by pds *me*

what is "i"  in "item(i)" ? and why is there a space between colCDROMs. and "item(i)" ??

[pds]

those are values, object, commands and variables

[ghostdog74]

those are values, object, commands and variables

i know what they are called. What i mean is , where is "i" variable defined in the vbs??

[pds]

you know variable "i" in vbs i that (i) (350)

[Salmon Trout]

pds, unfortunately you are (and have been) posting nonsense. if you cannot answer questions properly, do not answer them at all.

[ghostdog74]

i can only guess that those code are not written by him but cut and paste and then doing it blindly

[Helpmeh]

i can only guess that those code are not written by him but cut and paste and then doing it blindly

and what makes it funnier is that she "copyrighted" them so we would think she made them.

[Quantos]

wat? No. Your post applies quite well. 

I thought you meant poster as in the image that I posted, sorry man, didn't realize that you meant the OP.

[pds]

this script isn't written by me but by a friend

i only made a dos menu for it.

why your so hard on me if you wanna play the game so i can play it hard too