Newsgroup: it.comp.os.win.software
Titolo: Allarme sonoro a caduta connessione

Salve. spero ci sia qualcuno in grado di aiutarmi in questa richiesta
singolare. Mi serve poter monitorare la caduta accidentale della connessione
Internet tramite l'innesco automatico di un allarme sonoro. Qualche idea?
Grazie
--
Cancellare XXX dall'indirizzo per rispondere in privato

 Internet tramite l'innesco automatico di un allarme sonoro. Qualche idea?
Scarica Netlaunch  da 
www.blackcastlesoft.com
Tra le altre funzioni, puo' abbinare un segnale sonoro
alla connessione e alla disconnessione.
--
Stardust®

 ha scritto nel messaggio
news:6A8b8.60914$om6.1...@news1.tin.it...


Millennium e anche XP...
--
Cancellare XXX dall'indirizzo per rispondere in privato
"Gigi" <miam...@ANTISPAMyahoo.com> ha scritto nel messaggio
news:a4j6va$8lq$1...@newsreader.mailgate.org...


 Internet tramite l'innesco automatico di un allarme sonoro. Qualche
idea?
Copia incolla su notepad da "inizio" a "fine" e salva con esten  .vbs
X farla entrare in loop salva in un posto preciso e non muoverla x es
c:\allarme.vbs
Per interompere il loop contr+alt+canc e disattivare wscript
( di solito ne sono presenti due a causa del loop)
Viene controllato sia la presenza di Outlook Express che un eventuale
pop up di Accesso remoto ( controlla di avere il Wav nel percorso
esatto)
'INIZIO
set WshShell = CreateObject("WScript.Shell")
if bWinPresent = WshShell.AppActivate("- Outlook Express")Then
WshShell.Run "C:\WINDOWS\MEDIA\TADA.WAV" 'non attiva
ElseIf bWinPresent = WshShell.AppActivate("Connessione di Accesso
remoto")Then
WScript.Sleep 5000
Else
WshShell.Run "C:\WINDOWS\MEDIA\TADA.WAV" 'non attiva
End if
WScript.Sleep 4000
WshShell.Run "c:\allarme.vbs"
WScript.Sleep 4000
'FINE
Ps :
ElseIf bWinPresent = WshShell.AppActivate("Connessione di Accesso
remoto")Then
Deve stare tutto in una riga
5000 sono 5 secondi ti consiglio di aumentare e controllare meno spesso
per esempio 6000000= 10 minuti ( da sostituire solo il  WScript.Sleep
5000)

 Internet tramite l'innesco automatico di un allarme sonoro.
Scusa...ma a che serve saperlo...? Cosa cambia...?
Walter

set WshShell = CreateObject("WScript.Shell")
Scusa ma questo, nonostante l'estensione .vbs che hai detto, non è
WSL? (windows scripting language | host)


Sei gentilissimo e bravo (non osavo sperare in uno script personalizzato).
Tuttavia c'è qualcosa che non va. Vedi se procedo bene. Lancio la
connessione Internet (è necessario anche OE? In ogni caso l'ho fatto con e
senza) e poi lancio il tuo allarme, il quale innesca subito il loop  e
prosegue agli intervalli stabiliti. Ho anche cambiato la stringa
"Connessione di Accesso remoto" in "Connessione remota", come Millennium la
chiama, ma le cose non cambiano. Dove sta l'errore? Vista la tua gentilezza,
approfitto per chiederti se è possibile modificare il file in modo che non
effettui il loop ma funzioni una volta sola ( ma mi va bene anche così)
Grazie ancora. Resto in attesa di tue nuove


 effettui il loop ma funzioni una volta sola ( ma mi va bene anche
così)
Axx Milennium........
Purtroppo deve essere esattamente quello che c'e scritto senza spazi
dovresti tovare un programma che ti catturi la caption del accesso anzi
fai cosi fai partire l'accesso remoto senza collegarti e control+alt
+canc
e copi esattamente quello che c'e scritto e lo sostituisci al mio  x
esempio
ElseIf bWinPresent = WshShell.AppActivate("Connessione remota")Then
Attenzione a Maiuscole minuscole, spazi, "virgolete" e parentesi
( insomma deve essere come sopra ma con la dicitura giusta fai un po'
di prove) quello sotto e un vbs semplificato senza loop e senza accesso
remoto che controlla 1 volta sola la presenza di un eventuale apertura
di outlook
( non controlla se sei in linea o no il vbs con l'accesso remoto e'
quello
piu' completo e ti consiglio di smanettare un po' con quello)
Comunque x togliere il loop basta eliminare
 WshShell.Run "c:\allarme.vbs"
'INIZIO
set WshShell = CreateObject("WScript.Shell")
if bWinPresent = WshShell.AppActivate("- Outlook Express")Then
WshShell.Run "C:\WINDOWS\MEDIA\TADA.WAV" 'non attiva
Else
WScript.Sleep 400
End if
'FINE
Puoi naturalmete sostituire ("- Outlook Express") con la caption esatta
di
Internet explorer
A me ( win 98se) funziona cosi non in linea
if bWinPresent = WshShell.AppActivate("- Microsoft Internet Explorer -
[Non in linea]")Then
Presumo che se almeno questo non e cambiato con WinMe basti togliere
- [Non in linea] per farlo funzionare on line anche qui vale quello che
risulta
con contr+alt+canc