Funktion: IsNetworkConnected ??

[Piro]

Delphi-Quellcode:

function IsNetworkConnected: Boolean;
begin
  Result := (GetSystemMetrics(SM_NETWORK) and $01) = $01;
end;

Dies Funktion liefert dauernd True bei mir. Obwohl ich kein Netzwerkkabel dran haben. Die Netzwerkkarte ist deaktiviert und ich bin auch nicht im Internet.

Warum kommt denn dann immer True?

Sven

[SubData]

SM_NETWORK

Edit: 3. Result

[Luckie]

Guck mal im Forum. Wie man feststelt, ob man online ist, hatten wir hier schon ein paar mal.

[justify]

Morgen,

SubData: Genau das hatte ich eingebunden, aber er zeigt immer an, daß man mit dem Netzwerk verbunden ist, selbst wenn ich den Stecker gezogen habe. Da bringt die Funktion von Daniel B also nichts, da ich exakt die gleiche verwende.

Luckie: Es geht erstmal darum, daß man herausfindet, ob man mit dem Netzwerk verbunden ist, nicht mit dem Internet.

Naja, ich werd' dann mal weitersuchen!

Falls jemand noch meint eine Hilfestellung geben zu können, dann bitte!

[Luckie]

Ping doch den Server an. Oder schick ein Broadcast ins Netz, wenn da snicht klappt, dann bist du wohl nicht mit dem Netzwerk verbunden.

[justify]

Hi Luckie!

Und wie soll das Programm wissen, wie die IP-Adresse lautet? Es wird ja in unterschiedlichen Unternehmen angewendet, die immer - logischerweise - 'ne andere IP haben.

Nun muß das OS ermittelt werden, um die entsprechende Funktion dafür dann aufzurufen.

Dabei könnte ich auch mal wieder Eure Hilfe gebrauchen!

[justify]

Hallo nochmal,

ich bräuchte nun mal eine Netzwerkstatus-Überprüfung, die Windows 95, 98, NT und ME durchguckt.

Je nach OS wird dann entweder diese Funktion, oder die, die XP unterstützt, aufgerufen.

Allerdings funktioniert's unter XP Home Edition auch nicht!

Naja, postet mal über's WE, ich schau zuhause mal rein und teste mal bißchen rum.

Schon mal danke für Eure Hilfe!

[justify]

Naja, was soll's, Ihr wisst ja sowieso nicht, was wir mit dem Script vorhaben, von daher stelle ich es als Anhang rein.

Vielleicht kann der ein oder andere mal schauen - wenn er lustig ist - und bißchen coden.

Eventuell klappt's ja bei Euch!

[Luckie]

Bitte schieb im Zukunft deine Beiträge erst nach 24 Stunden. Bis dahin kannst du deine Posting noch änderen. Danke.

[justify]

*zur Erinnerung nochmal nach oben schiebt*