Är nog trög, får inte till en automatisk uppkoppling av en fjärranslutning..

Private Sub MDIForm_Load()
If ViaModem() = False Then
Shell "rasdial.exe" & " gsm", vbNormalFocus
DoEvents
End If
--

Public Function ViaModem() As Boolean

Dim SFlags As Long
'return the flags associated with the connection
Call InternetGetConnectedState(SFlags, 0&)

'True if the Sflags has a modem connection
ViaModem = SFlags And INTERNET_CONNECTION_MODEM

End Function


Det jag vill är, om jag ej är ansluten så ska anslutning ske automatiskt och återuppkoppling om jag tappar anslutningen...

/Forsman