Witaj użytkowniku niezalgowany! Zarejestruj się na forum uż dziś - nie będziesz widzieć żadnych reklam!   LOGIN     CREATE AN ACCOUNT

[AutoIT] Od zera do AutoIT skryptera! "#2 Piszemy SpamBota"

Kris006 Obeznany Dołączył:       03.2012 Liczba postów:       107 Liczba wątków:       58 Rep:       0 #1 16.12.2012 03:12 [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 www.Heveris.pl (Ten post był ostatnio modyfikowany: 16.12.2012 11:55 przez daronian.) Odpowiedz lolo121 Zarejestrowany Dołączył:       09.2013 Liczba postów:       1 Liczba wątków:       0 Rep:       0 #2 21.09.2013 12:55 [AutoIT] Od zera do AutoIT skryptera! "#2 Piszemy SpamBota" Popraw tagowanie bo k**wa nie moge tego skopiować Odpowiedz

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

1 gości