Skocz do zawartości
Steku1997

Jak w notatniku utworzyć wyskakujący komunikat?

Polecane posty

Witam!

Dzięki temu poradnikowi dowiecie się, jak za pomocą notatnika stworzyć wyskakujący komunikat w systemie Windows.

Przykładem, jest komunikat, który widzicie na poniższym screenie.

bdscreen.png

Aby stworzyć taki komunikat, wystarczy utworzyć nowy dokument tekstowy na pulpicie, a następnie wkleić do niego ten kod:

msgbox"x", xx, "xxx"

x - tutaj należy wpisać tekst, który pojawi się po wyświetleniu komunikatu.

xx - tutaj podajemy styl komunikatu, tzn.:

vbCritical - Wyświetla ikonę Komunikatu krytycznego.

vbQuestion - Wyświetla ikonę Pytanie ostrzegawcze.

vbExclamation - Wyświetla ikonę Komunikatu ostrzeżenia.

vbInformation - Wyświetla ikonę Komunikatu informacyjnego.

xxx - tutaj podajemy tytuł komunikatu, który pojawi się na górze wyskakującego okna.

Teraz zapisujemy plik, pamiętając że musimy zapisać go z rozserzeniem .vbs.

Zapisując, pamiętamy także, aby zmienić typ zapisywanego pliku z dokumenty tekstowe, na wszystkie pliki.

Gotowe! Teraz wystarczy otworzyć plik, aby został wyświetlony komunikat.

Kolejnym wariantem wyskakującego komunikatu, jest pytanie. Którego przykład widać na screenie.

pytaniescreen.png

Postępujemy tak, jak poprzednio. Tworzymy dokument tekstowy na puplicie. Następnie kopiujemy kod:

odp = msgbox("x", vbyesno)
if odp =6 then
msgbox"xx"
else
msgbox"xxx"
end if

x - tutaj wpisujemy tekst, który wyświetli się po pojawieniu się komunikatu pytającego.

xx - tutaj wpisujemy tekst, który wyświetli się po wybraniu pozytywnej odpowiedzi.

xxx - tutaj wpisujemy tekst, który wyświetli się po wybraniu negatywnej odpowiedzi.

Teraz zapisujemy plik, pamiętając że musimy zapisać go z rozserzeniem .vbs.

Zapisując, pamiętamy także, aby zmienić typ zapisywanego pliku z dokumenty tekstowe, na wszystkie pliki.

Gotowe! Teraz wystarczy otworzyć plik, aby został wyświetlony komunikat.

Kody te, można ze sobą łączyć tzn. że po wyświetleniu się komunikatu, może pojawić się pytanie.

Pamiętajmy, aby przed kolejnym kodem pozostawić wolną linijkę.

Mam nadzieję, że poradnik się przydał. Pozdrawiam!

  • Upvote 4
Link do komentarza
Udostępnij na innych stronach

A jak zrobić coś takiego, że przy wybraniu odpowiedzi tak, program działa dalej, a przy wybraniu odpowiedzi nie program się wyłącza?

Wystarczy, że nie dodasz sekcji związanej z zadaniem po wciśnięciu "Nie".

W tym przypadku nie dodajesz tego poniżej:

msgbox"xxx"
Edytowano przez EpicFace
Link do komentarza
Udostępnij na innych stronach

A jak zrobić coś takiego, że przy wybraniu odpowiedzi tak, program działa dalej, a przy wybraniu odpowiedzi nie program się wyłącza?

Sam o tym nie wiem, ale jest cos podobnego do MsgBox.Tyle ze wyłączy ci komputer za okreslony czas i nie mozesz tego w żaden sposób wyłączyć biggrin_prosty.gif, wypróbuj takie coś

Utwórz skrót na pulpicie w ten sposób

PPM/Utwórz Nowy/Skrót

*(PPM)-Prawy przycisk myszy.

I wpisujesz takie coś

shutdown -s -t 4000 -c "Komputer wyłączy sie za XXXX minut"

Nazywamy jakoś skrót, i zapisujemy na pulpicie.

*(4000 Oznacza czas w sekundach w którym wyłączy sie komputer)

Ten kto odpali plik, odpalli jednocześnie zegarowe wyłączanie komputera

powiadomienie takie jak MsgBox Gwarantowane na Windows XP i starsze :)

na Windows 7/8 (Możliwe ze na "Vista" tez) nie bedzie takiego efektu jak na MsgBox, pojawi się jedynie dymek na pasku zadań z informacją która została podana przy tworzeniu pliku.

A teraz jak wyłączyć tą bombe zegarową ;d

Wchodzimy w uruchom, i w okienku wpisujemy

shutdown -a

W ZAŁĄCZNIKU SCREENY KROK PO KROKU JAKBY KTOS NIE ROZUMIAŁ :))

Jesli to będzie uznane za spam to bardzo przepraszam :)

xx - tutaj podajemy styl komunikatu, tzn.:

vbCritical - Wyświetla ikonę Komunikatu krytycznego.

vbQuestion - Wyświetla ikonę Pytanie ostrzegawcze.

vbExclamation - Wyświetla ikonę Komunikatu ostrzeżenia.

vbInformation - Wyświetla ikonę Komunikatu informacyjnego.

Tutaj podaje łatwiejszą opcje na styl komunikatu

Zamiast wprowadzenia tego:


vbCritical - Wyświetla ikonę Komunikatu krytycznego.
vbQuestion - Wyświetla ikonę Pytanie ostrzegawcze.
vbExclamation - Wyświetla ikonę Komunikatu ostrzeżenia.
vbInformation - Wyświetla ikonę Komunikatu informacyjnego.

Mozna użyć cyferek ;)


16 - Ikona krytyczna (X)
32 - Ikona Pytania. (?)
48 - Ikona Ostrzeżenia (!)
64 - Ikona informacyjna (I)

Do tego dochodzą cyfry odpowiadające za przyciski


0=OK
1=OK,ANULUJ
2=PRZERWIJ,PONÓW,IGNORUJ
3=TAK,NIE,ANULUJ
4=TAK,NIE
5=PONÓW,ANULUJ

Przykład:

x=MsgBox("AWARIA WYŁACZ KOMPUTER",4,"AWARIA!!!")

Wtedy pokaże nam się komunikat "AWARIA WYŁĄCZ KOMPUTER" z Klawiszami "Tak" i "Nie"

Gdy uzywamy ikony komunikatu, nie mamy innego przycisku niz "OK"...Zeby posiadać Ikone komunikatu i do tego przyciski np: "Tak" i "Nie" Musisz to zapisać w ten sposób


x=MsgBox("AWARIA WYŁACZ KOMPUTER",16+4,"AWARIA!!!")

16-Oznacza ikone stanu krytycznego

4-Oznacza przyciski "Tak" i "Nie"

W miejsce 16 mozna tez wpisac 32, 48, 64...PAMIĘTAJ!! zeby to zadziałało, Liczbe odpowiadającą ikonie musisz zawsze wpisywać jako pierwszą

16+4- Ikona stanu krytycznego i przyciski "Tak" i "Nie"

32+4- Ikona pytania i przyciski "Tak" i "Nie"

Myśle że pomogłem ;)

post-1085919-0-96000800-1417995940_thumb

post-1085919-0-23050200-1417995963_thumb

post-1085919-0-22224300-1417995985_thumb

post-1085919-0-33811800-1417996014_thumb

post-1085919-0-00679600-1417996042_thumb

post-1085919-0-24030100-1417996071_thumb

Link do komentarza
Udostępnij na innych stronach

A próbowałem zrobić coś takiego że po kliknięciu tak albo nie wyskakuje kolejne pytanie.

Jednak mi się udawało zrobić tylko tak że jedna odpowiedź odpowiadała innym komunikatem a druga zamykała komunikat nic nie odpowiadając. Czy da się zrobić coś takiego żeby i "tak" i "nie" zadawało kolejne pytanie?

Jeżeli napisałem nie przejrzyście to proszę o odpowiedź to postaram się napisać zrozumialej.

Z góry dziękuje za odpowiedź i pozdrawiam.

Link do komentarza
Udostępnij na innych stronach

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Gość
Odpowiedz...

×   Wklejony jako tekst z formatowaniem.   Wklej jako zwykły tekst

  Maksymalna ilość emotikon wynosi 75.

×   Twój link będzie automatycznie osadzony.   Wyświetlać jako link

×   Twoja poprzednia zawartość została przywrócona.   Wyczyść edytor

×   Nie możesz wkleić zdjęć bezpośrednio. Prześlij lub wstaw obrazy z adresu URL.



  • Kto przegląda   0 użytkowników

    • Brak zalogowanych użytkowników przeglądających tę stronę.
×
×
  • Utwórz nowe...