wie bekomme ich meine IP (Lan)

[IcedCoffee]

MOin

weiss einer wie ich meine Lan IP ermitteln kann?
also nicht meine Internet IP sondern die der netzwerkkarte!

[AND51]

gib in der eingabeaufforderung mal

Code: Alles auswählen

ipconfig

ein.
Oder wenn dus ausführlicher haben willst:

Code: Alles auswählen

ipconfig /all

Einfacher ist es aber wenn du (hast du Windows XP??) bei deiner LAN Verbindung im Eigenschaftsdialog anklickst "Bei Verbindung Symbol in Systray anzeigen". Dann brauchst du nur da mit rchts draufklicken, und dann auf "Status"

[ts-soft]

Folgendermassen:

Code: Alles auswählen

InitNetwork()
ExamineIPAddresses() 
Repeat
  a = NextIPAddress()
  If a
    Debug IPString(a) 
  EndIf 
Until a = 0

[Lukaso]

Code: Alles auswählen

Enumeration
  #Window_0
EndEnumeration

Enumeration
  #Text_0 = 100
EndEnumeration

#MAX_IP = 10

Structure IPINFO
  dwAddr.l
  dwIndex.l
  dwBCastAddr.l
  dwReasmSize.l
  unused1.l
  unused2.l
EndStructure

Structure MIB_IPADDRTABLE
  dwEntries.l
  mIPInfo.IPINFO[ #MAX_IP ]
EndStructure

Ret.l
GetIpAddrTable_( #Null, @Ret, #True )
GetIpAddrTable_( @test.MIB_IPADDRTABLE , @Ret, #True )

Global test\dwEntries

Procedure Open_Window_0()
  If OpenWindow(#Window_0, 393, 313, 160, 26 + (test\dwEntries * 25),  #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar , "GetIPs v0.1")
    If CreateGadgetList(WindowID())
      
      For i=1 To test\dwEntries
        IPAddressGadget(i, 5, ((i-1) * 25) + 5, 150, 20)
      Next
      
      TextGadget(#Text_0, 5, WindowHeight()-16, 145, 15, "Copyright © 2005 by Lukaso")
    EndIf
  EndIf
EndProcedure

Open_Window_0()

For i=1 To test\dwEntries
  SetGadgetState(i, test\mIPInfo[i-1]\dwAddr)
Next

Repeat 
  EventID.l = WaitWindowEvent()
  If EventID = #PB_Event_CloseWindow
    Quit = 1
  EndIf
Until Quit = 1

MFG Lukas

[IcedCoffee]

THX@ALL

@ts-soft:
mit deinem code bekomme ich alle Lan ips ich will aber nur meine
@AND51:
naja ich will selber proggen und nicht DOS fragen [sowas ist nämlich kein proggen mehr]
@Lukaso:
THX sowas habe ich gesucht geht auch alles supper mit dem code THX

[ts-soft]

THX@ALL

@ts-soft:
mit deinem code bekomme ich alle Lan ips ich will aber nur meine

Verstehe ich nicht, Du bekommt doch nur Deine, für alle Deine Netzwerkadapter. Bei Lukaso seiner Version erhälste zusätzlich noch 127.0.0.1, wenn Du den brauchst, kannste gleich als Stringkonstante speichern

[IcedCoffee]

@ts-soft:
Oh sry ich habe mich in der hilfe datei wohl verlessen
ich dachte ich bekomme damit immer alle in lan verfügbaren IPs