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 :)

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!!!

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

Cytuj:

Oryginalnie napisane przez moja_postac_to (Post 2052649)

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.

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

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

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?

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

Bardzo fajny poradnik 10/10 !

Kod:

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...

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

@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). :)

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

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

to ja dam mój skrypt jak komus sie nie chce robic xD Super poradnik

Ukryty tekst:

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

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

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

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