[Pytanie] [Prośba}Napisani

[Hussar]

Proszę o napisanie mi pliku, gdzie będzie się znajdować!

 

1. Otwiera się msgbox gdzie jest coś tam napisane ( ja sobie później zmienie ).

2. Jest odpowiedź Tak lub Nie.

3. Jeśli odpowie Nie to pisze mu, że gratuluje zfarciło Ci się

4. Jeśli odpowie Tak to mu pisze, że niestety zła odpowiedź... i wyłącza mu się komputer

 

P.S - To chce dla mojego młodszego brata

 

Dziękuje

[jackraymund]

$dupa = msgbox(4,"dupa","dupa")

if $dupa = 6 Then

msgbox(0,"lol","że niestety zła odpowiedź")

shutdown(5)

EndIf

if $dupa = 7 Then

msgbox(0,"lol","dobrze")

EndIf

 

 

 

edytuj sobie

[Hussar]

@up

Dzięki, a jak dopisać do tego, że jak wciśnie np. Tak to mu się otworzy notatnik, a w nim napisze się cos?

[jackraymund]

Send("#r")

WinWaitActive("Run")

Send("notepad.exe{Enter}")

WinWaitActive("[CLASS:Notepad]")

opt("SendKeyDelay",1)

Send("Today's time/date is DUPA DUPA DUPA DUPA}")

[Hussar]

@up

Nie dziala.. tylko włącza się run, ale nie wpisuje nic w niego..

[edi22]

@up

Nie dziala.. tylko włącza się run, ale nie wpisuje nic w niego..

 

run("notepad.exe");włącza notatnik

WinWaitActive("[CLASS:Notepad]");czeka jak się otworzy

WinActivate("Bez tytyłu - Notatnik");aktywuje okno

Send("za 3 sek wyłączę notatnik")

sleep(800)

send("{backspace}{backspace}{backspace}{backspace}{backspace}{backspace}{backspace}{backspace}{backspace}{backspace}{backspace}{backspace}{backspace}{backspace}{backspace}{backspace}{backspace}{backspace}{backspace}{backspace}{backspace}{backspace}{backspace}{backspace}{backspace}{backspace}{backspace}{backspace}{backspace}{backspace}{backspace}")

Send("za 2 sek wyłączę notatnik")

sleep(800)

send("{backspace}{backspace}{backspace}{backspace}{backspace}{backspace}{backspace}{backspace}{backspace}{backspace}{backspace}{backspace}{backspace}{backspace}{backspace}{backspace}{backspace}{backspace}{backspace}{backspace}{backspace}{backspace}{backspace}{backspace}{backspace}{backspace}{backspace}{backspace}{backspace}{backspace}{backspace}")

Send("za 1 sek wyłączę notatnik")

sleep(800)

ProcessClose("notepad.exe");zamyka

 

@down

no a nie lepiej run("notepad.exe")?

[jackraymund]

Send("#r")

WinWaitActive("Uruchamianie")

Send("notepad.exe{Enter}")

WinWaitActive("[CLASS:Notepad]")

opt("SendKeyDelay",1)

Send("Today's time/date is DUPA DUPA DUPA DUPA}")

 

 

lekka pomylka

[Hussar]

@up2

twoje dziala masz - i 5