Rechner IP Adresse auslesen, wo?

[gerdra]

Hallo,
an welcher Adresse kann man mit einem selbstgeschriebenen PB-Programm die IP Adresse eines Rechners auslesen und wo und wie? Weiß das jemand?

[edel]

Code: Alles auswählen

InitNetwork() 

ExamineIPAddresses() 
ip = NextIPAddress()

While ip 
  ip = NextIPAddress()
  Debug IPString(ip)
Wend 

[coder]

Guck mal in die PB-Hilfe unter Network, da bigt es den Befehl ExamineIPAddresses().

Wenn man sich mit einer Sache beschäftig lernt man sie schneller

[gerdra]

Hallo edel und coler,
ich danke euch für die Superantwort. Ja, habt recht, aber ich habe mit dem Bereich Network noch nichts gemacht, werde mich da mal einarbeiten.
Danke auch für den Beispielcode.

[gerdra]

Nur noch eine andere Frage zu diesem Thema:

Wenn ich mehrere IP Adressen auslese, welche ist denn dann die "richtige" IP Adresse. Ich möchte mein Programm gegen Weitergabe durch Kopieren schützen und will damit unterbinden, dass das Programm auf anderen Rechnern läuft, also nur auf einem einzigen authorisierten Rechner.

[ts-soft]

>> und will damit unterbinden, dass das Programm auf anderen Rechnern läuft, also nur auf einem einzigen authorisierten Rechner.
Dafür ist die IP aber denkbar ungeeignet. Entweder die Mac-Adresse des
Adapters oder vielleicht die Seriennummer des Systemlaufwerks

Gruß
Thomas

[PureBasic4.0]

oder vielleicht einfach nur eine Kennwortabfrage einbauen...

[gerdra]

Hi Ts-Soft,
also gut, muß ich akzeptieren, weil ich damit noch keine Erfahrung habe. Klar, die IP ist nicht unbedingt immer eineindeutig.
Wie lese ich denn mit PB die Seriennummer des Festplattenlaufwerkes
aus?

[gerdra]

Hm PureBasic 4.0,
tja Kennwortabfrage, dann gibt der authorisierte Nutzer das ganze an andere Nutzer weiter incl. Kennwort, und letzterer wieder und....
Denke, da ist die Ermittlung der Seriennummer besser!?

[ts-soft]

Code: Alles auswählen

EnableExplicit

Procedure.s GetDriveSerial(Drive.s)
  Protected lpVolumeNameBuffer.s, lpVolumeSerialNumber.l
  If Len(Drive) = 1 : Drive + ":\" : EndIf
  If Right(Drive, 1) <> "\" : Drive + "\" : EndIf
  lpVolumeNameBuffer.s = Space(#MAX_PATH +1)
  GetVolumeInformation_(@Drive, @lpVolumeNameBuffer, #MAX_PATH +1, @lpVolumeSerialNumber, 0,0,0,0)
  ProcedureReturn Hex(PeekW(@lpVolumeSerialNumber + 2) & $FFFF) + "-" + Hex(PeekW(@lpVolumeSerialNumber) & $FFFF)
EndProcedure

Debug GetDriveSerial("C:")

Gruß
Thomas

// Nachtrag: Das Laufwerk des Programmes wäre wohl besser, weil
C: muß nicht existieren:

Code: Alles auswählen

Debug GetDriveSerial(Left(ProgramFilename(),2))