Jak zrobić własny bug
Start --> Akcesoria --> Notatnik
Tam kopiujemy i wklejamy

x = MsgBox("Tu wpisz tekst wiadomości", ,"Tu wpisz tytuł wiadomości")

Przykład:

x = MsgBox("Wykryto Pikachu na twoim Komputerze", ,"Alarm")

Klikamy Zapisz jako : cochecie.vbs
i niżej zapisz jako typ ---> Wszystkie Pliki
Clickamy 2 razy i

Tak to wygląda =p
Teraz troche bardziej zawaansowane
Star--->akcesoria--->Notatnik
Kopiujemy i wklejamy:

a = MsgBox("Pytanie jakieś",3 , "Tytuł okienka")
if a = vbYes then
b = MsgBox("Co ma wyskoczyć jeśli kliknie tak", , "Tytuł okienka")
else
c = MsgBox("Co ma wyskoczyć jeśli kliknie Nie/Anuluj", , "Tytuł okienka")
End If

B to jeśli ktos kliknie Tak
a C to jeśli ktoś kliknie Nie/anuluj
I zapisujemy jak wyzej
Przykład :

Poradnik zrobiony przeze mnie
Dziękuje witrynie
http://techzed.webs.com/
Za nauczenie mnei tego dzięki nim mogłem was tego nauczyć xd
JEst tam też program do tworzenia fałszywych bugów
Oraz uzytkownikowi na youtube o nicku "Esproman" na jego kanale jest wiele poradników do VBS niestety po angielsku.
Miłego Bugowania

Jako, że nikt jeszcze nie odpowiedział to ja odpowiem.
Uważam, że raczej każdy by zrozumiał (nawet osoby "inaczej myślące").
Wszystko fajnie i dobrze ale raczej nie jest jakieś przydatne. Moim zdaniem. :awesomeface:

Mam pytanie czy jest mozliwosc zrobienia wiecej pytan niz 1? W jednym notatniku? Jezeli tak to prosze oszyba odpowiedz

Za poradnik 10/10 wkrecam kazdego