www.MegaLab.it

Avendo numerose postazioni da osservare, risulterebbe scomodo aprire tante pagine del browser quanti i sono PC. Sarebbe molto più vantaggioso poter vedere le riprese di tutte le webcam in maniera semplice e rapida; per far questo però, dobbiamo scomodare il Visual Basic.

Creiamo un nuovo progetto EXE Standard e come prima cosa andiamo su Progetto, clicchiamo su Componenti, dopodiché scegliamo Sfoglia, posizioniamoci nella cartella System32, impostiamo tutti i file e scegliamo il file Shdocvw.dll, quindi confermiamo.

Caricando questo componente, nella nostra applicazione ora è come se ci fosse un browser.

Ora mettiamo il caso di voler osservare tre postazioni:

• 192.168.1.3
• 192.168.1.4
• 192.168.1.5

Disegniamo quindi la Form inserendo tre pulsanti relativi ai tre PC, e in basso inseriamo il componente per la navigazione web (ha l'iconcina di un mondo) e appena sopra di esso inseriamo una Label.

Ecco come sarà il nostro pannello:

Disegnato il pannello, inserite il seguente codice:

Private Sub Command1_Click() Label1.Caption = "Selezionata webcam di: 192.168.1.3" WebBrowser1.Navigate "Http:\\192.168.1.3:8081" End Sub Private Sub Command2_Click() Label1.Caption = "Selezionata webcam di: 192.168.1.4" WebBrowser1.Navigate "Http:\\192.168.1.4:8081" End Sub Private Sub Command3_Click() Label1.Caption = "Selezionata webcam di: 192.168.1.5" WebBrowser1.Navigate "Http:\\192.168.1.5:8081" End Sub Private Sub WebBrowser1_NavigateError(ByVal pDisp As Object, URL As Variant, Frame As Variant, StatusCode As Variant, Cancel As Boolean) MsgBox "Host irraggiungibile", vbInformation End Sub

Resta inteso che sostituirete gli indirizzi IP con quelli dei vostri PC da monitorare.

Infine creiamo il nostro EXE andando sul menu File e cliccando su Crea Progetto1.exe

Ed ecco il nostro programma operativo:

Ovviamente questo è un pannello di esempio, potrete personalizzarlo e ampliarlo come volete.

Ad ogni modo il concetto di funzionamento è molto semplice: Cliccando sui pulsanti l'oggetto browser si connette al relativo indirizzo IP ed esso viene mostrato anche nella Label, in caso la connessione fallisse verrà restituito un messaggio di errore.

Note

• Nella fase di compilazione, l'oggetto Webbrowser è probabile che restituisca sempre un errore di run-time, questo a causa di un bug. Tuttavia una volta creato l'EXE non darà più alcun problema
• Trattandosi di una connessione diretta, assicuratevi che eventuali firewall siano configurati in maniera tale da consentire tale traffico.
• Se Yawcam non dovesse funzionare bene, eliminate il file yawcam_settings.xml, rilanciate Yawcam e procedete alla riconfigurazione.
• Per maggiore sicurezza potete impostare Yawcam in maniera tale che chieda una password prima di lasciarvi accedere alla webcam. Per farlo andate in Setting e spostatevi nella sezione Password.
• Nel caso un PC abbia installate più webcam, all'apertura di Yawcam andate su Setting, Device e selezionate la webcam da usare.

Per finire vorrei rendere chiaro che, aldilà dello scopo, resta comunque importante informare le persone coinvolte, della sorveglianza video a cui potrebbero essere sottoposte.