Este está hecho para las cams Axis, pero puede valer para otras.
Para eliminar el usar el navegador y usar, en cambio, un programa própio personalizado en Autoit que las controle, también podríamos añadirle funciones Extras si lo desearamos, como PING, o SiHayInternet() en el PC local, para controlar errores que el usuario normal no puede ver, o para manejar las cams, o para dar avisos sonoros etc....
Las Cams Axis piden instalar el Control Activex de Axis o bajar el nivel de seguridad del IExplorer. Es fiable.
Tarda un poco, porque abre primero las cams y luego las muestra. (se podría sacar antes el guiCrea..())
Por cierto, se pueden mover las camaras desde el navegador.
Código: Seleccionar todo
#cs ----------------------------------------------------------------------------
AutoIt Version: 3.3.6.1
Author: dadida
#ce ----------------------------------------------------------------------------
#include <GuiConstantsEx.au3>
#include <WindowsConstants.au3>
#include <ButtonConstants.au3>
#include <IE.au3>
$oIE = _IECreateEmbedded ()
$Camara1 = GUICreate("Camara 1", 800, 600)
GUICtrlCreateObj($oIE, 0, 0, 800, 600)
;GUISetState()
_IENavigate ($oIE, "http://150.214.222.100/view/index.shtml")
;ControlClick("Camara 1", "", "[CLASS:AxisMediaControlToolbarButton; INSTANCE:3]")
$oIE = _IECreateEmbedded ()
$Camara2 = GUICreate("Camara 2", 800, 600)
GUICtrlCreateObj($oIE, 0, 0, 800, 600)
;GUISetState()
_IENavigate ($oIE, "http://195.73.15.148:82/view/index.shtml")
;ControlClick("Camara 2", "", "[CLASS:AxisMediaControlToolbarButton; INSTANCE:3]")
$oIE = _IECreateEmbedded ()
$Camara3 = GUICreate("Camara 3", 800, 600)
GUICtrlCreateObj($oIE, 0, 0, 800, 600)
;GUISetState()
_IENavigate ($oIE, "http://66.188.23.142:1025/view/index.shtml")
;ControlClick("Camara 3", "", "[CLASS:AxisMediaControlToolbarButton; INSTANCE:3]")
$oIE = _IECreateEmbedded ()
$Camara4 = GUICreate("Camara 4", 800, 600)
GUICtrlCreateObj($oIE, 0, 0, 800, 600)
;GUISetState()
_IENavigate ($oIE, "http://195.73.15.148:82/view/index.shtml")
;ControlClick("Camara 4", "", "[CLASS:AxisMediaControlToolbarButton; INSTANCE:3]")
; GUI
$start = GUICreate("- Prueba de camaras -", 325, 60, 535, 530, $WS_BORDER, $WS_EX_TOPMOST)
GUISetState()
; BUTTONS
$Button1 = GuiCtrlCreateButton("Camara 1", 5, 5, 60, 30)
$Button2 = GuiCtrlCreateButton("Camara 2", 70, 5, 60, 30)
$Button3 = GuiCtrlCreateButton("Camara 3", 135, 5, 60, 30)
$Button4 = GuiCtrlCreateButton("Camara 4", 200, 5, 60, 30)
$Button5 = GuiCtrlCreateButton("Beenden", 265, 5, 50, 30)
While 1
$msg = GUIGetMsg()
Select
Case $msg = $Button1
GUISetState(@SW_HIDE, $Camara2)
GUISetState(@SW_HIDE, $Camara3)
GUISetState(@SW_HIDE, $Camara4)
GUISwitch($Camara1)
GUISetState()
MouseMove (666,540,2)
Case $msg = $Button2
GUISetState(@SW_HIDE, $Camara1)
GUISetState(@SW_HIDE, $Camara3)
GUISetState(@SW_HIDE, $Camara4)
GUISwitch($Camara2)
GUISetState()
MouseMove (666,540,2)
Case $msg = $Button3
GUISetState(@SW_HIDE, $Camara1)
GUISetState(@SW_HIDE, $Camara2)
GUISetState(@SW_HIDE, $Camara4)
GUISwitch($Camara3)
GUISetState()
MouseMove (666,540,2)
Case $msg = $Button4
GUISetState(@SW_HIDE, $Camara1)
GUISetState(@SW_HIDE, $Camara2)
GUISetState(@SW_HIDE, $Camara3)
GUISwitch($Camara4)
GUISetState()
MouseMove (666,540,2)
Case $msg = $Button5 Or $msg = $GUI_EVENT_CLOSE
$beenden = MsgBox(4, "Atención", "Seguro de Acabar?")
If $beenden = 6 Then Exit
EndSelect
WEnd
While GUIGetMsg()<>-3
WEndSalu22:)
PD: Pwequeña traducción