Ach ta má lenost... Dala vzniknut novému programu :D

29. ledna 2012 v 12:32 | Černá Kočka |  Černá Kočka a její bezvýznamné tlachání...
Zdarec, mí milí, velevážení a úžasní návštěvníci blogu.
Nutně se vám musím s něčím svěřit. A to konkrétně s tím, že jsem zoufale líná psát svou povídku. Ano ano, už je tomu tak. Je mi to velice líto. *popotáhne a sáhne po kapesníčku*
Ale abych vám to nějak vynahradila, tak vám sem přihodím jednu takovou nanicovatou kravinku, co jsem dneska spatlala.
Více v celém článku.



Tak jsem se před chvílí nudila a napadlo mě, že bych mohla něco naprogramovat, ani nepamatuji, kdy jsem naposledy dělala v Basicu (ach ta nostalgie... To byly zlaté časy. Když jsme ještě měli našeho starého profesora...). Tak jsem vyrobila tohle. Nevím, jestli by se to dalo úplně nazvat virem, je to spíš takový nanicovatý (jak už jsem se zmínila) ,,makrovir". Každopádně, jestli ho chcete vyzkoušet, tak si otevřete OpenOffice (popřípadě Excel), dejte nástroje - makra - editovat makra (nebo jak se to tam jmenuje, přesně nevím), otevřete si tam nějakej modul a do něj to vložte. Pak stačí dát nahoře v tý liště takovej ten trojúhelníček jako přehrát.
VAROVÁNÍ: zásadně nedoporučuju to zkoušet. Když se ten program spustí, poběží pořád dokola. A pokud ho budete chtít vypnout tak jedinou možností (bez restartování počítače) je Ctrl+alt+delete, což vám shodí nejen ten vir, ale i celej program (v případě, že máte hodně starej comp, tak se kompletně vypne).

Zkrátka jsem se chtěla pochlubit :D. Berte to jako jeden z mých bezvýznamných tlachů.
A kód programu můžete vidět (popřípadě zkopírovat, rozhodli-li jste se, že se hodně nudíte a nemáte co na práci) níže.

Sub vir
Dim A as double
Dim B as double
Dim C as double
MsgBox("Dobrý den. Zapli jste instalaci nového antiviru HSV 0.1. Pro pokračování klikněte na tlačítko OK.")
Zacatek:
A=inputBox("Zadejte heslo pro přístup k nástrojům instalace.")
If A=896 then
MsgBox("Správné heslo, přístup povolen.")
Else
MsgBox("Špatné heslo, přístup zamítnut.")
Goto Zacatek:
End If
HesloB:
B=inputBox("Zadejte heslo pro spuštění instalace.")
If B=78 then
MsgBox("Správné heslo, instalace byla spuštěna.")
Else
MsgBox("Špatné heslo, přístup zamítnut.")
Goto HesloB:
End If
HesloC:
C=inputbox("Zadejte heslo pro dokončení instalace.")
If C=13 then
MsgBox("Správné heslo.")
Else
MsgBox("Špatné heslo, přístup zamítnut.")
Goto HesloC:
End If
MsgBox("Instalace HSV 0.1 byla dokončena.")
MsgBox("Nyní vám však něco prozradím.")
MsgBox("Tento program není žádným instalačním programem k antiviru (který mimochodem neexistuje), ale makrovirem, který se bude opakovat donekonečna.")
MsgBox("Přeji hezký zbytek dne.")
MsgBox("Muhahahahahaha!")
Goto Zacatek:
End Sub

Tady u toho End Sub to končí. Vím, že je to dost krátkej program, ale na to abych se pouštěla do něčeho pořádnýho jsem ,,pro změnu" moc líná :D.

Černá Kočka
 

1 člověk ohodnotil tento článek.

Komentáře

1 Ynne Ynne | Web | 29. ledna 2012 v 21:16 | Reagovat

Achjo. Fakt bych to ráda vyzkoušela, ale mám jen Excel a netuším, kde to v něm najít (ano, jsem tak blbá, přiznávám). :D Poradila bys mi, sím?
A mimochodem... taky bych chtěla něco podobnýho umět vytvořit! -.-" Závidím ti. :'3 Proč nás tohle nikdo neučil?! xD

2 Ynne Ynne | Web | 29. ledna 2012 v 21:19 | Reagovat

Aha... našla jsem to, a nefungovalo to. :< Zajímalo by mě, co dělám špatně, chjo. xD Ale nevadí. Stejně ti závidím! :D

3 Černá Kočka - majitelka blogu Černá Kočka - majitelka blogu | 30. ledna 2012 v 15:09 | Reagovat

[2]: To je moje chyba. Právě jsem si všimla, že tam mám překlep - místo Goto jsem napsala Gogo :D Opravím to. Pak by už to mělo fungovat.

4 Ynne Ynne | Web | 30. ledna 2012 v 17:40 | Reagovat

[3]: Dobře. ^^
A kde se dá třeba - jak vytvořit zrovna tohle - naučit?? :(

5 Černá Kočka - majitelka blogu Černá Kočka - majitelka blogu | 30. ledna 2012 v 18:01 | Reagovat

[4]: Kde se to dá naučit, to upřímně řečeno nevím. Já jsem se odjakživa docela zajímala o programování, takže mě pak táta začal učit dělat programy v MMB, což je téměř nejjednodušší jazyk, kterej existuje.
Potom přišel k nám na školu profesor, kterej nás učil v Basicu (ten mě vpodstatě naučil většinu tohohle). Potom po roce bohůžel odešel, takže od tý doby si programuju jen tak trochu doma pro sebe, ale snažím se přijít na co nejvíc novejch věcí.
Podle mě je nejlepší způsob, jak se to naučit, sehnat si nějakýho programátora, kterej ti s tím pomůže.

Nový komentář

Přihlásit se
  Ještě nemáte vlastní web? Můžete si jej zdarma založit na Blog.cz.
 

Aktuální články

Reklama