Jak někoho postrašit

[mickeykr]

Zdravím, chcete někoho postrašit menším virem ? No ono se to nedá nazývat virem, ale špíše něčím čím dokážete postrašit.......


Ok, jdeme na to.

1. Otevřete si poznámkový blog.
2. Napište do něj

Kód: Vybrat vše

MsgBox "Zde napište text který se zobrazí např: Ty mě chceš naštvat ? Ok teď uvidíš kouzlo, tvoje mechanika"
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
mechaniky.Item(i).Eject

Next
End If
 

Kolikrát zadáte "mechaniky.Item(i).Eject" Tolikrát se mechanika otevře a zavře.... Prosím tohle funguje jen u stolních počítačů.


3. Uložte pod .vbs v mém případě dárek.vbs
Poté se vám vytvoří soubor ve skriptovém jazyku VBS.
[/b]

Hodně štěstí, používáte na vlastní nebezpečí, tenhle vir není trvalí, záleží kolikrát zadáte

mechaniky.Item(i).Eject

Po restartování počítače už není funkční, k funkčnosti musíte sputit soubor.... Funguje pouze po spuštění, jestli zapnete počítač zítra už vám to nebude dělat.... Pokud nezapnete znovu program.... Tenhle vir není nebezpečný, takže nedělejte tu estrády s tím, že tu budete rozdělávat antiviry.


Dík, Mickey

[Pavuk29]

skryptovém

Len tak mimochodom, ako dlho mas pocitac? Teraz nemyslim kvoli pravopisu.

[mickeykr]

skryptovém

Len tak mimochodom, ako dlho mas pocitac? Teraz nemyslim kvoli pravopisu.

jžš sorry, 8 let

[Pavuk29]

ja len tak, lebo mna uz cca po roku prestalo bavit hrat sa so skriptami Ale zato som pred 10 rokmi s oblubou supol kolegovi na W98 do adresara po spusteni exac, co mu otocil obrazovku hore nohami Poveda mi len ze som debil a ze ci ma to este bavi

[mickeykr]

Tak to opravíš hned v "Ovládacích panelech" Takže No jo, taky se chci naučit nějaké to scriptování

[Pavuk29]

Tak to opravíš hned v "Ovládacích panelech" Takže No jo, taky se chci naučit nějaké to scriptování

Ty si asi W98 nikdy nevidel, co?

[mickeykr]

Viděl, proč ? Jo, tak jako Já jsem myslel, jako že se to dá teď nastavit... Nepostřehl jsem to před deseti rokama

[Pavuk29]

Nebolo by lepsie ten exac odstrelit a restart?

[mickeykr]

Nemám ponětí

[Pavuk29]

Celkom som aj rad ze nesedis za mojou klavesnicou

[mickeykr]

Proč ?

Tak to u tebe vypadá ?

[Pavuk29]

Chyba tam popolnik a pivo.

[mickeykr]

No jo no

[Pavuk29]

[mickeykr]

Ty si tady začal s