Jak někoho postrašit
Napsal: 28 říj 2010 09:37
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
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
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
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
Teraz nemyslim kvoli pravopisu. 
