Hallo und einen guten Morgen!
Also das mit dem Interval geht schon ganz gut. War ich dann auch irgendwann drauf gekommen. Geht auch recht gut. Den Interval sollte man recht groß wählen, da es ja passieren kann, das sich das Script mal aufhängt und dann kommen bei einen Interval alle 1Sek. ein Bild.
Habe mal das Script angehängt, wenn jemand damit etwas anfangen kann. Kann ich sonst auch in Zukunft lassen.
Option Explicit
dim para, HttpRequest, url, errorlevel, i, BtnCode
Dim oShell, ie4
Set oShell = WScript.CreateObject ("WSCript.shell")
Set ie4 = WScript.CreateObject("InternetExplorer.Application","ie4")
set HttpRequest = CreateObject("Microsoft.XMLHTTP")
set para = WScript.arguments
i = 1 'Schleifenzähler Startwert
do until i > 10000 'Schleife
'Postion an Kamera senden
url = "http://192.168..../decoder_control.cgi?command=33&user=admin&pwd=admin" 'URL Kamerabefehl Pos. 2
HttpRequest.Open "GET", url, False 'Übertragungsmetode
HttpRequest.Send 'Befehl senden
BtnCode = oShell.Popup ("Kamera fährt Position 2 an. Schleife abbrechen?", 7, "WebCam IP 111", 0 + 32)
Select Case BtnCode
case 1 exit do
End Select
url = "http://192.168..../set_FTP.cgi?upload_interval=1&cam_user=admin&cam_pwd=admin" 'Bild speichern (FTP Upload an)
HttpRequest.Open "GET", url, False 'Übertragungsmetode
HttpRequest.Send 'Befehl senden
wscript.sleep 1000 'kurz warten
url = "http://192.168..../set_FTP.cgi?upload_interval=0&cam_user=admin&cam_pwd=admin" 'Bild speichern (FTP Upload an)
HttpRequest.Open "GET", url, False 'Übertragungsmetode
HttpRequest.Send 'Befehl senden
'Postion an Kamera senden
url = "http://192.168..../decoder_control.cgi?command=37&user=admin&pwd=admin" 'URL Kamerabefehl Pos. 4
HttpRequest.Open "GET", url, False 'Übertragungsmetode
HttpRequest.Send 'Befehl senden
BtnCode = oShell.Popup ("Kamera fährt Position 4 an. Schleife abbrechen?", 3, "WebCam IP 111", 0 + 32)
Select Case BtnCode
case 1 exit do
End Select
url = "http://192.168..../set_FTP.cgi?upload_interval=1&cam_user=admin&cam_pwd=admin" 'Bild speichern (FTP Upload an)
HttpRequest.Open "GET", url, False 'Übertragungsmetode
HttpRequest.Send 'Befehl senden
wscript.sleep 1000 'kurz warten
url = "http://192.168..../set_FTP.cgi?upload_interval=0&cam_user=admin&cam_pwd=admin" 'Bild speichern (FTP Upload an)
HttpRequest.Open "GET", url, False 'Übertragungsmetode
HttpRequest.Send 'Befehl senden
'Postion an Kamera senden
url = "http://192.168..../decoder_control.cgi?command=39&user=admin&pwd=admin" 'URL Kamerabefehl Pos. 5
HttpRequest.Open "GET", url, False 'Übertragungsmetode
HttpRequest.Send 'Befehl senden
BtnCode = oShell.Popup ("Kamera fährt Position 5 an. Schleife abbrechen?", 4, "WebCam IP 111", 0 + 32)
Select Case BtnCode
case 1 exit do
End Select
url = "http://192.168..../set_FTP.cgi?upload_interval=1&cam_user=admin&cam_pwd=admin" 'Bild speichern (FTP Upload an)
HttpRequest.Open "GET", url, False 'Übertragungsmetode
HttpRequest.Send 'Befehl senden
wscript.sleep 1000 'kurz warten
url = "http://192.168..../set_FTP.cgi?upload_interval=0&cam_user=admin&cam_pwd=admin" 'Bild speichern (FTP Upload an)
HttpRequest.Open "GET", url, False 'Übertragungsmetode
HttpRequest.Send 'Befehl senden
'Postion an Kamera senden
url = "http://192.168..../decoder_control.cgi?command=37&user=admin&pwd=admin" 'URL Kamerabefehl Pos. 4
HttpRequest.Open "GET", url, False 'Übertragungsmetode
HttpRequest.Send 'Befehl senden
BtnCode = oShell.Popup ("Kamera fährt Position 4 an. Schleife abbrechen?", 3, "WebCam IP 111", 0 + 32)
Select Case BtnCode
case 1 exit do
End Select
url = "http://192.168..../set_FTP.cgi?upload_interval=1&cam_user=admin&cam_pwd=admin" 'Bild speichern (FTP Upload an)
HttpRequest.Open "GET", url, False 'Übertragungsmetode
HttpRequest.Send 'Befehl senden
wscript.sleep 1000 'kurz warten
url = "http://192.168..../set_FTP.cgi?upload_interval=0&cam_user=admin&cam_pwd=admin" 'Bild speichern (FTP Upload an)
HttpRequest.Open "GET", url, False 'Übertragungsmetode
HttpRequest.Send 'Befehl senden
i = i+1 'Schleifenzähler um 1 erhöhen
loop 'do until i > 6 'Schleife
'Programmende
'Postion an Kamera senden
url = "http://192.168..../decoder_control.cgi?command=37&user=admin&pwd=admin" 'URL Kamerabefehl Pos. 4
HttpRequest.Open "GET", url, False 'Übertragungsmetode
HttpRequest.Send 'Befehl senden
ie4.Quit
BtnCode = oShell.Popup ("Programm wurde beendet.", 5, "WebCam IP 111", 0 + 64)
Set ie4 = Nothing
Set oShell = Nothing
Wscript.Quit 'Programmende
Mal neben bei, wenn meine Fritz!Box neu startet und die WLan Verbindung unterbrochen wird, verbindet sich die CAM erst wieder nachdem ich den Stecker gezogen habe?! Ist etwas nervig. Weiß da jemand Rat? Habe ne fest IP. SID Name wird angezeigt.
Jefferson:
Werde mir das mal anschauen, hast du evtl. auch Sample?
Werde das ganze sowie so in PHP packen, da ich es in meine Haussteuerung integrieren möchte. Weiß bloß noch nicht wie ich die Bildgröße des Webbildes anpassen kann, soll dann auf der rechte Seite eingeblendet werden (siehe Foto).
Gruß
mfreye