GALERA ALGUEM SABE COMO CONSEGUIR O GATEWAY PADRÃO

 Tópico anterior Próximo tópico Novo tópico

GALERA ALGUEM SABE COMO CONSEGUIR O GATEWAY PADRÃO

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#482911 - 11/07/2018 12:12:12

FABRICIOWEB
BELO HORIZONTE
Cadast. em:Novembro/2011


Galera alguem sabe como conseguir o gateway padrão da rede conectada



#482913 - 11/07/2018 12:21:17

KERPLUNK
RIO GRANDE DO SUL
Cadast. em:Junho/2009


Membro da equipe
https://stackoverflow.com/questions/13634868/get-the-default-gateway

_______________________________________________________________________
Gostaria de ter seu sistema Desktop "traduzido" para uma interface web? Podemos conversar...
Virei Oráculo!
The end is nigh, be ready for the nukes!


#482916 - 11/07/2018 13:24:57

FABRICIOWEB
BELO HORIZONTE
Cadast. em:Novembro/2011


Citação:
:
https://stackoverflow.com/questions/13634868/get-the-default-gateway


o link que me enviou é no c# infelizmente precisei em vb6
fiz da seguinte forma


Primeiro ja crio o arquivo ipconfig.txt em c:


função

Function GetGateways(ByVal FileName As String, Optional ByVal ConnectionIndex As Long = 0) As Variant
    On Error Resume Next
    Dim i As Long, FB As Integer, FileData As String, v As Variant, LineData As String
    If Len(FileName) = 0 Then Exit Function
    FB = FreeFile
    If Dir(FileName) = "" Then Exit Function
    Open FileName For Binary As #FB
        FileData = Space$(LOF(FB))
        Get #FB, 1, FileData
    Close #FB
    If Len(FileData) = 0 Then Exit Function
    FileData = Replace$(FileData, vbCr, "")
    v = Split(FileData, vbLf)
    i = ConnectionIndex
    If i > UBound(v) Then '
        i = UBound(v)
    End If
    FileData = Trim$(CStr(v(i))) '
    i = InStrRev(FileData, ":")
    If i > 0 Then
        LineData = Mid$(FileData, i + 1)
        LineData = Trim$(LineData)
        v = Split(LineData, ".")
    Else
        MsgBox "Você não parece estar conectado a uma rede", vbExclamation ' Can't find anything
    End If
    GetGateways = v
End Function




comando


Dim str As String
    str = "cmd.exe /c ipconfig|find "
    str = str & Chr(34) & "Gateway"
    str = str & Chr(34) & " > c:\ipconfig.txt"
    Shell str, vbHide
    v = GetGateways("c:\ipconfig.txt")
    msgbox v(0) & "." & v(1) & "." & v(2) & "." & v(3)








#482917 - 11/07/2018 13:27:05

LOVO12
BRASIL
Cadast. em:Maio/2012


Última edição em 11/07/2018 13:29:01 por LOVO12

Citação:
:
:
https://stackoverflow.com/questions/13634868/get-the-default-gateway

o link que me enviou é no c# infelizmente precisei em vb6
fiz da seguinte forma


Primeiro ja crio o arquivo ipconfig.txt em c:


função

Function GetGateways(ByVal FileName As String, Optional ByVal ConnectionIndex As Long = 0) As Variant
    On Error Resume Next
    Dim i As Long, FB As Integer, FileData As String, v As Variant, LineData As String
    If Len(FileName) = 0 Then Exit Function
    FB = FreeFile
    If Dir(FileName) = "" Then Exit Function
    Open FileName For Binary As #FB
        FileData = Space$(LOF(FB))
        Get #FB, 1, FileData
    Close #FB
    If Len(FileData) = 0 Then Exit Function
    FileData = Replace$(FileData, vbCr, "")
    v = Split(FileData, vbLf)
    i = ConnectionIndex
    If i > UBound(v) Then '
        i = UBound(v)
    End If
    FileData = Trim$(CStr(v(i))) '
    i = InStrRev(FileData, ":")
    If i > 0 Then
        LineData = Mid$(FileData, i + 1)
        LineData = Trim$(LineData)
        v = Split(LineData, ".")
    Else
        MsgBox "Você não parece estar conectado a uma rede", vbExclamation ' Can't find anything
    End If
    GetGateways = v
End Function




comando


Dim str As String
    str = "cmd.exe /c ipconfig|find "
    str = str & Chr(34) & "Gateway"
    str = str & Chr(34) & " > c:ipconfig.txt"
    Shell str, vbHide
    v = GetGateways("c:ipconfig.txt")
    msgbox v(0) & "." & v(1) & "." & v(2) & "." & v(3)





da uma olhada nesse link deve lhe ajuda.



--------------------------------------------------------------------------------------------------
Antes do software poder ser reutilizável ele primeiro tem de ser utilizável.


#482918 - 11/07/2018 13:29:28

FABRICIOWEB
BELO HORIZONTE
Cadast. em:Novembro/2011


ja resolvi ae em cima como postado



 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por FABRICIOWEB em 11/07/2018 13:30:53