Forum Tibia.pl - zabawny błąd

Forum Tibia.pl (http://forum.tibia.pl//index.php)

- Poradniki inne, niezwiązane z Tibią (http://forum.tibia.pl//forumdisplay.php?f=210)

- - zabawny błąd (http://forum.tibia.pl//showthread.php?t=170706)

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

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

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

Pomysłowe... plusik

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

hahahaha own3d pwn3d FATALITY :D

zajefajne dziala :D wielki + for you P:P

Cytuj:

Oryginalnie napisane przez Vasudanin (Post 1992752)

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

but :D
brak ikonki z ikonka winodws :D

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

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

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

Cytuj:

Oryginalnie napisane przez Escoo (Post 1993568)

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.

Cytuj:

Oryginalnie napisane przez Michoss (Post 1993626)

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:

Kod:

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 Select

Ogólnie jak ktoś jest zainteresowany to niech poszpera o VBScript...

Cytuj:

Oryginalnie napisane przez Rotes

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

Poradnik super ! :)

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

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;]

@up. mam to samo. :>

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ł ;)

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

Cytuj:

Oryginalnie napisane przez shoq (Post 2020969)

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

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

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

Top- masz plusa, poradnik wyczapisty.

Jeden błądzik

Cytuj:

Oryginalnie napisane przez Vasudanin (Post 1992752)

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.

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

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