Autoit.ES

Publicado: **18 Feb 2010, 20:03**

buenas aora con otro tema espero que esta vez este bien puesto el titulo jeje (lo siento por daros la brasa pero estoy verde en algunos temas muy verde) bueno primero os pongo el script.

Código: Seleccionar todo

Opt("PixelCoordMode",2)
Opt("MouseCoordMode",2)
WinWaitActive("nombre de ventana");creo que es aqui donde tengo el problema ya que solo me funciona cuando la ventana la tengo activa y a mi me interesa que este script funcione con la ventana minimizada.
Global $Paused, $counter = 0
HotKeySet("{PAUSE}", "TogglePause") 
Func TogglePause()
$Paused = NOT $Paused
While $Paused
sleep(0)
ToolTip('pulsa pausa para modo pausa = pausa para activar nuevamente "',0,0)
WEnd
ToolTip("")
EndFunc

HotKeySet ("{ESC}","Quit")
Func Quit()
Exit
EndFunc
$Control = 0x3E1616  
$Target = "0x5B9600"
$Target2 = "0xC4C1C4"
$Target3 = 0x0089AA
$Target4 = "0xD7A700"
$Click = "Right"
$Su = 50
$In = 150
$Iz = 680
$De = 430
While 1
$counter +=1
ToolTip ("ejecucion activa",0,0) 
$SearchResult = PixelSearch(401,26,402,27,$Control,5,1)
If @error Then
MouseClick("Right")
Sleep(100) 
EndIf 
$SearchResult = PixelSearch(401,26,402,27,$Control,5,1)
If @error Then
$coord = PixelSearch($Su,$In,$Iz,$De,$Target,5,1)
If @error Then
Else
$x = Random($coord[0], $coord[0]+50)
$y = Random($coord[1], $coord[1]+50)
MouseClick("Right", $x, $y, 2, 0)
Send("{F1}")
EndIf
Else
Send("{F4}")
EndIf
$SearchResult = PixelSearch(401,26,402,27,$Control,5,1)
If @error Then
MouseClick("Right")
Sleep(100)
EndIf
$SearchResult = PixelSearch(401,26,402,27,$Control,5,1)
If @error Then
$coord = PixelSearch($Su,$In,$Iz,$De,$Target2,5,1)
If @error Then
Else
$x = Random($coord[0], $coord[0]+50)
$y = Random($coord[1], $coord[1]+50)
MouseClick("Right", $x, $y, 2, 0)
Send("{F1}")
EndIf
Else
Send("{F4}")
EndIf
$SearchResult = PixelSearch(401,26,402,27,$Control,5,1)
If @error Then
MouseClick("Right")
Sleep(100)
EndIf
$SearchResult = PixelSearch(401,26,402,27,$Control,5,1)
If @error Then
$coord = PixelSearch($Su,$In,$Iz,$De,$Target3,5,1)
If @error Then
Else
$x = Random($coord[0], $coord[0]+50)
$y = Random($coord[1], $coord[1]+50)
MouseClick("Right", $x, $y, 2, 0)
Send("{F1}")
EndIf
Else
Send("{F4}")
EndIf
$SearchResult = PixelSearch(401,26,402,27,$Control,5,1)
If @error Then
MouseClick("Right")
Sleep(100)
EndIf
$SearchResult = PixelSearch(401,26,402,27,$Control,5,1)
If @error Then
$coord = PixelSearch($Su,$In,$Iz,$De,$Target4,5,1)
If @error Then
Else
$x = Random($coord[0], $coord[0]+50)
$y = Random($coord[1], $coord[1]+50)
MouseClick("Right", $x, $y, 2, 0)
Send("{F1}")
EndIf
Else
Send("{F4}")
EndIf
$SearchResult = PixelSearch(401,26,402,27,$Control,5,1)
If @error Then
MouseClick("Right")
Sleep(100)
EndIf
WEnd

bueno espero que esto sea posible aunq no estoy muy seguro ya que busca coordenadas en la pantalla y colores y hace click con el raton no se si sera posible pero en el caso de no ser posible me interesaria saber si es posible introduccir un script parecido que tengo pero que solo introduce numeros y letras con un cierto tiempo de espera entre los numeros y las letras en caso de ser posible si os hiciera falta el codigo lo pondria.

Publicado: **18 Feb 2010, 20:45**

Bueno el script que tenés ahí no funcionaría para una ventana minimizada. Supongo que es para un juego? El problema es que busca coordenadas de pixeles de determinados colores y hace click en determinados lugares. Si es una aplicación, puede que sea posible. Pero si se trata de un juego entonces me temo que no (o al menos no es tan facil, porque posible seguro que si).

Publicado: **18 Feb 2010, 21:03**

Si es para un video juego bueno posible si que es por que e visto algo parecido por la red pero bueno digamos que este script que he puesto no es lo que mas me interesa en cambio tu crees que este otro seria posible.

Código: Seleccionar todo

WinWaitActive("nombre ventana")
Global $Paused, $counter = 0
HotKeySet("{PAUSE}", "TogglePause") 
Func TogglePause()
$Paused = NOT $Paused
While $Paused
sleep(0)
ToolTip('El control automatico ha entrado en modo de espera = presione pausa para continuar  "',0,0)
WEnd
ToolTip("")
EndFunc
HotKeySet ("{END}","Quit")
Func Quit()
Exit
EndFunc
$Control = 0x3E1616  
$Target = "0x5B9600"
While 1
$counter +=1
ToolTip ("auto atake)",0,0) 
$SearchResult = PixelSearch(422,160,422,160,"0xBA506E")
If @error Then
Send("{2}")
Sleep(100)
EndIf
Send("1") 
Send("1") 
Send("1") 
Send("1") 
Send("1") 
Send("1") 
Send("1") 
Send("1") 
Send("1") 
Send("1") 
Send("1") 
Send("1") 
Sleep("1000")
Send("3")
Sleep("100")
Send("3")
Sleep("100")
Send("3")
Sleep("100")
Send("3")
Sleep("100")
Send("3")
Sleep("100")
Send("3")
Sleep("100")
Send("3")
Sleep("100")
WEnd

Autoit.ES

ejecutar script en ventana minimizada???

ejecutar script en ventana minimizada???

Re: ejecutar script en ventana minimizada???

Re: ejecutar script en ventana minimizada???