Marco Backschat's Webcam :: Görwihl/Germany

Beweggründe:
Webcam...ein Thema, das mich schon immer interessierte.
Es sollte aber nichts kosten, also auf dem Speicher alte Computerteile zusammengesucht und bei Ebay die billigste Kamera erstanden (Was man leider bei der Qualität der Bilder erkennt) die zu haben war!

Die Technik:
CPU: 366 MHz
Speicher: 384 SDRAM
HDD1: 8GB W2k (2,5 belgt)
HDD2: 4GB DatenLW
Kamera NoName 1,50 Euro Ebay
Wlankarte von NETGEAR
Kein Monitor, Steuerung via VNC

---------------------------------------------------------------------------

Software:
OS: Windows 2000 SP 4
Kamerasteuerung: DoCaWa von Reno Schafranek (www.schafranek.com) -Freeware
Antivirus: Antivir -Freeware
Firewall: Outpost

---------------------------------------------------------------------------

Automatisierung:
Da ich nicht ständig vor dem Rechner sitze, sondern alles automatisiert ablaufen soll waren einige VB-Scripts notwendig, zumal der Rechner auch ein wenig schwach auf der Brust ist und ab und wann überfordert ist…

Also mussten folgende VB-Scripte erstellt werden und der Sheduler entsprechend konfiguriert werden;
---------------------------------------------------------------------------
---------------------------------------------------------------------------
Neustart-Script im Autostartordner (Benutzer wird automatisch angemeldet)
Da nach einem Update evtl. der Rechner neu gestartet wird war ein Script nötig das:
-	Am Tag die Anwendung um die Kamera zu bedienen und die Bilder ins Internet zu laden zu starten und den Rechner zu sperren
-	oder Nachts einfach nur den Rechner sperrt!
---------------------------------------------------------------------------
---------------------------------------------------------------------------
std = hour(time)
mstd = 6
astd = 19
'Wenn der Rechner am Tag neu gestartet wird....
if std > mstd and std < astd then 

'object erstellen
set wshshell=createobject("wscript.shell") 
'...erst mal warten bis alle dienste gestartet sind (bei der alten Kiste dauert das etwas...
wscript.sleep 200000
'...dann die Anwendung starten, die die Bilder schießt und sie per FTP ins Internet überträgt...
wshshell.run(chr(34) & "C:\Programme\DoCaWa\docawa.exe" & chr(34))
'...und wieder warten, bis die Anwendung auch wirklich läuft...
wscript.sleep 20000
'neues object erstellen
Set WshShell = WScript.CreateObject("WScript.Shell")
'...den Computer sperren da er mit Tastatur und Maus, jedoch ohne Monitor im Ecken steht und meine Frau oder meine Kinder, oder sonst jemand unautorisiertes auf der Tastatur herumdrücken könnte...
WshShell.Run "RunDll32.exe user32.dll,LockWorkStation"

else
'...also und wenn nicht Tag ist braucht keine Anwendung gestartet werden, da eh keine Bilder gemacht werden...
wscript.sleep 20000
Set WshShell = WScript.CreateObject("WScript.Shell")
'...die Workstation wird trotzdem gesperrt!
WshShell.Run "RunDll32.exe user32.dll,LockWorkStation"

End if
---------------------------------------------------------------------------
---------------------------------------------------------------------------
Leider ist es so, das die alte Kiste manchmal abschmiert, damit im Internet nicht alzulange kein aktuelles Bild zu sehen ist Kille ich stündlich per Sheduler (natürlich nur von 8:00 bis 18:00 Uhr) die Software, für Kamera und FTP-Übertragung um  sie wierder neu zu starten.
---------------------------------------------------------------------------
---------------------------------------------------------------------------
'Nichts anderes als den Prozess/ die Anwendung zu killen...
Dim strComputer, objWMIService, colProcessList, objProcess
strComputer = "." 
Set objWMIService = GetObject _ 
("winmgmts:\" & strComputer & "
oot\cimv2") 
Set colProcessList = objWMIService.ExecQuery _ 
("Select * from Win32_Process Where Name = 'docawa.exe'") 
For Each objProcess in colProcessList 
objProcess.Terminate() 
Next

'...um sie nach kurzer Pause...
wscript.sleep 8000
set wshshell=createobject("wscript.shell") 
'...neu zu starten!
wshshell.run(chr(34) & "C:\Programme\DoCaWa\docawa.exe" & chr(34))
---------------------------------------------------------------------------
---------------------------------------------------------------------------
Tja und wenn der Abend kommt kopiert dieses Script alles in einen Archivordner auf ein anderes Laufwerk. Hier bin ich klar übers Ziel hinausgeschossen, da ich ein Script das ich schon vor langem erstellt hatte nur ein wenig angepasst. Es erstellt noch eine Textdatei (eigentlich eine Krücke) in der immer das aktuelle Datum eingetragen wird…aber seht selbst:
---------------------------------------------------------------------------
---------------------------------------------------------------------------
Option Explicit

Dim Text
Dim datum(10) 
Dim help
Dim ordnername
Dim sicherungspfad, zielpfad
Dim quellpfad
sicherungspfad = "e:\"
quellpfad = "c:\programme\docawa\"


'Natürlich wird erst mal Feierabend gemacht (DOCaWa gekillt)
Dim strComputer, objWMIService, colProcessList, objProcess
strComputer = "." 
Set objWMIService = GetObject _ 
("winmgmts:\" & strComputer & "
oot\cimv2") 
Set colProcessList = objWMIService.ExecQuery _ 
("Select * from Win32_Process Where Name = 'docawa.exe'") 
For Each objProcess in colProcessList 
objProcess.Terminate() 
Next 

Text =  date

'Datei wird erzeugt und Datum hereingeschrieben

Dim fso, MeineDatei, atrib

'Objekterzeugung:

Set fso = CreateObject("Scripting.FileSystemObject")

'Eine Textdatei wird erzeugt und mit dem Datum gefüllt:

Set MeineDatei = fso.CreateTextFile("datum.txt", True)

MeineDatei.WriteLine(Text)

MeineDatei.Close

'Die Datei wird Zeichenweise gelesen und das Datum formatiert
help = -1

Const ForReading = 1, ForWriting = 2, ForAppending = 3
Dim fs2, f2, ts2
Set fs2 = CreateObject("Scripting.FileSystemObject")
Set f2 = fs2.GetFile("datum.txt")
Set ts2 = f2.OpenAsTextStream(ForReading)
Do
help = help + 1
datum(help) = ts2.Read (1)
Loop Until help = 9
ts2.Close

datum(2) = "_"
ordnername = sicherungspfad & (datum(6) & datum(7) & datum(8) & datum(9) & datum(2) & datum(3) & datum(4) & datum(2) & datum(0) & datum(1))

'Ordner erstellen und die JPG's auschneiden und einfügen
Dim obj, ordner
Set obj = CreateObject("Scripting.FileSystemObject")
Set ordner = obj.CreateFolder(ordnername)
Dim quelle, datei, ziel
ordner = ordner & "\"
Dim folder
Set folder = obj.GetFolder (quellpfad)
For each datei in folder.Files
If LCase(obj.GetExtensionName(datei.Name)) = "jpg" Then 
Set quelle = obj.GetFile (quellpfad & datei.Name)
ziel = ordner & "\" & datei.Name
quelle.Copy ziel
quelle.delete

End if
Next
---------------------------------------------------------------------------
---------------------------------------------------------------------------

Nun, da lokal alles Klar war musste das Bild der Kamera irgendwie veröffentlicht werden.
Zum einen hatte ich mir die Anforderung gestellt immer ein aktuelles Bild zu veröffentlichen, zum Anderen wollte ich sicher stellen das der Besucher bei einer Störung diese auch mitbekommt, außerdem sollte für den Zeitraum (Nachts) an dem keine Bilder hochgeladen werden dies ebenso sichtbar sein.
Darum in erste Linie dieses PHP:
---------------------------------------------------------------------------

/**  
//Das Bild, das per FTP hochgeladen wird
$file = "goerwihl/zuhause.jpg";

//Erstellungsdatum/Zeit des Bildes auf dem Server
$zeit = filemtime($file);

//Dateigröße ermitteln und formatieren (falls man das Ausgeben möchte…)
$filesize = Round(((filesize($file)/1024)/1024),2); 
$filesize = sprintf("%.2f", $filesize);  

//Formatierung der Zeit (habe ich aber nicht wirklich verwendet)        
$modzeit = gmdate("d M Y H:i:s", $zeit);

//Eine simple Abfrage, die den Wert der Variable für das Bild je nach „Zustand“ verändert 
$heute = time();
$nacht = date("H", $heute);
$dreimin = 180;
$unterschied = $heute - $zeit;
$dateiname = $file;

//Ist das Bild älter als 3 Minuten
if ($unterschied > $dreimin) {

	//…und zwischen 18:00 Uhr und 07:00 Uhr ist Nacht und es werden keine aktuellen Bilder angezeigt sondern das „Nachtruhe-Schild“…
	if ($nacht > 18 || $nacht < 7) {
		$dateiname = "goerwihl/nachtruhe.jpg";

	//….ansonsten muss eine Störung vorliegen und das „Störungsbild“ gezeigt werden
	} else {
		$dateiname = "goerwihl/ausserbetrieb.jpg";
	}
	
}
*/

---------------------------------------------------------------------------
---------------------------------------------------------------------------

Für die Ausgabe des Bilds diesen HTML-Tag:

<img src="goerwihl/ausserbetrieb.jpg" alt="Ein kleiner Teil Görwihls" width="352" height="288" name="webcam">

---------------------------------------------------------------------------
---------------------------------------------------------------------------

Jetz noch etwas damit das Bild jede Minute aktualisiert wird, dies durch ein kleines HTML-Formular gesteuert durch Java-Script:

HTML:

<form name="counter">
                Refresh in: 
                <input name="caption" type="text" value="" size="3" maxlength="3" 
 style="border: none;">
                           
              </form>
Java-Script:

<script language="Javascript">
  <!--
    function refreshCam(){
        rfsh = new Date(); 
        rfsh = "?"+rfsh.getTime()
        document.images["webcam"].src = "goerwihl/ausserbetrieb.jpg"+rfsh
    }
  
    function refreshCounter(cnt){
        if(cnt == 0){
          refreshCam();
          cnt = 60;  
          document.counter.caption.value = "-->";
        }
        else{
          if(cnt < 10)          
            document.counter.caption.value = "0" + cnt + "s";
          else  
            document.counter.caption.value = cnt + "s";
        }
    
        setTimeout("refreshCounter("+ --cnt +")", 1000);
    }
     
    refreshCounter(60);
  //-->
</script>