Página 1 de 1

Ejecutar boton Pequeño macro

Publicado: 06 Sep 2012, 19:37
por Pregun
Bueno gente tengo un problema que el primero es que hace poco empese a usar autoit y se me ocurrio hacer un programita cosa que lo ize con el koda las guils quedo re lindo xD con botones y una imagen de mi sobrina el tema a lo primero era que cuando apretara un boton puciera en cierta ventana un nombre de usuario y contraseña luego de buscar y buscar encontre un theard que me ayudo mucho y logre hacer que aga lo que yo queria poner user y pass en un juego bien ya solucionado eso me quise tirar un poco mas y hacer tipo un macro que trabaje tirando skills pero los skill tienen sierto tiempo de limite para tirarlos osea cada 20sec se habilita el tema es que encontre otro thear y me dio una idea pero no anda el codigo es este

Código: Seleccionar todo

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("J.M.S - 2/9/2012", 421, 171, 192, 114)
GUISetBkColor(0x800000)
$Button1 = GUICtrlCreateButton("Mamerto", 8, 16, 81, 25)
$Button2 = GUICtrlCreateButton("Negra", 8, 56, 81, 25)
$Button3 = GUICtrlCreateButton("Tonto", 8, 96, 81, 25)
$Button4 = GUICtrlCreateButton("Asssss", 8, 136, 81, 25)
$Input1 = GUICtrlCreateInput("Delay", 160, 16, 49, 21)
$Input2 = GUICtrlCreateInput("Delay", 160, 56, 49, 21)
$Input3 = GUICtrlCreateInput("Delay", 160, 96, 49, 21)
$Input4 = GUICtrlCreateInput("Delay", 160, 136, 49, 21)
$Button5 = GUICtrlCreateButton("F1 Time", 104, 16, 49, 25)
$Button6 = GUICtrlCreateButton("F2 Time", 104, 56, 49, 25)
$Button7 = GUICtrlCreateButton("F3 Time", 104, 96, 49, 25)
$Button8 = GUICtrlCreateButton("F4 Time", 104, 136, 49, 25)
$Pic1 = GUICtrlCreatePic("C:\Documents and Settings\Administrador\Escritorio\Nueva carpeta (4)\Foto-0006.jpg", 232, 8, 169, 153)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


While 1

   Switch GUIGetMsg()

     Case  $Button1

	WinActivate ("Xgame)
    Send("333333")
	Sleep (1000)
	Send ("{TAB}")
	Send ("44444")
    Send ("{Enter}")
	Send ("{Enter}")

     Case  $Button2

	WinActivate ("xgame")
    Send("***********")
	Sleep (1000)
	Send ("{TAB}")
	Send ("*********")
    Send ("{Enter}")
	Send ("{Enter}")

	Case  $Button3

	WinActivate ("xgame")
    Send("*******")
	Sleep (1000)
	Send ("{TAB}")
	Send ("**********")
    Send ("{Enter}")
	Send ("{Enter}")

	Case  $Button4

	WinActivate ("***********-")
    Send("***********")
	Sleep (1000)
	Send ("{TAB}")
	Send ("asdasd")
    Send ("{Enter}")
	Send ("{Enter}")




Case $GUI_EVENT_CLOSE
         ExitLoop
   EndSwitch
WEnd

 [b]While 1
Switch GUIGetMsg()

	case $Button5

	 ControlSend("************","","","F1")
$In1 = ConsoleRead ($Input1)
	Sleep( $In1)
	Case $GUI_EVENT_CLOSE
	 ExitLoop
	 EndSwitch
	 WEnd[/b]



lo que esta con negrita no funciona lo demas funciona a la perfecion lo que quiero hacer es que cuando le aga click al boton5 o sea F1 mande la Key F1 repetitivo pero cada 20seg tiempo puesto en $imput y se podria hacer que poner 10 lo interprete como 10seg y no milisegundos o.O

gracias y aver si me pueden ayudar porque ya me rompi la cabesa tratando de hacer esto :( lo que pasa que soy nuevito y creo que me lanse con algo grande para mi xD es como manejar una ferrari sin saber manejar xd

Re: Ejecutar boton Pequeño macro

Publicado: 06 Sep 2012, 21:23
por Pregun
case $Button5
While 1
ControlSend("Battle of Immortals-","","","{F1}")
$In1 = ConsoleRead ($Input1)
Sleep( $In1)
WEnd

ya encontre una forma que anda haora el tema es que pueda pausarlo desde el boton que inicia y el tema que tome seg y no milisegundos en el $imput vere viendo ayuda :S

Edit : igual probando solo anda F1 los demas F2 3 4 no andan :S :( porque sera?