PureBoard

Verfasst: **14.10.2005 19:02**

MOin

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

Verfasst: **14.10.2005 19:07**

gib in der eingabeaufforderung mal

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"

Verfasst: **14.10.2005 19:08**

Folgendermassen:

Code: Alles auswählen

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

Verfasst: **14.10.2005 19:09**

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

Verfasst: **15.10.2005 09:25**

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

Verfasst: **15.10.2005 22:04**

IcedCoffee hat geschrieben: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

Verfasst: **16.10.2005 10:33**

@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

PureBoard

wie bekomme ich meine IP (Lan)

wie bekomme ich meine IP (Lan)