MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Verificar conexão com a rede

    Compartilhe
    avatar
    Mriegel
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 190
    Registrado : 22/01/2011

    Verificar conexão com a rede

    Mensagem  Mriegel em Sex 18 Fev 2011, 21:19

    Boa tarde

    Gostaria de saber como posso fazer, para saber se meu computador está conectado a uma rede.
    Utilizo o access 2010.
    Desde já agradeço.

    Abraço

    Marcelo
    avatar
    vieirasoft
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7136
    Registrado : 11/05/2010

    Re: [Resolvido]Verificar conexão com a rede

    Mensagem  vieirasoft em Sex 18 Fev 2011, 21:50

    Amigão

    Vou transferir o tópico para o local correcto.
    avatar
    vieirasoft
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7136
    Registrado : 11/05/2010

    Re: [Resolvido]Verificar conexão com a rede

    Mensagem  vieirasoft em Sex 18 Fev 2011, 21:54

    Tem vários exemplos aqui no fórum. Eu uso assim:

    Abrir um módulo em VBA


    'Declares for direct ping
    Private Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" (ByVal lpszAgent As String, ByVal dwAccessType As Long, ByVal lpszProxyName As String, ByVal lpszProxyBypass As String, ByVal dwFlags As Long) As Long
    Private Declare Function InternetOpenUrl Lib "wininet.dll" Alias "InternetOpenUrlA" (ByVal hInet As Long, ByVal lpszUrl As String, ByVal lpszHeaders As String, ByVal dwHeadersLength As Long, ByVal dwFlags As Long, ByVal dwContext As Long) As Long
    Private Declare Function InternetCloseHandle Lib "wininet.dll" (ByVal hInet As Long) As Long

    Private Const INTERNET_OPEN_TYPE_PRECONFIG = 0
    Private Const INTERNET_FLAG_RELOAD = &H80000000
    Private Const INTERNET_FLAG_KEEP_CONNECTION = &H400000
    Private Const INTERNET_FLAG_NO_CACHE_WRITE = &H4000000

    Dim X As Boolean
    Dim hInet As Long
    Dim hUrl As Long
    Dim flags As Long
    Dim URL As Variant


    Public Function CheckConnection()



    hInet = InternetOpen(" ", INTERNET_OPEN_TYPE_PRECONFIG, vbNullString, vbNullString, 0&)
    If hInet Then
    flags = INTERNET_FLAG_KEEP_CONNECTION Or INTERNET_FLAG_NO_CACHE_WRITE Or INTERNET_FLAG_RELOAD
    hUrl = InternetOpenUrl(hInet, "http://www.yahoo.com", vbNullString, 0, flags, 0)
    If hUrl Then
    MsgBox "O seu computador está conectado à Internet", vbInformation, "Verificando Conexão"


    Call InternetCloseHandle(hUrl)

    Else
    MsgBox "O seu computador não está conectado à Internet" & vbCr & "Deve conectar-se à internet para continuar.", vbInformation, "Verificando conexão"
    X = False
    End If
    End If
    Call InternetCloseHandle(hInet)
    End Function


    E depois chamara função, por exemplo num botão de comando

    Call CheckConnection
    avatar
    Mriegel
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 190
    Registrado : 22/01/2011

    Re: [Resolvido]Verificar conexão com a rede

    Mensagem  Mriegel em Sex 18 Fev 2011, 22:02

    Obrigado.
    E como posso saber se meu micro está conectado a minha rede interna de computadores?
    Abraço
    Marcelo
    avatar
    vieirasoft
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7136
    Registrado : 11/05/2010

    Re: [Resolvido]Verificar conexão com a rede

    Mensagem  vieirasoft em Sex 18 Fev 2011, 22:17

    Veja se serve. Está em 2003/xp

    [Você precisa estar registrado e conectado para ver este link.]
    avatar
    Mriegel
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 190
    Registrado : 22/01/2011

    Re: [Resolvido]Verificar conexão com a rede

    Mensagem  Mriegel em Sex 18 Fev 2011, 23:22

    Obrigado.
    avatar
    vieirasoft
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7136
    Registrado : 11/05/2010

    Re: [Resolvido]Verificar conexão com a rede

    Mensagem  vieirasoft em Sex 18 Fev 2011, 23:24

    Obrigado pelo retorno. Bom trabalho
    avatar
    Krauss
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 173
    Registrado : 23/12/2011

    Re: [Resolvido]Verificar conexão com a rede

    Mensagem  Krauss em Sex 12 Maio 2017, 05:11

    Bom dia!

    Tentei abrir o arquivo, mas não encontra.

    Tem como mandar de outra forma o exemplo?


    .................................................................................
    Trabalho com Access 2013

    "A dúvida é o princípio da sabedoria"
    avatar
    vieirasoft
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7136
    Registrado : 11/05/2010

    Re: [Resolvido]Verificar conexão com a rede

    Mensagem  vieirasoft em Sab 13 Maio 2017, 21:17

    aqui vai. cumps.
    Anexos
    usuariosconectados.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (138 Kb) Baixado 11 vez(es)
    avatar
    Krauss
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 173
    Registrado : 23/12/2011

    Re: [Resolvido]Verificar conexão com a rede

    Mensagem  Krauss em Sab 13 Maio 2017, 22:09

    Opa, tudo bem Vieira?

    Deu erro porque meu sistema é 64bits.. Sad


    .................................................................................
    Trabalho com Access 2013

    "A dúvida é o princípio da sabedoria"

      Data/hora atual: Ter 19 Set 2017, 12:48