Checks to see if there is an internet connection, and if not launches the default dialup-connection on the users machine. Use like this...
launchDialup()
on launchDialup me
if the environment.internetconnected <> #online then
connection = baReadRegString( "RemoteAccess", "Default", "", "hkey_current_user" )
if connection <> "" then
baRunProgram( "rundll rnaui.dll,RnaDial" && Connection, "normal", false )
else
alert ("No dialup connection is configured on this machine.")
end if
end if
end
on getBehaviorDescription me
describe = "Checks to see if there is an internet connection, and if not launches the default dialup-connection on the users machine. Use like this..." & return & "launchDialup()"
return describe
end
Contact
MMI
36 South Court Sq
Suite 300
Newnan, GA 30263
USA