title image


Smiley Re: IP Adresse auslesen
Mit dem IP-String kannst Du machen was Du willst - kürzen, färben u.v.a.

Der verarmte Landadel würde sagen: Ist's im Winter kalt, zieh' Winsocken an :)







      

Private Type WSAData

   wVersion As Integer

   wHighVersion As Integer

   szDescription(0 To 256)

   szSystemStatus(0 To 128)

   wMaxSockets As Integer

   dwVendorInfo As Long

End Type



Private Declare Function WSAStartup Lib "WSOCK32.DLL" _

   (ByVal wVersionRequired As Long, lpWSAData As WSAData) As Long



Private Declare Function WSACleanup Lib "WSOCK32.DLL" () As Long



Private Declare Function gethostname Lib "WSOCK32.DLL" _

   (ByVal szHost As String, ByVal dwHostLen As Long) As Long



Private Declare Function gethostbyname Lib "WSOCK32.DLL" _

   (ByVal szHost As String) As Long



'Achtung: Abgewandelte API-Funktion !!!

Private Declare Sub CopyMemoryIP Lib "kernel32" Alias _

   "RtlMoveMemory" (hpvDest As Any, ByVal hpvSource As Long, _

   ByVal cbCopy As Long)



Private Function GetIPAddress() As String

    Dim wsa As WSAData

    Dim rVal As Long

    Dim sHost As String * 256

    Dim lp As Long

    Dim lpa As Long

    Dim IpAdr(0 To 3) As Byte



    rVal = WSAStartup((2 + &H100), wsa)

    

    If rVal = 0 Then

       gethostname sHost, 256

       lp = gethostbyname(sHost)

       If lp Then

           CopyMemoryIP lpa, lp + 16, 4

           CopyMemoryIP IpAdr(0), lpa, 4

           GetIPAddress = CStr(IpAdr(0)) + "." + _

                  CStr(IpAdr(1)) + "." + _

                  CStr(IpAdr(2)) + "." + _

                  CStr(IpAdr(3))

        End If

        WSACleanup

    End If

End Function



Private Sub Form_Load()

  Label1.Caption = GetIPAddress

End Sub

 



Code eingefügt mit Syntaxhighlighter 3.0






geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: