Pour éviter de taper son login et mot de passe pour se connecter à FON, il est possible d’automatiser la procédure grâce à des scripts.

Windows : visual basic script

- script FON-login.vbs


' ---------------------------------------------------------
' Connexion automatique à FON
'
' AUTHOR : Thus0 <thus0@free.fr>
' DATE   : 2006/07/12
' ---------------------------------------------------------

' ---------------------------------------------------------
' Paramètres FON
' ---------------------------------------------------------

fon_email = "adresse@email.com"
fon_password = "foobar"


' ---------------------------------------------------------
Dim shell, oIE, ouid
Set shell = WScript.CreateObject("WScript.Shell")
Set oIE = WScript.CreateObject("InternetExplorer.Application", "IE_")
oIE.navigate "http://192.168.182.1:3990/prelogin"
oIE.Visible = 1
Do While (oIE.Busy)
WScript.Sleep 200
Loop
Set ouid = oIE.Document.All.Item("email")
if not ouid is Nothing Then
oIE.Document.All.Item("email").Value = fon_email
oIE.Document.All.Item("password").Value = fon_password
oIE.Document.All.Item("paco_login_form").submit
end if

- script FON-logout.vbs


' ---------------------------------------------------------
' Déconnexion automatique de FON
'
' Rq : on peut également créer un bookmark/favoris de
' l'URL : http://192.168.182.1:3990/logoff
'
' AUTHOR : Thus0 <thus0@free.fr>
' DATE   : 2005/03/03
' ---------------------------------------------------------

Dim shell, oIE
Set shell = WScript.CreateObject("WScript.Shell")
Set oIE = WScript.CreateObject("InternetExplorer.Application", "IE_")
oIE.navigate "http://192.168.182.1:3990/logoff"
oIE.Visible = 1
Do While (oIE.Busy)
WScript.Sleep 200
Loop

Anciennes versions

- 1ère version de FON-login.vbs


' ---------------------------------------------------------
' Connexion automatique à FON
'
' AUTHOR : Thus0 <thus0@free.fr>
' DATE   : 2005/03/03
' ---------------------------------------------------------

' ---------------------------------------------------------
' Paramètres FON
' ---------------------------------------------------------

fon_email = "adresse@email.com"
fon_password = "foobar"


' ---------------------------------------------------------
Dim shell, oIE, ouid
Set shell = WScript.CreateObject("WScript.Shell")
Set oIE = WScript.CreateObject("InternetExplorer.Application", "IE_")
oIE.navigate "http://192.168.182.1:3990/prelogin"
oIE.Visible = 1
Do While (oIE.Busy)
WScript.Sleep 200
Loop
Set ouid = oIE.Document.All.Item("uid")
if not ouid is Nothing Then
 oIE.Document.All.Item("uid").Value = fon_email
 oIE.Document.All.Item("pwd").Value = fon_password
 oIE.Document.All.Item("fon_login").submit
end if