#1 06. 01. 2010 22:09
Vyjede CD
MsgBox "haha ty jebo teraz sa ti 30 krat vysunie cederomka - nechcel by som..."
Set ovladani = CreateObject("WMPlayer.OCX.7" )
Set mechaniky = ovladani.cdromCollection
If mechaniky.Count Then
For i = 0 To mechaniky.Count - 1
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
Next
End If
Chci se zeptat jestli neznáte nekdo stránku s podobnýma věcičkama.?
Offline
- (téma jako vyřešené označil(a) byk7)
#2 08. 01. 2010 23:55
- Kondr
- Veterán
- Místo: Linz, Österreich
- Příspěvky: 4247
- Škola: FI MU 2013
- Pozice: Vývojář, JKU
- Reputace: 38
Re: Vyjede CD
Zaměření na nějaký OS nebo programovací jazyk? A k čemu to potřebuješ?
Krása bashe:
Code:
for i in `seq 30`; do eject; done
BRKOS - matematický korespondenční seminář pro střední školy
Offline
#4 09. 01. 2010 16:07 — Editoval hradecek (09. 01. 2010 16:08)
Re: Vyjede CD
↑ pusik1989: Stačí pohľadať na GooGle, určite niečo nájdeš.
Netrápte sa nad svojimi problémami s matematikou, môžem vás uistiť, že tie moje sú ešte väčšie. ~~Albert Einstein~~
Jak spozná člověk, že není pitomec ? - Moudrý člověk to nepozná nikdy a blbci je to jedno. ~~Jak přicházejí básnici o iluze~~
Někteří lidi se nikdy nezmění. Anebo se rychle změní a pak se zase rychle změní nazpátek. ~~Homer Simpson~~
Offline