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
Nesteen bensapumput pois, tilalle latausasemat
Näin se maailma muuttuu, kun Suomessakin liikenneasemat lopettavat polttoaineiden myynnin ja tarjoavat enää sähköä autoi1791468Mietin sinua nainen
Ikävöin sinua enemmän kuin voin myntää. Ajattelin et laitan sinulle viestriä (kirjoitin jo puhelimeen viestin) Sitten551012Härsilällä jännät paikat, saako hän 30 päiväsakkoa Rasmuksen tapauksesta
Syyttäjä vaatii peräti kolmekymmentä päiväsakkoa Härsilälle, vaikka todistajan mukaan Rasmus aloitti nuhjaamisen, jossa63761Kyllä suoraan
Sanottua vi.tu.taa. Miksi en toiminut silloin. Sama kun olisi heittänyt smagardin menemään.35735Nainen, viime aikoina olen itkenyt sinua yhä useammin
Niin kuin juuri äsken. Aamulla näin myös unta sinusta. Koskin unessa hiuksia päälaellasi, ja pyytelin sitä heti anteeksi51697Voisitko nainen kertoa mulle
Tykkäätkö sä musta, vai unohdanko koko jutun? Mä en viitti tulla sinne enää, ettei mua pidetä jonain vainoajana, ku sun111680- 81669
- 36644
- 68627
Täällä iImenee vihamielisyys kristinuskoa kohtaan
Ei taida sielunvaellus-/jälleensyntymisväellä olla omasta asiastaan mielekästä sanottavaa, kun pitää kiivaasti hyökätä e303597