Witaj użytkowniku niezalgowany!
Zarejestruj się na forum uż dziś - nie będziesz widzieć żadnych reklam! |
[AutoIT] Od zera do AutoIT skryptera! "#2 Piszemy SpamBota" |
[AutoIT] Od zera do AutoIT skryptera! "#2 Piszemy SpamBota"Witam! To już drugi tutorial z serii "Od zera do AutoIT skryptera!" Część pierwsza dostępna . Dzisiaj nauczymy się jak napisać SpamBota. #Na początek dodajemy 4 include: Kod: #include <ButtonConstants.au3>#include <EditConstants.au3>#include <GUIConstantsEx.au3>#include <WindowsConstants.au3> #Potem 2 Hotkeye: Kod: HotKeySet("{1}", "quit")HotKeySet("{2}", "start") #Krótkie tłumaczenie: Kod: HotKeySet("{Przycisk który wyłącza skrypt}", "quit")HotKeySet("{Przycisk który włącza skrypt}}", "start") #Dodajemy GUI: Kod: #Region ### START Koda GUI section ### Form=$Form1 = GUICreate("SpamBot", 170, 80, 192, 124)$tekst = GUICtrlCreateInput("Tekst", 16, 16, 129, 21)$Btn1 = GUICtrlCreateButton("Start", 16, 42, 49, 25)GUISetState(@SW_SHOW)#EndRegion ### END Koda GUI section ### #Następnie dodajemy pętle: Kod: While 1$nMsg = GUIGetMsg()Switch $nMsgCase $GUI_EVENT_CLOSEExitCase $Btn1Start()EndSwitchWEnd #Na koniec funkcje: Kod: Func quit()ExitEndFuncFunc start()$sleeptime = GUICtrlRead($time)$txt = GUICtrlRead($tekst)While 1Sleep(1000)Send($txt)Send("{ENTER}")WEndEndFunc #Krótkie tłumaczenie: Sleep(czas wysyłania (1000 to 1s) ) #Efekt końcowy: #Gotowy SpamBot: Kod: #include <ButtonConstants.au3>#include <EditConstants.au3>#include <GUIConstantsEx.au3>#include <WindowsConstants.au3>HotKeySet("{1}", "quit")HotKeySet("{2}", "start")#Region ### START Koda GUI section ### Form=$Form1 = GUICreate("SpamBot", 170, 80, 192, 124)$tekst = GUICtrlCreateInput("Tekst", 16, 16, 129, 21)$Btn1 = GUICtrlCreateButton("Start", 16, 42, 49, 25)GUISetState(@SW_SHOW)#EndRegion ### END Koda GUI section ###While 1$nMsg = GUIGetMsg()Switch $nMsgCase $GUI_EVENT_CLOSEExitCase $Btn1Start()EndSwitchWEndFunc quit()ExitEndFuncFunc start()$sleeptime = GUICtrlRead($time)$txt = GUICtrlRead($tekst)While 1Sleep(1000)Send($txt)Send("{ENTER}")WEndEndFunc |
« Starszy wątek | Nowszy wątek »
|
Podobne wątki | |||||
[AutoIT] Od zera do AutoIT skryptera! "#1 Jak wkurzyć kolegę lub wroga?"
Started by Kris006
4 Replies - 333 Views
16.12.2012 14:52
Ostatni post: Kris006 |
|||||
[AutoIT] Od zera do AutoIT skryptera! "#3 Piszemy Launcher"
Started by Kris006
0 Replies - 181 Views
16.12.2012 11:45
Ostatni post: Kris006 |
Użytkownicy przeglądający ten wątek: |
3 gości |