- CMD Team http://www.cmdteam.pun.pl/index.php - Poradniki http://www.cmdteam.pun.pl/viewforum.php?id=74 - Moduł do Batch http://www.cmdteam.pun.pl/viewtopic.php?id=2405 |
Flaszu - 19-03-2022 12:23:33 |
Witam w tym poradniku pokarze wam jak zrobić moduł do batch w języku AutoIt. Kod:If $cmdline[1] = "coś" Then $x = $cmdline[2] $y = $cmdline[3] mousemove($x,$y) endif Jeżeli w CMD wpiszemy to: "modul.exe coś 20 50" przesunie nam myszkę na koordynaty x=20 y=50 Kod:If $cmdline[1] = "coś" Then $tytul = $cmdline[2] $msg = $cmdline[3] MsgBox(0,$tytul,$msg) endif Jeżeli chcemy dodać kilka funkcji do naszego modułu możemy zrobić to tak: Kod:If $cmdline[1] = "myszka" Then $x = $cmdline[2] $y = $cmdline[3] mousemove($x,$y) endif If $cmdline[1] = "box" Then $tytul = $cmdline[2] $msg = $cmdline[3] MsgBox(0,$tytul,$msg) endif Jeżeli chcemy sprawdzić czy są wszystkie parametry (w tym przypadku będą 2) wpisujemy to Kod:if $cmdline[0] >= 3 Then MsgBox(16,"error","Podano złe parametry") Exit EndIf if $cmdline[0] <= 1 Then MsgBox(16,"error","Podano złe parametry") Exit EndIf Teraz nauczymy się wpisywać tekst do konsoli cmd za pomocą AutoIt Kod:#AutoIt3Wrapper_Change2CUI=y WSTAWIAMY NA POCZĄTEK KODU!! Kod:ConsoleWrite ( "dane" ) To polecenie wstawi nam tekst do konsoli cmd Kod:#AutoIt3Wrapper_Change2CUI=y ConsoleWrite ( "Test Programu" ) Kompilujemy program pod nazwą np Poradnik.exe i do naszego programu batch wpisujemy Poradnik.exe Kod:#include <Console.au3> Main() Func Main() Local $Name Local $Age Local $Answer Local $Continue = True While $Continue Cout("Napisz swoje imię: ") Cin($Name) Cout("Podaj swój wiek: ") Cin($Age) Cout("Chcesz aby odpowiedz była na czerwono? y/n: ") Cin($Answer) If StringInStr($Answer,"y") Then Cout(@LF & "Twoje imię to ") Cout($Name & @LF,$FOREGROUND_RED) Cout("Urodziłeś się w ") Cout(@Year - $Age & @LF,$FOREGROUND_RED) Else Cout(@LF & "Your name is ") Cout($Name & @LF) Cout("You were born in ") Cout(@Year - $Age & @LF) EndIf $Answer = "" Cout(@LF & "Chcesz spróbować ponownie? y/n: ") Cin($Answer) If StringInStr($Answer,"n") Then $Continue = False EndIf WEnd system("pause") EndFunc "Cout("Dane")" - Wyświetla nam tekst w konsoli |