Löysin scriptin joka avaa ja sulkee cd aseman automaattisesti. Miten ton sais muokattua siten että avais vaan kerran cd aseman eikä sulje sitä automaattisesti?
do
Dim ts
Dim strDriveLetter
Dim intDriveLetter
Dim fs 'As Scripting.FileSystemObject
Const CDROM = 4
On Error Resume Next
Set fs = CreateObject("Scripting.FileSystemObject")
strDriveLetter = ""
For intDriveLetter = Asc("A") To Asc("Z")
Err.Clear
If fs.GetDrive(Chr(intDriveLetter)).DriveType = CDROM Then
If Err.Number = 0 Then
strDriveLetter = Chr(intDriveLetter)
Exit For
End If
End If
Next
Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
For d = 0 to colCDROMs.Count - 1
colCDROMs.Item(d).Eject
Next 'null
For d = 0 to colCDROMs.Count - 1
colCDROMs.Item(d).Eject
Next 'null
set owmp = nothing
set colCDROMs = nothing
loop
Skripti joka avaa cd aseman automaattisesti
7
<50
Vastaukset
- hfghfgheety
Poista tuo jälkimmäinen colCDROMs.Item(d).Eject ?
- dfsghjklööä
joo muten toimii mutta kun sen sulkee käsin sen aseman se avaa sen uudelleen ton loopin takia. Koitin poistaa ton viimisen lauseen loop niin kun sen suorittaa niin se ilmoittaa sen olevan pakollinen
- singnaali
dfsghjklööä kirjoitti:
joo muten toimii mutta kun sen sulkee käsin sen aseman se avaa sen uudelleen ton loopin takia. Koitin poistaa ton viimisen lauseen loop niin kun sen suorittaa niin se ilmoittaa sen olevan pakollinen
No kun sen ohjelman loppuminen tapahtuu sillein, että poistutaan johonkin (jos ei aloiteta alusta)
- dfsghjklööä
mutta miten? esim batch tiedostot luetaan rivi riviltä ja sulkeutuu exit kommenosta tai kun viimeinen rivi on suoritettu.
- ojkoioouiouiuhuoh
dfsghjklööä kirjoitti:
joo muten toimii mutta kun sen sulkee käsin sen aseman se avaa sen uudelleen ton loopin takia. Koitin poistaa ton viimisen lauseen loop niin kun sen suorittaa niin se ilmoittaa sen olevan pakollinen
"Koitin poistaa ton viimisen lauseen loop niin kun sen suorittaa niin se ilmoittaa sen olevan pakollinen"
Se viimeinen loop-käsky palauttaa ohjelman suorituksen koodin alussa olevaan "Do" käskyyn.
Eli jos haluat koodin suritettavan vain kerran, poista ensimmäinen "Do" ja viimeinen "loop" - dfsghjklööä
joo oisko olemassa suomenkielistä vbs opasta tai kirjaa kiitos linkistä ja vinkistä ;)
- 575Ciy
Eikä Windowsista löydy eject komentoa?
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Pupuhuhdasta löytyi lähes sadan kilon miljoonalasti huumeita
Pupuhuhdasta löytyi lähes sadan kilon miljoonalasti huumeita – neljä Jyväskylän Outlaws MC:n jäsentä vangittu: "Määrät p561896Persut petti kannattajansa, totaalisesti !
Peraujen fundamentalisteille, vaihtkaa saittia. Muille, näin sen näimme. On helppo luvata kehareille, eikä ne ymmärrä,481648- 521574
Nähtäiskö ylihuomenna taas siellä missä viimeksikin?
Otetaan ruokaöljyä, banaaneita ja tuorekurkkuja sinne messiin. Tehdään taas sitä meidän salakivaa.51527Sinäkö se olit...
Vai olitko? Jostain kumman syystä katse venyi.. Ajelin sitten miten sattuu ja sanoin ääneen siinä se nyt meni😅😅... Lis61495Housuvaippojen käyttö Suomi vs Ulkomaat
Suomessa housuvaippoja aletaan käyttämään vauvoilla heti, kun ne alkavat ryömiä. Tuntuu, että ulkomailla housuvaippoihin61415Hyvää yötä ja kauniita unia!
Täytyy alkaa taas nukkumaan, että jaksaa taas tämän päivän haasteet. Aikainen tipu madon löytää, vai miten se ärsyttävä81306Lepakot ja lepakkopönttö
Ajattelin tehdä lepakkopöntön. Tietääkö joku ovatko lepakot talvella lepakkopöntössä ´vai jossain muualla nukkumassa ta121281Revi siitä ja revi siitä
Enkä revi, ei kiinnosta hevon vittua teidän asiat ja elämä. Revi itte vaan sitä emborullaas istuessas Aamupaskalla41163Kello on puoliyö - aika lopettaa netin käyttö tältä päivältä
Kello on 12, on aika laittaa luurit pöydälle ja sallia yörauha kaupungin asukkaille ja työntekijöille. It is past midni41138