Preciso saber se o usuário está acessando a internet no servidor da rede ou em micro da rede local, tem como?
Pelo que eu sei, sempre o servidor estará conectado na internet diretamente, correto? E eu estou utilizando uma função que só irá ser utilizada quando eu não estiver conectado na internet diretamente, ou seja, em um micro de uma rede local.
No caso pode ser qualquer tipo de conexão, discado, modem, cabo... O importante é saber se estou tendo acesso a internet diretamente ou um micro(servidor no caso) está compartilhando o acesso.

[]'s,
Marcelo Tamanini

Alguém?

Vixe, isso é quase impossível de se determinar.

Talvez usando um Trace vc consiga, e só talvez...

Bem eu uso um Gatway para me conectar à internet não fiz o teste em uma conexão direta mas isso já deve ajudar(comigo funcionou):

' Em um módulo

Public Declare Function InetIsOffline Lib "url.dll" (ByVal dwFlags As Long) As Long
' Fiz no form load mesmo só para fim de testes... dpz vc joga num módulo e dá uma

' Melhorada nela se resolver o problema...

Private Sub Form_Load()
Dim CnxConectado As Long
   CnxConectado = InetIsOffline(0)
   If CnxConectado = 0 Then
      MsgBox "conectado"
   Else
      MsgBox "Não conectado"
   End If
End Sub

 

Bem é isso aí tenta se não der certo me avisa... Abraços, sidnei

Não deu certo, o jeito é criar um checkbox e o usuário seleciona caso a conexão é direta ou deixa em branco se não for direta.

[]'s,
Marcelo Tamanini