Skrypt wyświetlający na ekranie serię zabawnych komunikatów o błędach

PrimaAprilis.vbs

' Wrzutka mojego starego skryptu wyświetlającego na ekranie serię zabawnych komunikatów o błędach z lipca 2011.
'   Film pokazowy: https://www.youtube.com/watch?v=4yvgUAcUtRI
' Teksty komunikatów pochodzą z Nonsensopedii.
'   Link do artykułu: https://nonsa.pl/index.php?title=Microsoft_Windows&oldid=989314#B%C5%82%C4%99dy
'   Historia strony: https://nonsa.pl/wiki/Microsoft_Windows?action=history
'   Tekst Nonsensopedii jest udostępniony na licencji Creative Commons-Attribution-ShareAlike 3.0 Unported.
'   Tekst licencji: http://creativecommons.org/licenses/by-sa/3.0/legalcode

''''' Oryginalny kod z 2011 roku: '''''
' Matriksoft PrimaAprilis, wersja 1.1
' © 2007-2011 O. I. Matriksoft. Wszelkie prawa zastrzeżone.
' Źródło tekstów: http://nonsensopedia.wikia.com/index.php?title=Microsoft_Windows&oldid=989314#B.C5.82.C4.99dy

Sub pierwszaCzesc()
 MsgBox "Nie znaleziono klawiatury. Naciśnij dowolny klawisz.", 48, "Standardowa klawiatura 101/102 klawisze lub Microsoft Natural Keyboard PS/2"
 MsgBox "Wystąpił błąd programu. Wymień kartę graficzną.", 16, "Karta graficzna zgodna z VGA"
 MsgBox "Nie znaleziono myszy. Naciśnij przycisk OK.", 48, "Mysz zgodna z PS/2"
 MsgBox "Nie znaleziono procesora. Wyłącz komputer.", 48, "Warstwa Abstrakcji Sprzętu systemu Windows"
 MsgBox "Nie znaleziono dysku C:. Kup nowy.", 48, "Standardowy kontroler dysków"
 MsgBox "Znaleziono Klawisz F13. Jeżeli chcesz zainstalować sterowniki tego urządzenia, naciśnij klawisz F14.", 65, "Znaleziono nowy sprzęt"
 MsgBox "Ten system operacyjny ma zmniejszone wymagania. Masz za szybki komputer.", 48, "Warstwa Abstrakcji Sprzętu systemu Windows"
 MsgBox "Nie ma błędu", 16, "Błąd ochrony systemu Windows"
 MsgBox "Ten wirus wymaga innego systemu operacyjnego", 16, "Zapora systemu Windows"
 MsgBox "Nie można wywołać błędu 123", 16, "Błąd 123"
 MsgBox "Naciśnij OK, aby wywołać błąd STOP (Blue Screen of Death).", 64, "System i Jądro NT"
 MsgBox "Zablokowano pop-up.", 64, "Microsoft Internet Explorer"
 MsgBox "Użytkownik nie spełnia wymagań intelektualnych tej wersji systemu Windows.", 16, "Błąd 0x00D57E"
 pyt=MsgBox("System not responding." + vbNewLine + "Are You wanna play again?", 36, "Fatal error 4522")
 If pyt = 6 Then
  pierwszaCzesc()
 End If
End Sub

pierwszaCzesc()
MsgBox "Program wykonał prawidłową operację, co zdezorientowało system operacyjny.", 48, "System i Jądro NT"
MsgBox "Wystąpił błąd", 20, "Bilblioteka DLL powłoki systemu Windows"
MsgBox "Nie znaleziono ekranu.", 48, "Karta graficzna zgodna z VGA"
MsgBox "Awaria dysku. Zapisz wszystkie dane przed wyłączeniem systemu.", 48, "Standardowy kontroler dysków"
MsgBox "System jest niestabilny. Zostaw go w spokoju.", 4144, "System i Jądro NT"
MsgBox "Wystąpił błąd podczas tworzenia raportu błędu.", 16, "Dr Watson dla Windows NT"
MsgBox "Usunięcie zaznaczonych wiadomości było niemożliwe." + vbNewLine + vbNewLine + "Za mało miejsca na dysku.", 48, "Outlook Express"