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