Forum Mjukvara Programmering och digitalt skapande Tråd Inlägg

Bat/Vbs-skript för ut och inmatning av cd-läsaren

1
Skriv svar
Permalänk
Medlem
●

Bat/Vbs-skript för ut och inmatning av cd-läsaren

Kan någon ge mig två .bat/.vbs skript?

Ett för utmatning av cd-enheten och ett för inmatning?

Jag har bara stött på "random"baserade skript där den både matar ut och in cd-läsaren...

Tack på förhand!

Visa signatur

Rasmus Lindell
Webmaster

Redigera
Citera flera Citera
Permalänk
Medlem
●

Finns en samlad Tråd om detta.
http://forum.sweclockers.com/showthread.php?s=&threadid=42531...

Visa signatur

Samsung TFT 22" 2233RZ Svart 120HZ - 640GB Western Digital Black 64MB SATA III - Corsair 4GB (2x2048MB) 1333MHz XMS3-10600 - AMD Phenom2 X4 965 3,4GHz Black Edition - Gigabyte GeForce GTX 460 1GB OC - Fractal Design Define R3, Svart - Corsair TX 650W 80+ - Gigabyte GA-870A-UD3 - Cooler Master Hyper 212 Plus

Redigera
Citera flera Citera
Permalänk
Medlem
●
Citat:

Ursprungligen inskrivet av sAnden
Finns en samlad Tråd om detta.
http://forum.sweclockers.com/showthread.php?s=&threadid=42531...

Jo, har läst den...
Men jag förstår inte hur jag ska gå in den igen bara...

Senast redigerat
Visa signatur

Rasmus Lindell
Webmaster

Redigera
Citera flera Citera
Permalänk
Medlem
●

Du gör en .vbs fil som det står så här i t.ex:

MsgBox "Har du ingenstans att ställa din dricka ?",64,"Dricka"
Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then
For a = 0 to 100
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next ' cdrom
Next ' a
End If

Visa signatur

| i5 10600k@4,7 Ghz | AMD 6800 | 4Ghz RAM | 1 TB m.2 |

Redigera
Citera flera Citera
Permalänk
Medlem
●

Om du tittar på kaptenperres kod och speciellt raden

colCDROMs.Item(i).Eject

Så matar den in släden om den är ute, och ut om den är inne. It has two edges

Visa signatur

Laptop: Zepto 6214W, Core Duo @ 2.0 GHz, 2048 MB RAM, 100 GB 7200 rpm
Server: Asus A7N8X Deluxe 2.0, Athlon XP 2500+ Barton, 2*Corsair 1024 MB, 200 GB Seagate, 3*320 GB WD3200 varav 2*RAID Edition

Redigera
Citera flera Citera
Permalänk
Medlem
●

Okej, ska testa snart. Men för varje gång man kör .vbs-filen så dyker det upp en process. Varför? Kan man inte stänga ner processen efter filen har körts?

Edit: Nu åker den ju in och ut hela tiden. Jag vill att den ska åka in och ut separat...

Visa signatur

Rasmus Lindell
Webmaster

Redigera
Citera flera Citera
Permalänk
Medlem
●

Vill du att den bara ska åka in/ut en gång kan du göra så här:

Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
colCDROMs.Item(0).Eject
Visa signatur

Laptop: Zepto 6214W, Core Duo @ 2.0 GHz, 2048 MB RAM, 100 GB 7200 rpm
Server: Asus A7N8X Deluxe 2.0, Athlon XP 2500+ Barton, 2*Corsair 1024 MB, 200 GB Seagate, 3*320 GB WD3200 varav 2*RAID Edition

Redigera
Citera flera Citera
Permalänk
Medlem
●
Citat:

Ursprungligen inskrivet av Legogris
Vill du att den bara ska åka in/ut en gång kan du göra så här:

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

In sen då?

Visa signatur

Rasmus Lindell
Webmaster

Redigera
Citera flera Citera
Permalänk
Medlem
●
Citat:

Ursprungligen inskrivet av Rüllen
In sen då?

Då kör man skriptet igen...

Visa signatur

Laptop: Zepto 6214W, Core Duo @ 2.0 GHz, 2048 MB RAM, 100 GB 7200 rpm
Server: Asus A7N8X Deluxe 2.0, Athlon XP 2500+ Barton, 2*Corsair 1024 MB, 200 GB Seagate, 3*320 GB WD3200 varav 2*RAID Edition

Redigera
Citera flera Citera
Permalänk
Medlem
●
Citat:

Ursprungligen inskrivet av Legogris
Då kör man skriptet igen...

Fungerar inte.

Visa signatur

Rasmus Lindell
Webmaster

Redigera
Citera flera Citera
1
Skriv svar
Senaste nyheterna
Hårdvara
Mjukvara
Övrigt
Nytt i forumet
Datorkomponenter
System
Ljud, bild och kommunikation
Spel och mjukvara