návody, odkazy, zábava,diskuse....
 
Obsah fóraFAQPřihlášeníRegistrace/portalPříjem

Je zde nová část stránek zvaná Portal - Hry
Informace
 Hra ukládá data pomocí cookies, takže pokud chcete pokračovat v uložené hře pozor nesmažte si je !
Instrukce najdete ZDE




Ovládací panel


Ovládací panel Profil
Informace
Nastavení
Podpis
Avatar

Osobní Osobní
Přátelé a Nepřátelé
Seznam uživatelů
Skupiny uživatelů


Soukromé zprávy Soukromé zprávy
Příchozí
Odeslané


Ostatní Ostatní
Sledování
Záložky


Share | 
 

 Žertíky pro nepřátele - vysunutí cd/dvd mechaniky

Zobrazit předchozí téma Zobrazit následující téma Goto down 
AutorZpráva
avatar
Admin
Administrátor
Administrátor


PříspěvekPředmět: Žertíky pro nepřátele - vysunutí cd/dvd mechaniky   29.12.11 14:31

Docela dlouho mi trvalo, než jsem našla funkční postup na vytvoření scriptu, který vysune CD mechaniku. Na netu jsem jich našla hodně, ale málo z nich fungovalo a hodně mi jich po vysunutí hodilo chybu. Nakonec jsem nějaký trochu upravila a funguje výtečně. Pozor nefunguje na Notebookách, jen stolních PC. Takže, vytvořte soubor *.vbs a do něj napište toto:

citace :
Set oWMP = CreateObject("WMPlayer.OCX.7")
Set CDROMs = oWMP.cdromCollection
if CDROMs.Count>=1 then
For i=0 to CDROMs.Count-1
CDROMs.item(i).Eject
CDROMs.item(i).Eject
Next 'cdrom
End if

Příkaz CDROMs.item(i).Eject tam můžete hodit, kolikrát chcete (zobrazuje počet vysunutí a zasunutí mechaniky), ale jestli chcete, aby se na konci mechanika zase zasunula, počet těchto příkazů musí být sudý.

POZOR!! Tuto legrácku zastavíte, tak že ukončíte proces wscript.exe (pomocí správce souborů - CTRL+ALT+Delete)


[You must be registered and logged in to see this link.]
Návrat nahoru Goto down
 

Žertíky pro nepřátele - vysunutí cd/dvd mechaniky

Zobrazit předchozí téma Zobrazit následující téma Návrat nahoru 
Strana 1 z 1

Povolení tohoto fóra:Nemůžete odpovídat na témata v tomto fóru
Počítačoví zvědavci :: Zábava :: Zábava a jiné-