Alutake |
|
| Un'altra "cosuccia" (lo so: sono un rompi-c******i )... sto cercando di creare una sorta di hack per Metin2 (penso lo conosciate), però non sto avendo molta fortuna, poichè molte cose non funzionano: vi posto il codice (e sottolieo le cose che non funzionano). ; ----- PARTE PREPARATIVA -----
; Implementazioni necessarie: #include <guiconstants.au3> #include <guiconstantsex.au3> ; Variabile "Ingranaggio on/off" $i = 0 ; Funzione "Accendi" => $i incrementa di uno: Func Accendi() $i = $i + 1 EndFunc ; Funzione "Spegni" => $i decrementa di uno: Func Spegni() $i = $i - 1 EndFunc ; Funzionalità che mantiene $i < 2: While $i > 1 $i = $i - 1 WEnd ; Funzionalità che mantiene $i > -1: While $i < 0 $i = $i + 1 WEnd
; ----- PARTE PRATICA -----
; Crea finestra: GUICreate ("Terza Mano Libera by Francoiky", 300, 132 ) ; Inserisce testo 1 nella suddetta finestra: GUICtrlCreateLabel ("Per avviare l'Auto-Raccolta premi [F11]", 2, 2) ; Inserisce testo 2 nella suddetta finestra: GUICtrlCreateLabel ("Per stoppare l'Auto-Raccolta premi [F12]", 2, 16) ; Crea bottone per lanciare Metin: $BottoneL = GUICtrlCreateButton ("Avvia Metin2", 10, 72, 135, 33) ; Crea bottone per focus su Metin: $BottoneF = GUICtrlCreateButton ("Focus su Metin2", 145, 72, 135, 33) ; Stampa a schermo (mostra) finestra creata: GUISetState(@SW_SHOW) ; Attivazione puslsanti: While 1 $Msg = GUIGetMsg () Switch $msg Case $BottoneL Run ( "Metin2.exe", "C:/Programmi/Metin2") Case $BottoneF WinActivate ("METIN2") EndSwitch Wend ; Imposta [F11] come HotKey per "Accendi": HotKeySet ("{F11}", "Accendi") ; Imposta [F12] come HotKey per "Spegni": HotKeySet ("{F12}", "Spegni") ; Crea e attiva ciclo "Preme [Z]" quando $i è =1: While $i = 1 Send ("Z") WEnd
; ----- PARTE CONCLUSIVA -----
; Attiva funzionalità pulsante [X]: While GuiGetMsg()<>-3 WEnd Qualcuno mi puo' dare una mano a trovare gli errori? Io mi sto rintriciullendo... P.S.: quello di prima ho risolto... non ce l'ho messo per niente Edited by Alutake - 13/8/2009, 00:46
|
| |