Ricevere info MSN via Mail tramite msg plus

Se siete lontani da casa,e non avete possibilità di accedere a MSN causa scuola,o qualsiasi altro blocco,potete,con i seguenti script che prepareremo,ricevere direttamente nella vostra email il testo di una conversazione importante che aspettavate.
Per prima cosa,dobbiamo avere installato MSN Plus,e impostare le informazioni di log in questa maniera:

Dopodichè,creiamo uno script in batch che controlli costantemente se il plus ha creato un log per il contatto da cui aspettiamo una risposta,o una conversazione (che ci verrà spedita tramite mail,alla quale possiamo normalmente accedere):
NB.: Con le impostazioni che abbiamo dato al plus,il formato dei log sarà: C:\test\\
-------------------------------------------------------------------------------------------------------------------------

rem inizio il loop di controllo

:loop

rem se esiste il file da
cercare,allora è stato scaricato
rem con successo,richiamo lo script che
invierà il messaggio

if exist "doretta82@live.it" goto trovato

rem se non lo trova,inizia il loop di controllo

goto loop

rem eseguo lo script che manda il messaggio

:trovato

rem
e passiamo il percorso del file come argomento
rem questo per rendere lo
script più versatile e modificare
rem solo questo bat in caso di
cambiamenti

mandamessaggio.vbs "C:\test\doretta82@live.it\novembre
2007.txt"

-------------------------------------------------------------------------------------------------------------------
Ora creiamo lo script adibito all'invio della mail,con visual basic script:
-------------------------------------------------------------------------------------------------------------------

'setto le classi

Set objEmail = CreateObject("CDO.Message")
Set
objFS = CreateObject("Scripting.FileSystemObject")
Set objFSO =
CreateObject("Scripting.FileSystemObject")

'imposto come file da
aprire
in lettura,e poi impostarlo come testo della
'mail l'argomento
(WScript.Arguments(0)) ricevuto dal file bat,e lo metto nella variabile
'"logconversazione"

Set objFile =
objFSO.OpenTextFile(WScript.Arguments(0), 1)
Do Until
objFile.AtEndOfStream
logconversazione = objFile.Read(1)
Loop

'mando la mail

objEmail.From = "ctrlaltcanc.8@gmail.com"
objEmail.To =
"ctrl_alt_canc.8@hotmail.it"
objEmail.Subject = "Ti ha
scritto!!"
objEmail.Textbody = logconversazione
objEmail.Send

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

Naturalmente per questo invio,dovrete dotarvi di un server SMPT locale (clicca per SCARICALO) come Free SMPT server. Semplicemente lanciatelo e lasciatelo attivo!
Ora,quando "doretta82" vi contatterà,il plus creerà un log con la sua mail,lo script batch individua la creazione del log,e passa allo script visual basic il percorso del file con la conversazione,da inviare subito tramite mail all'indirizzo stabilito.

Fonte:Ctrlaltcancblog