|
Notki |
Poradniki inne, niezwiązane z Tibią Poradniki napisane przez użytkowników forum, które nie dotyczą Tibii, jednak są warte umieszczenia na stronie i przeczytania. |
|
Opcje tematu |
09-04-2008, 12:46 | #1 |
Słitaśny Krulik
|
zabawny błąd
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 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 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ś 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 Ostatnio edytowany przez Vasudanin - 02-05-2008 o 11:56. Powód: Drobniutka korekta |
|
09-04-2008, 12:50 | #2 |
Just an Orange
Data dołączenia: 06 04 2008
Lokacja: Płock
Wiek: 29
Wpisy bloga: 34
Posty: 1,242
Stan: Aktywny Gracz
Imię: Tiglatpilezar
Profesja: Knight
Świat: Eternia
Poziom: 31
Skille: 65/64
Poziom mag.: 4
|
Poradnik jest zaje***ty! Wyszło mi i naprawdę jest fajny efekt ; D
__________________
Literka Z, literka K, literska S jak ZKS! Gargoin na Last.fm! Notka dla Gargulca. |
09-04-2008, 20:36 | #5 |
Użytkownik Forum
Data dołączenia: 29 12 2007
Lokacja: Green Street
Posty: 48
Stan: Na Emeryturze
Profesja: Elder Druid
Świat: Guardia
|
no no
poradnik ma duzo bledow no ale przydatny |
09-04-2008, 20:46 | #6 | |
Użytkownik Forum
Data dołączenia: 05 04 2008
Lokacja: From Hell
Posty: 247
Stan: Aktywny Gracz
Imię: Nitro Evill
Profesja: Knight
Świat: Elysia Br0
|
hahahaha own3d pwn3d FATALITY
zajefajne dziala wielki + for you P Cytuj:
brak ikonki z ikonka winodws
__________________
Ostatnio edytowany przez Carbon - 09-04-2008 o 20:51. |
|
09-04-2008, 21:13 | #8 |
Użytkownik Forum
|
Podrzucić to komuś, ktoś otworzy i "Dziękujemy, właśnie zostałeś shakowany ", ale by kozła zaliczył xD.
__________________
Jeżeli potrzebujesz pomocy, napisz. Chętnie pomogę : ) Amor patriae nostra lex! Miłość ojczyzny naszym prawem!
|
09-04-2008, 21:21 | #9 |
Użytkownik Forum
Data dołączenia: 29 09 2005
Lokacja: Legnica
Wiek: 31
Posty: 1,264
|
@up
Wiesz, nie wszyscy grają w tibie @topic Zajefajne xD baaardzo dobre do wkręcania kumpli ;p + |
09-04-2008, 21:25 | #10 | ||
Książe Cieni
Data dołączenia: 03 06 2004
Lokacja: Suwałki / Wrocław
Wiek: 33
Posty: 1,132
Stan: Na Emeryturze
Imię: Rothes Tavelon
Profesja: Master Sorcerer
Gildia: Tranquilibrium
Świat: Guardia
Poziom: 130
Skille: 22/29
Poziom mag.: 73
|
Cytuj:
Cytuj:
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
__________________
~~~ Proud to be bestowed the honorary title of Senator by CipSoft ~~~ Proszę do mnie nie pisać w sprawach związanych z moderacją forum. Zrezygnowałem z pełnienia tej funkcji. Ostatnio edytowany przez Rothes - 09-04-2008 o 21:51. |
||
10-04-2008, 12:32 | #12 |
Użytkownik Forum
Data dołączenia: 14 12 2007
Posty: 237
Stan: Niegrający
Imię: Haer Isaac
Profesja: Druid
Świat: Harmonia
Poziom: 64
Poziom mag.: 50
|
Poradnik super !
Może ktoś da linka do jakiejś strony z VBScript ??? Jakiś tutorial, polecenia jakieś. |
14-04-2008, 21:18 | #13 |
Użytkownik Forum
Data dołączenia: 22 01 2007
Posty: 360
Profesja: Royal Paladin
|
Wszystko fajnie wyszlo mi 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;] |
21-04-2008, 19:08 | #15 |
Użytkownik forum
Data dołączenia: 21 04 2008
Posty: 13
Stan: Aktywny Gracz
Profesja: Knight
Poziom: 43
|
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ł
|
24-04-2008, 19:38 | #16 | |
Użytkownik Forum
Data dołączenia: 14 08 2005
Lokacja: Mordor
Posty: 915
Stan: Na Emeryturze
Profesja: Druid
Poziom mag.: 45
|
Nie mam przycisku "Zmień Ikonę" x.X
Mam xp.
__________________
Cytuj:
|
|
02-05-2008, 11:45 | #18 | |
Zbanowany
Data dołączenia: 12 09 2007
Lokacja: klykash?
Wpisy bloga: 12
Posty: 208
Profesja: Knight
Świat: Unitera Plis
Poziom: 22.
Skille: sux/sux
Poziom mag.: 66
|
<cut> sorki punktu nie zauważyłem
Top- masz plusa, poradnik wyczapisty. Jeden błądzik Cytuj:
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. Ostatnio edytowany przez >>>Mazix<<< - 02-05-2008 o 11:57. |
|
09-05-2008, 14:55 | #20 |
Użytkownik forum
Data dołączenia: 27 02 2008
Lokacja: Legnica
Posty: 3
Stan: Aktywny Gracz
|
extra
super poradnik!!! odrazu zrobilem i dziala dzieki 10/10
@up ze spacja ma byc Ostatnio edytowany przez ktorek - 09-05-2008 o 15:16. |