hola, gracias por la descripción de mi error, ya veo que por eso me fallaba, lo quiero es que el script se ejecute cada vez que presione un botón desde una pagina web o también crear algún botón gui en la pantalla por que ya lo hice para que funcione pero usando el teclado y al realizar el sgte codigo no me funciona correctamente se salta.
Code: Select all
#SingleInstance, Force
; GUI Layout
;-------------------------------------
Gui, Font, cWhite
Gui, Add, Text, x10 y10, Press the Button
Gui, Add, Button, x150 y150 w200 h30 gOur_First_Button, Press Me!
Gui, Add, Button, x200 y200 w100 h30 gOur_Second_Button, Abierto!
Gui, Add, Button, x200 y250 w100 h30 gOur_Third_Button, Exportar a Texto!
Gui, +AlwaysOnTop
Gui, Color, Black
Gui, Show, x800 y50 w500 h500, The Gui
return
; Lables
;-------------------------------------
GuiClose:
;MsgBox, it´s me
ExitApp
return
Our_First_Button:
a := 5
b := 8
c := Add(a,b)
MsgBox, a + b = %c%
return
Our_Second_Button:
d := abierto()
MsgBox, %d%
return
Our_Third_Button:
abrir()
return
; Functions
;-------------------------------------
Add(x,y){
return x + y
}
abierto()
{
if WinExist("ahk_exe SerialMonitor.exe")
return 1
else
return 0
}
abrir()
{
WinWait, ahk_exe SerialMonitor.exe
If WinExist("ahk_exe SerialMonitor.exe")
{
WinActivate, ahk_exe SerialMonitor.exe
If WinActive("ahk_exe SerialMonitor.exe")
{
BlockInput On
Send {LAlt down}V{LAlt up}
Sleep, 500
Send {Down}{Down}{Down}
Sleep, 500
send {Enter}
Sleep, 500
Send {Down}{Down}
Sleep, 500
send {Enter}
BlockInput Off
}
}
Sleep, 200
Clipboard:=
ClipSaved := ClipboardAll
clipboard := "C:\xampp\htdocs\Archivos\"
Send ^v
sleep 500
Clipboard := ClipSaved
Sleep, 100
ControlClick,Edit1,ahk_exe SerialMonitor.exe,,Right,1,D
Sleep, 200
ControlSend,Edit1,%Clipboard%,ahk_exe SerialMonitor.exe
Send {Enter}
Clipboard:=
Clipboard:="prueba03"
Sleep, 500
Send {Escape}
Sleep, 500
ControlClick,Edit1,ahk_exe SerialMonitor.exe,,Right,1,D
Sleep, 500
ControlSend,Edit1,%Clipboard%,ahk_exe SerialMonitor.exe
Sleep, 500
Send {Tab}
ControlClick, ComboBox2, ahk_exe SerialMonitor.exe
Sleep, 200
send {Home}
Sleep, 200
send {Down}
Sleep, 1000
ControlClick, Button2, Guardar como
Sleep, 1000
; Desde aquí salta , a veces lo realiza otras veces no.
WinWait, ahk_exe SerialMonitor.exe
Sleep, 500
If WinExist("ahk_exe SerialMonitor.exe")
{
Sleep, 200
WinActivate, ahk_exe SerialMonitor.exe
If WinActive("ahk_exe SerialMonitor.exe")
{
BlockInput On
Send {LAlt down}S{LAlt up}
Sleep, 500
send {Right}
BlockInput Off
}
}
send {Escape}
Sleep, 500
WinWait, ahk_exe SerialMonitor.exe
If WinExist("ahk_exe SerialMonitor.exe")
{
WinActivate, ahk_exe SerialMonitor.exe
If WinActive("ahk_exe SerialMonitor.exe")
{
BlockInput On
Send {LAlt down}E{LAlt up}
Sleep, 1000
Send {Down}{Down}{Down}{Down}{Down}{Down}
Sleep, 1000
send {Enter}
BlockInput Off
}
}
return
}