» Poradna » Programy

Jak vysunout CD?

 |   | 

Dobrý den,

chtěl bych se zeptat, jestli se dá ve Flashi naprogramovat vysunutí CD z mechaniky po kliknutí na nějaké tlačítko? Pokud ano jak bude vypadat kód?

Pokud to není možné ve Flashi, jde to v Excelu pomocí Visual Basicu? A jak by vypadal kód tady?

Děkuji

Odpovědi na otázku

 |   | 

To neni dobry napad, nekteri uzivatele maji mechaniku za dvirky, ktera budou branit vysunuti mechaniky a nektera mechanika to pak nemusi prezit. Lepsi je, at si kazdy vysouva CD tlacitkem.

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   | 

Ja uz jsem to drive zkousel a k tomu jsem nasel tenhle skript:

' Set CD=MyComp.ParseName("Appropriate drive letter:\")

Set objShell = CreateObject("Shell.Application")
Set MyComp=objShell.NameSpace(17)
Set CD=MyComp.ParseName("E:\")
Set Context=CD.Verbs
CD.InvokeVerb "E&ject"

Ale ted uz nevim, jak to dopadlo.

Souhlasím  |  Nesouhlasím  |  Odpovědět

Související témata: Vysunutí




Určitě si přečtěte

Velká podzimní aktualizace: Co nového teď najdete ve Windows 10

Velká podzimní aktualizace: Co nového teď najdete ve Windows 10

** Microsoft se opět snaží spojit telefony a počítače. ** Místo velkých novinek se zaměřil spíše na drobná vylepšení. ** Vyhledávání je konečně použitelné a hledá téměř všude.

Vladislav Kluska | 78

Astronomové objevili daleko za Plutem objekt s extrémní dráhou. Může ukazovat na existenci planety Devět

Astronomové objevili daleko za Plutem objekt s extrémní dráhou. Může ukazovat na existenci planety Devět

** Astronomové objevili daleko za Neptunem těleso 2015 TG387 ** Okolo Slunce se pohybuje po extrémně protáhlé dráze ** Jeho dráha může ukazovat na existenci planety Devět

Petr Kubala | 10

Nový iPhone a další novinky Applu: sledujte, na co se zase budou stát fronty

Nový iPhone a další novinky Applu: sledujte, na co se zase budou stát fronty

** Apple dnes představuje nové produkty v čele s novými iPhony ** Nemusí zůstat jen u telefonů, čekají se i další novinky ** Úvodní přednáška začíná v 19:00 našeho času

David Polesný | 57

Osudová havárie Concordu: Před 18 lety přišel konec nadzvukových dopravních letadel

Osudová havárie Concordu: Před 18 lety přišel konec nadzvukových dopravních letadel

** Concorde byl nejrychlejším dopravním letadlem ** Atlantik dokázal přeletět za cca 3 až 3,5 hodiny ** Před osmnácti lety tragická havárie provoz těchto letadel prakticky ukončila

David Polesný, Jiří Černý | 37

Google má nové telefony, počítač a domácí displej. Česko je stále mimo

Google má nové telefony, počítač a domácí displej. Česko je stále mimo

** Google dnes představil novinky ** Dočkali jsme se nového telefonu Pixel 3, tabletopočítače a domácího displeje ** Rozšíření Google Assistenta do dalších zemí se bohužel nekoná

David Polesný | 45


Aktuální číslo časopisu Computer

Jak vytvořit a spravovat vlastní web

Velký test herních klávesnic a DVB-T2 tunerů

Vše o formátu RAW

Vybíráme nejlepší základní desku