Hardware e software > Programmazione e scripting

Pirelli voice netgate2 reconnect (script Autoit)

(1/1)

Mr.X:
                                                              

INTRODUZIONE
Il Pirelli voice netgate2 reconnect è un piccolo script autoit da me compilato che serve a disconnettere e successivamente riconnettere il modem che Tiscali ci ha dato in dotazione; in particolare fa sì che il server DHCP ci rinnovi l'indirizzo ip pubblico.
Questo è molto utile quando ci sono problemi con il servizio Voce (linea telefonica VoIp) che delle volte ha creato problemi agli utenti (anche a me): linea occupata da chi ci chiama da fuori (anche se ovviamente è libera) e altri piccoli problemi di audio.
Non è consigliato, a mio parere, lo spegnimento e la riaccensione di questo modem che sta normalmente acceso 24 ore su 24.
Secondariamente rinnovando l'indirizzo ip pubblico possiamo bypassare il time limit dei server di hosting quando scarichiamo più di un file in sequenza e non disponiamo di un account premium; in questo caso però cerchiamo di avere un po' di buon senso e non sovraccarichiamo i server...i gestori prenderebbero delle contromisure necessarie.

SCRIPT AUTOIT
Perchè questo script? vi chiederete...
La motivazione: per stimolarvi e incuriosirvi un po' in questo linguaggio di script molto efficiente che a conti fatti ci risulta utile in tutto, e non solo per rendere automatizzate le finestre degli installer dei vari software che non "digeriscono" gli switch.
Da notare che ho preferito usare il curl.exe per interagire con il modem.
Nel ciclo while wend si attende la riconnessione del modem facendo ping a Google; appena Google ci risponde significa che il modem è riconnesso, subito dopo lo script chiede l'indirizzo ip pubblico, ce lo notifica e lo mette nella clipboard; se ci servisse salvare l'indirizzo basterà aprire il blocco note e incollare.

Eccovi lo script:

--- Codice: ---TrayTip("Check connessione by MISTER X ®", "Sto verificando lo stato della connessione", 5, 1)
#include <Process.au3>
#include <Inet.au3>
#include <GUIConstantsEx.au3>
Dim  $molt=0
HotKeySet("{ESC}",  "HotExit")
Func HotExit()
Exit
EndFunc   ;==>HotExit
$conn = "Connesso"
$ncon = "Disconnesso"
$var=0
GUICreate ("Stato della connessione Internet", 300, 164)
GUICtrlCreatePic(@ScriptDir &"\pirelli_voce.gif", 0, 0, 300, 164)
GUICtrlCreateLabel("Stato:",10,10)
GUICtrlCreateLabel ("Il tuo IP è:", 10, 55)
GUISetState ()
_RunDOS('curl "http://user:user@192.168.1.1/cgi-bin/login.exe" -d "user=user&pws=user"' )
Sleep(500)
_RunDOS('curl "http://192.168.1.1/cgi-bin/nat_eb.exe" -d "Nat_enable=1&savesetting=SAVE+SETTINGS"')
Sleep(500)
_RunDOS('curl "http://192.168.1.1/cgi-bin/logout.exe"')
Sleep(4000)
While 1
$barra = GUICtrlCreateProgress(10, 143, 280, 20)
For $molt=1 to 100
$molt=1+$molt
Sleep(500)
GUICtrlSetData($barra,$molt*1)
$var = Ping("google.com")
If Not $var Then
GUICtrlCreateInput ($ncon, 10, 30,85,20)
Else
GUICtrlCreateInput ($conn, 10, 30,85,20)
Sleep(500)
$ip = _GetIP ()
ClipPut ($ip)
GUICtrlCreateInput ($ip, 10, 75,85,20)
Sleep(2000)
Exit
EndIf
Next
WEnd
--- Termina codice ---

Per chi fosse in possesso di tale modem e lo volesse testare il download è il seguente:

DOWNLOAD
Pirelli voice netgate2 reconnect Aggiornato (13 Novembre 2011)Hash MD5 F46DAACDE772C8DC18758000D2A164B4
Filesize: 1,16 Mb (1.225.527 byte)Nel file compresso c'è il curl, l'immagine gif, lo script au3, il compilato exe e per chi vuole la pappa pronta il setup dell'installer di questo programmino.

P.S.:  cliccate sui banner del forum per favore... una volta al giorno, a voi non costa nulla ma al Boss farà piacere   ;)

Navigazione

[0] Indice dei post

Vai alla versione completa