Yo juego un juego On-Line llamado Counter Strike, especificamente a un mod que se llama Hide and Seek. La cosa es que hice masomenos un script que prende y apaga una linterna a gran velocidad. La linterna se prende presionando la tecla "f"
Tengo 3 problemas o dudas.
Cuando aprieto f1 para saltar a la gui de ayuda el programa crashea
Quiero hacer un hoy Key que active la function "flash" presionando w + F, que no se pueda volver a activar cuando se esté ejecutando esa func y prohibir activar la func luego de 2 segundos de haber terminado
Despues necesito que se pause las functions "restart" y "togglepause" cuando aprieto las teclas "º" (está al lado del 1), "y" "u" "i" pero que sigan luego de presionar enter.
les dejo el código
Código: Seleccionar todo
Opt("TrayIconHide", 1)
Global $Paused
HotKeySet("{f2}", "TogglePause") ;f2
HotKeySet("{f4}", "Terminate") ;f4
HotKeySet("{f1}", "ShowMessage") ;f1
HotKeySet("{w+D}" ,"flash") ;
; XXXXXXXXXXXXX Aca empieza el script XXXXXXXXXXXXXXXXXX
MsgBox(0,"Flash Light By Keloks","Para abrir los controles Presione F1", 3)
func flash()
Send("{f}")
sleep(20)
Send("{f}")
sleep(20)
Send("{f}")
sleep(20)
Send("{f}")
sleep(20)
Send("{f}")
sleep(20)
Send("{f}")
sleep(20)
Send("{f}")
sleep(20)
Send("{f}")
sleep(20)
Send("{f}")
sleep(20)
Send("{f}")
sleep(20)
Send("{f}")
sleep(20)
Send("{f}")
sleep(20)
Send("{f}")
sleep(20)
Send("{f}")
sleep(20)
Send("{f}")
sleep(20)
Send("{f}")
sleep(20)
Send("{f}")
sleep(20)
Send("{f}")
sleep(20)
Send("{f}")
sleep(20)
Send("{f}")
sleep(20)
EndFunc
func restart()
Global $Paused
$Paused = $Paused
While $Paused
ToolTip('Auto Flash está "PAUSADO", F1 --> AYUDA',1,0)
WEnd
While 1
Send("{f}")
sleep(20)
Send("{f}")
sleep(20)
WEnd
EndFunc
$Paused = NOT $Paused
While $Paused
ToolTip('Auto Flash está "PAUSADO", F1 --> AYUDA',1,0)
WEnd
ToolTip('Auto Flash está "ACTIVADO", F1 --> AYUDA',1,0)
While 1
Send("{f}")
sleep(20)
Send("{f}")
sleep(20)
WEnd
Func TogglePause()
$Paused = NOT $Paused
While $Paused
ToolTip('Auto Flash está "PAUSADO", F1 --> AYUDA',1,0)
WEnd
ToolTip('Auto Flash está "ACTIVADO", F1 --> AYUDA',1,0)
EndFunc
Func Terminate()
Exit 0
EndFunc
Func ShowMessage()
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("//Auto Flash// by Keloks.com.ar", 301, 211, 192, 124, 0)
GUISetBkColor(0xFFFFFF)
$Pic1 = GUICtrlCreatePic("C:\Documents and Settings\Administrador\Mis documentos\Mis imágenes\Logo.jpg", 0, 0, 300, 39, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Aceptar = GUICtrlCreateButton("Aceptar", 72, 144, 150, 33, BitOR($BS_FLAT,$WS_GROUP,$WS_CLIPSIBLINGS))
$Label1 = GUICtrlCreateLabel("F1 Ver ayuda", 16, 64, 80, 20)
GUICtrlSetFont(-1, 9, 400, 0, "@Arial Unicode MS")
$Label2 = GUICtrlCreateLabel("F2 Activar / desactivar Auto Flash", 16, 88, 187, 20)
GUICtrlSetFont(-1, 9, 400, 0, "@Arial Unicode MS")
$Label3 = GUICtrlCreateLabel("F4 Cerrar Script", 16, 112, 93, 20)
GUICtrlSetFont(-1, 9, 400, 0, "@Arial Unicode MS")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Pic1
ShellExecute ("http://www.keloks.com.ar")
case $Aceptar
GUISetState(@SW_HIDE)
$Aceptar = restart()
EndSwitch
WEnd
EndFunc
