[GUIDA] autoit, by Fraev

« Older   Newer »
  Share  
Alutake
CAT_IMG Posted on 12/8/2009, 21:52 by: Alutake     +1   -1




Un'altra "cosuccia" (lo so: sono un rompi-c******i :P )...
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).
SPOILER (click to view)
; ----- 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... :wacko:

P.S.: quello di prima ho risolto... non ce l'ho messo per niente :D

Edited by Alutake - 13/8/2009, 00:46
 
Top
94 replies since 24/2/2008, 11:09   44886 views
  Share