zabawny błąd

[Vasudanin]

Witam dzisiaj chciałbym napisać mój pierwszy poradnik
będzie on napisany w punktach

ENJOY!!

1. tworzymy nowy dokument tekstowy.

(PPM>nowy>nowy dokument tekstowy)

2.otwieramy go

(2 razy kliknąć na niego LPM)

3.wpisujemy w nim takie cos

x = MsgBox("", ,"")

4.zmieniamy tekst między pierwszymi cudzysłowami

na dowolny np. "przepraszamy ale wybrany program jest zbyt sexi abyś mógł go otworzyć"
teraz wygląda to tak

x = MsgBox("przepraszamy ale wybrany program jest zbyt sexy abyś mógł go otworzyć", ,"")

5. zmieniamy tekst między drugimi cudzysłowami

na np. "Błąd", teraz wygląda to tak

x = MsgBox("przepraszamy ale wybrany program jest zbyt sexy abyś mógł go otworzyć", ,"błąd")

6. musimy go zapisać

(plik>zapisz jako>zmieniamy z "dokumenty tekstowe .txt" na "Wszystkie pliki">wpisujemy nazwę pliku i dodajemy [BEZ SPACJI] .vbs)

7.to będzie pierwowzór możemy zobaczyć jak to wygląda po prostu włączając go (2x LPM)

8. aby zrobić z niego jakąś pułapkę wystarczy że teraz zmienimy ikonkę oraz nazwę
Aby zmienić ikonę musimy zrobić skrót pliku
Ikonę zmieniamy w następujący sposób:
PPM>właściwości>zmień ikonę>wybieramy ikonę>ok>zastosuj

no to teraz możemy dodać ikonki i przyciski pod koniec poradnika napisze jaki symbol oznacza jakie przyciski i ikonki

1a)

aby zrobić przycisk wpisujemy między przecinkami liczbę (BEZ SPACJI) np.

x = MsgBox("przepraszamy ale wybrany program jest zbyt sexy abyś mógł go otworzyć",1,"błąd")

i wychodzi nam takie cos

http://img136.imageshack.us/img136/2996/bdau9.png

1b)

aby zrobić ikonkę wpisujemy między przecinkami liczbę

np.

x = MsgBox("przepraszamy ale wybrany program jest zbyt sexy abyś mógł go otworzyć",48,"błąd")

teraz mamy takie cos

http://img120.imageshack.us/img120/817/bd2yv6.png


1c)

łączymy przyciski oraz ikonki

x = MsgBox("przepraszamy ale wybrany program jest zbyt sexy abyś mógł go otworzyć",1+48,"błąd")

teraz mamy takie coś

http://img505.imageshack.us/img505/7319/bd3ut4.png

2."łańcuszki" error'ów

dopisujemy do tego co mamy takie coś

x = MsgBox("przepraszamy ale wybrany program jest zbyt sexy abyś mógł go otworzyć",1+48,"błąd") = MsgBox("następny błąd co ty wszystko na tym komputerze musisz popsuć??",1+48,"błąd")

po zrobieniu takiego czegoś po wyłączeniu jednego okienka natychmiast włącza się drugie

a teraz te symbole
0 ok
1 ok i anuluj
2 abort ,powtórz i ignorój
3 tak ,nie anuluj
4 tak ,nie
5 powtórz i anuluj

16 czerwone kółko
32 niebieski znak zapytania
48 żółty trójkąt
ew.
vbOKonly ---------> Tylko OK. - nie trzeba tego pisać. On i tak jest używany domyślnie
vbOKCancel ---------> IPrzycisk OK. i Anuluj
vbAbortRetryIgnore ---------> Przyciski Przerwij, Ponów próbę i Zignoruj
vbYesNoCancel ---------> Przyciski Tak, Nie, Anuluj
vbYesNo ---------> Tylko przyciski Tak i Nie
vbRetryCancel ---------> Tylko przyciski Ponów i Anuluj

Zamiast numerów ikonek, można wpisać:
vbCritical ---------> Ikonka krytyczna (przekreślone czerwone kółeczko z charakterystycznym dźwiękiem)
vbQuestion ---------> Ikonka pytania (Dymek, a w nim pytajnik)
vbExclamation ---------> Ikonka ostrzegawcza (Żółty trójkąt z wykrzyknikiem)
vbInformation ---------> Ikonka informacji (Dymek a w nim literka "i")
vbSystemModal ---------> Brak ikonki obok tekstu, za to na pasku tytułowym pojawia się znak windows

to na tyle myślę że komuś może się to przydać

ps. ten sam poradnik mam na tibia.org.pl wiec nie mowcie plagiat
pps. byl juz kiedys dodany tutaj ale nie byl zbyt czytelny ten powninen byc bardziej czytelny
ppps.Komentujcie plz xD

[GargoinX]

Poradnik jest zaje***ty! Wyszło mi i naprawdę jest fajny efekt ; D

[Escoo]

Super rzecz, ale mam pytanie czy można zrobić tak żeby te erory wyskakiwały sexy itp a potem normalnie się otwierał dokument,... ?

[Dragon-Fly]

Pomysłowe... plusik

[po_prostu_ja]

no no ;)
poradnik ma duzo bledow no ale przydatny :p

[Carbon]

hahahaha own3d pwn3d FATALITY :D

zajefajne dziala :D wielki + for you P:P

vbSystemModal ---------> Brak ikonki. Za to na pasku tytułowym pojawia się ikonka windows

but :D
brak ikonki z ikonka winodws :D

[Michoss]

Jak zrobić żeby po kliknięciu TAK przenosiło cię do innego okienka niż po kliknięciu NIE?

[Serious Sam]

Podrzucić to komuś, ktoś otworzy i "Dziękujemy, właśnie zostałeś shakowany :)", ale by kozła zaliczył xD.

[Zalgadis]

@up
Wiesz, nie wszyscy grają w tibie :P
@topic
Zajefajne xD baaardzo dobre do wkręcania kumpli ;p
+

[Rothes]

Super rzecz, ale mam pytanie czy można zrobić tak żeby te erory wyskakiwały sexy itp a potem normalnie się otwierał dokument,... ?Nie da się, bo to już nie jest plik tekstowy. Można ewentualnie wymusić otwarcie innego pliku w notatniku.

Jak zrobić żeby po kliknięciu TAK przenosiło cię do innego okienka niż po kliknięciu NIE?Nie żebym coś mówił, ale coś czuję, że nie doczekasz się odpowiedzi od autora...

Tak na szybkiego napisane, powinieneś zrozumieć zasadę działania:Dim Imie, Okienko, Zmienna

Zmienna = MsgBox("Czy chcesz kontynuować?", 36, "Pytanie")

Select Case Zmienna
Case vbYes
Imie = InputBox("Jak się zwiesz?", "Kolejne pytanie")
Okienko = MsgBox("Witaj "+Imie+"! Jak się masz?", 64, "Powitanie")
Case vbNo
Okienko = MsgBox("Żegnaj!", 64, "Pożegnanie")
End SelectOgólnie jak ktoś jest zainteresowany to niech poszpera o VBScript...

[Vasudanin]

Nie żebym coś mówił, ale coś czuję, że nie doczekasz się odpowiedzi od autora...
hmmm wiesz ja dopiero teraz pierwszy raz od wczoraj wszedlem na forum wiec wybacz

[loonyxd]

Poradnik super ! :)

Może ktoś da linka do jakiejś strony z VBScript ??? Jakiś tutorial, polecenia jakieś.

[Vein]

Wszystko fajnie wyszlo mi :D zajebiste tylko 1 problem, nie moge zmienic ikonki temu plikowi..... moze przez to ze mam Viste i we wlasciwosciach pliku nie mam mozliwosci zmieniea ikony.
Moze sie myle, jak ktos wie niech napisze;]

[Champus]

@up. mam to samo. :>

[Furry-San]

Haha, szczerze mówiąc pierwszy raz się z czymś takim spotykam :). Ciekawe, takie coś nadawałoby się do działu "Poradniki inne, nie związane z Tibią ", tylko nazwę tego tematu bym zmienił ;)

[shoq]

Nie mam przycisku "Zmień Ikonę" x.X
Mam xp.

[Vasudanin]

Nie mam przycisku "Zmień Ikonę" x.X
Mam xp.

przy orginalnym pliku nie zmienisz ikony, musisz zrobić skrót pliku

[>>>Mazix<<<]

<cut> sorki punktu nie zauważyłem :D

Top- masz plusa, poradnik wyczapisty.

Jeden błądzik


x = MsgBox("przepraszamy ale wybrany program jest zbyt sexy abyś mógł go otworzyć",1+48,"błąd") = MsgBox("następny błąd co ty wszystko na tym komputerze musisz popsuć??",1+48,"błąd")

po zrobieniu takiego czegoś po wyłączeniu jednego okienka natychmiast włącza się drugie




x = MsgBox("Dziękujemy, właśnie zostałeś zhakowany.",48,"Dziękujemy")
x = MsgBox("Dziękujemy, właśnie zostałeś zhakowany.",48,"Dziękujemy")
Jeśli chcemy łańcuszek to trzeba koniecznie 2 razy "x", w innym wypadku występuje bład składni.

[Vasudanin]

u mnie nie występuje może dlatego że piszesz " =MsgBox" a pisze się " = MsgBox"

[ktorek]

super poradnik!!! odrazu zrobilem i dziala dzieki 10/10
@up ze spacja ma byc :)

[Michulek]

dobre i działa!

[Angeerfire]

Hah! Widziałem kiedyś coś takiego na stronce i chciałem wiedzieć jak to ludzie robią :] teraz mam odpowiedź. Super rzecz trochę błędów ale pomysł świetny! Dałbym tak 8/10 :] Pozdro!!!

[moja_postac_to]

ej, a możesz jeszcze napisać jak to umieścić w necie? Byłoby super! Z góry thx!

[Gazik_12]

genialne! :D

[Angeerfire]

ej, a możesz jeszcze napisać jak to umieścić w necie? Byłoby super! Z góry thx!

No. Jeśli masz swoją stronę internetową to wystarczy że wkleisz na nią ten plik.

[moja_postac_to]

No i w tym kłopot :(
1.Nie znam żadnego języka programowania (A bardzo chciałbym się nauczyć "C++" )
2. Z powodu punktu "1" nie mam strony internetowej ;(;(;(

[moja_postac_to]

Sorka za double post, ale to ważna zdanie: "HALLLLLLLLLLLLLLLOOOOOOOOOOOOOOOO!!!!!!!!!!CZY KTOŚ TU JEST ?!?!?!

[=eQQ=]

Aff, co ma jezyk programowania (w twoim przypadku, jak wspomniales 'c++') ze strona internetowa? Jak chcesz umiescic taki 'skrypt' na stronie, to mozesz zrobic podobny efekt w np. htmlu. Zaraz zrobie jakas pierwsza lepsza strone z wykorzystaniem takiego wyskakujacego okna... Dam edita jak zaloze konto na jakims syfie typu mylog gdzie moge wkleic kod zrodlowy, bo nie chce sobie brudzic miejsca...

/edit

Japier@*#&@(# ale ten mylog chodzi :OOO Jak nie maja co powiedziec to pisza ze przerwa techniczna... :/

/edit

http://dla-moja-postac-to.mylog.pl/ Cos takiego?

[=eQQ=]

<do kasacji>

[Vasudanin]

O! jestem mile zaskoczony. Wreszcie przenieśli do poradników.

[xXxKaiserxXx]

Bardzo fajny poradnik 10/10 !

x = MsgBox("System Windows stracił połączenie z internetem. W celu ponownego połączenia z internetem naciśnij Ponów próbę lub Anuluj...",5+16, "Błąd")

Select Case x
Case vbRetry
d = MsgBox("Nie udało się nawiązać połączenia.",5+16, "Błąd")
Select Case d
Case vbRetry
d = MsgBox("Nie udało się nawiązać połączenia.",0+16, "Błąd")
Case vbCancel
d = MsgBox("Próba połączenia z internetem została anulowana.",0, "Anulowanie")
End Select
Case vbCancel
d = MsgBox("Próba połączenia z internetem została anulowana.",0, "Anulowanie")
End Select



Tak na szybko napisane...

[moja_postac_to]

Up@>To mi się przydło bo niewiedziałem czy można do innej opcji zrobić inną odpowiedź :P

[xXxKaiserxXx]

@2up

Napisałem to żeby wkręcić matkę dałem temu ikonę Mozilli:P

Jak byś coś jeszcze potrzebował to napisz mi w miarę swoich możliwości postaram się pomóc (jestem początkującym). :)

[Vasudanin]

Oj z .org skasowali widać xD

@Spiff

Pozwalam wrzucić ale pod warunkiem że podasz autora i link do oryginału ;P

@down
nie do ciebie tylko do Spiffa

[xXxKaiserxXx]

@up
Mówiłeś do mnie? :D
Bo nie zajarzyłem...

[Lechista]

to ja dam mój skrypt jak komus sie nie chce robic xD Super poradnik
x = MsgBox("przepraszamy ale wybrany program jest zbyt sexy abyś mógł go otworzyć",vbCritical,"Błąd") = x = MsgBox("następny błąd co ty wszystko na tym komputerze musisz popsuć??",1+16,"Błąd") = x = MsgBox("wez ty się wreszcie uspokój",2+32,"Błąd") = x = MsgBox("Zostaw ten komputer w spokoju!!",3+48,"Błąd") = x = MsgBox("Co on ci znowu zrobił",vbRetryCanel,"Błąd") = x = MsgBox("Odczep się wreszcie odmenie!!!!",vbYesNo,"Błąd") = x = MsgBox("Zostaw te pliki w spokoju",vbYesNoCancel,"Błąd") = x = MsgBox("Buauhahuha nigdy się nie uwolnisz",vbAbortRetryIgnore,"Błąd") = x = MsgBox("Nie wypuszcze się stąd do końca dnia",vbOKCancel,"Błąd") = x = MsgBox("ja mam czas a ty??",3+16,"Błąd") = x = MsgBox("Chyba będziesz musiał zresetowa kompa bo innego wyjścia nie ma ;(",0+32,"Błąd") = x = MsgBox("jeszcze ci się nie znudziło to klikanie?",5+16,"Błąd") = x = MsgBox("ale z ciebie frajer ;;)",2+48,"Błąd") = x = MsgBox("to jak ja ide na kawe...",4+0,"Błąd") = x = MsgBox("Muuhauhauhauhuha",vbQuestion,"Błąd") = x = MsgBox("Chcesz wyjsc?",3+32,"Błąd") = x = MsgBox("no to masz gościu problem... ;)",1+16,"Błąd") = x = MsgBox("dobra znudziłem się trochę,5+48,"Błąd") = x = MsgBox("No to nara!!!",vbSystemModal,"Błąd")

[Vasudanin]

Gdzie się podziali, tamci modowie, żeby skasować ten spam i tu....

[NocnyPasterz]

Dobry poradnik, nie najlepszy ale jest udalo mi sie a za to dostajesz 10.000.000.000.000/10.000.000.000.000

[Rayza]

OWNED XD
za ten poradnik należy ci sie notka ^^ ...
skąd wziołęś ten pomysł ?

[Fulcrum]

Naprawdę nikt nie umiałby takiego czegoś zrobić?? :D:D
Tylko czemu taka nazwa tematu? Wchodząc myślałem że naprawdę błąd jakiś :P

[KrEmAs KAc]

Fajne są takie bajerki i nawet dobrze opisane.
Mi się podoba ten błąd Shutdown -s -t czas -c "asdasdasd" :D

[Vasudanin]

Znaczy, jak to zrobić znalazłem na jakimś filmie, aczkolwiek ja to spisałem, i przy okazji dołożyłem kilka słów znalezionych jeszcze gdzieś indziej. Adresu już nie pamiętam, poza tym film był po angielsku.

[KrEmAs KAc]

Tutaj link do tego "wirusa" (http://www.maxior.pl/film/77475/Jak_zrobic_sztucznego_wirusa);)

[Igim]

Haha! Swietne ... Kremas pomogles :D To twoj filmik!? Great ;p

[KrEmAs KAc]

To nie mój filmik ;)
błąd super można na infie jak się nudzi wszystkie ikonki tak przerobić B)

[Vasudanin]

Ja tak zrobiłem, wynik? Format komputera w pracowni+nagana dyrektora oraz wyczytanie na szkolnym apelu. =D
btw.
Ten film nie był z maksiora tylko z jakiejś strony z końcówką ".com", to nie był You2be.

[mati7017]

Haha niezłe8o wypróbowałem i działa;) teraz tylko kogoś nabiore:D

[BingooCola]

Fajne ,ale..... po co? :o

[Vasudanin]

Hmmm, powiedzmy, że siostra ci coś wykasowała na kompie, ty się jej chcesz odegrać i robisz taki pliczek na jej koncie. Ewentualnie możesz mamę/tatę/brata/siostrę/babcię/dziadka/kanarka/złotą rybkę/psa/kota zrobić w jajo.

[milanello75]

zaje****e 10/10:)

[druidek123]

Nie da się, bo to już nie jest plik tekstowy. Można ewentualnie wymusić otwarcie innego pliku w notatniku.

Nie żebym coś mówił, ale coś czuję, że nie doczekasz się odpowiedzi od autora...

Tak na szybkiego napisane, powinieneś zrozumieć zasadę działania:Dim Imie, Okienko, Zmienna

Zmienna = MsgBox("Czy chcesz kontynuować?", 36, "Pytanie")

Select Case Zmienna
Case vbYes
Imie = InputBox("Jak się zwiesz?", "Kolejne pytanie")
Okienko = MsgBox("Witaj "+Imie+"! Jak się masz?", 64, "Powitanie")
Case vbNo
Okienko = MsgBox("Żegnaj!", 64, "Pożegnanie")
End SelectOgólnie jak ktoś jest zainteresowany to niech poszpera o VBScript...

a w te imie , okienko trzeba coś wpisywać czy nie?

[Mydelniczek]

a w te imie , okienko trzeba coś wpisywać czy nie?

W tym nic nie zmieniasz
Odpalasz to i masz

Jak sie zwiesz?
<wpisujesz swoje imie jako odpowiedz>
Next pytanie

itd.

[Gadzixor]

Bardzo fajne ^^ Fajnie sie wkręca znajomych :D