Springen naar inhoud


cd-rom drive openen


  • Log in a.u.b. om te beantwoorden
Er zijn 8 reacties in dit onderwerp

#1 VB6Dummy

VB6Dummy

    VBIB Godfather

  • Leden
  • PipPipPipPipPipPipPipPip
  • 5388 berichten
    Laatst bezocht 26 dec 2014 17:43

Geplaatst op 06 mei 2011 - 20:49

Heb voor andere post een opzoeking gedaan en heb een source gevonden om systeemmappen te zoeken.

De gewenste functie om een cd-drive te openen en te sluiten zit erin verwerkt. Wel nog even zoeken om de 2de te openen.

U kunt het downloaden van mijn site (sfc.zip)

#2 VB6Dummy

VB6Dummy

    VBIB Godfather

  • Leden
  • PipPipPipPipPipPipPipPip
  • 5388 berichten
    Laatst bezocht 26 dec 2014 17:43

Geplaatst op 06 mei 2011 - 20:49

hey ik naar' zelfde op zoek als jij dat wat jij hebt is een vbscript dat gebruik maakt van windows media player

verander de 0 in een1 (for i = 0) en alleen de onderste gaat open

verander  -1 in -2 en alleen de bovenste gaat open. heb jij toevallig een script om ze weer te sluiten????  Of een url om te leren programeren??

dank u

#3 VB6Dummy

VB6Dummy

    VBIB Godfather

  • Leden
  • PipPipPipPipPipPipPipPip
  • 5388 berichten
    Laatst bezocht 26 dec 2014 17:43

Geplaatst op 06 mei 2011 - 20:49

ik wil mijn andere drive ook kunnen openen maar als ik de naam van de drive verander dan opent hij nog steeds dezelfde drive



btw is er ook een manier om de drives terug te sluiten?



bedankt

#4 VB6Dummy

VB6Dummy

    VBIB Godfather

  • Leden
  • PipPipPipPipPipPipPipPip
  • 5388 berichten
    Laatst bezocht 26 dec 2014 17:43

Geplaatst op 06 mei 2011 - 20:49

enstaat dit :
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


als eerste lijn ?

#5 VB6Dummy

VB6Dummy

    VBIB Godfather

  • Leden
  • PipPipPipPipPipPipPipPip
  • 5388 berichten
    Laatst bezocht 26 dec 2014 17:43

Geplaatst op 06 mei 2011 - 20:48

VB script zegt dat er in line 1 char 17 een fout zit en VB zegt dat de fout hier zit: "open  H:  type cdaudio alias driveH"

#6 VB6Dummy

VB6Dummy

    VBIB Godfather

  • Leden
  • PipPipPipPipPipPipPipPip
  • 5388 berichten
    Laatst bezocht 26 dec 2014 17:43

Geplaatst op 06 mei 2011 - 20:48

hmmm, hier lijkt dat te werken. Wat gebeurt er juist?

#7 VB6Dummy

VB6Dummy

    VBIB Godfather

  • Leden
  • PipPipPipPipPipPipPipPip
  • 5388 berichten
    Laatst bezocht 26 dec 2014 17:43

Geplaatst op 06 mei 2011 - 20:48

bedankt maar het werkt bij mij helaas niet

#8 VB6Dummy

VB6Dummy

    VBIB Godfather

  • Leden
  • PipPipPipPipPipPipPipPip
  • 5388 berichten
    Laatst bezocht 26 dec 2014 17:43

Geplaatst op 06 mei 2011 - 20:48

Hallo,

U kunt het volgende proberen :

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


Dim i As Long

  i = mciSendString("open  H:  type cdaudio alias driveH", 0&, 0, 0)
  i = mciSendString("Set driveH door open wait", vbNullString, 0, 0)


Succes ermee

#9 VB6Dummy

VB6Dummy

    VBIB Godfather

  • Leden
  • PipPipPipPipPipPipPipPip
  • 5388 berichten
    Laatst bezocht 26 dec 2014 17:43

Geplaatst op 06 mei 2011 - 20:48

Ik heb een VB script geschreven om mijn cd-rom drive te openen

ik heb er 2 en wil er maar 1 openen de H:

dit is mijn script

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

if colCDROMs.Count >= 1 then
        For i = 0 to colCDROMs.Count - 1
                colCDROMs.Item(i).Eject
        Next ' cdrom
End If


als iemand verbeteringen heeft, graag

en ik wil graag weten hoe ik alleen mijn H drive kan openen

dank




0 gebruiker(s) lezen dit onderwerp

0 lid(leden), 0 bezoeker(s), 0 anonieme gebruikers

Inloggen


Untitled 1

Met dank aan J├╝rgen voor de jarenlange inzet van visualbasic.be (anno dec 2000)
Met dank aan Mike en Ronneke voor de jarenlange inzet van vbib.be (anno dec 2010)
Met dank aan PascalBianca voor de jarenlange inzet van vbib.be (anno dec 2016)