DSL-Verbindungsmonitor!

[Spasskeks]

Also wegen der IPs hab ich hier ne Function für Dich, die dir alle IPs, die der PC "besitzt" anzeigt... Die einzelnen IPs werden mit einem ";" getrennt. Bei "uses" noch "winsock" eifügen, denn sollte des laufen....

Delphi-Quellcode:

Function GetLocalIPs: String;
type PPInAddr= ^PInAddr;
var
wsaData: TWSAData;
HostInfo: PHostEnt;
HostName: Array[0..255] of Char;
Addr: PPInAddr;
begin
Result:='';
if WSAStartup($0102, wsaData)<>0 then exit;
try
if gethostname(HostName, SizeOf(HostName)) <> 0 then exit;
HostInfo:= gethostbyname(HostName);
if HostInfo=nil then Exit;
Addr:=Pointer(HostInfo^.h_addr_list);
if (Addr=nil) or (Addr^=nil) then exit;
Result:=StrPas(inet_ntoa(Addr^^));
inc(Addr);
while Addr^<>nil do begin
Result:=Result+';'+StrPas(inet_ntoa(Addr^^));
inc(Addr);
end;
finally
WSACleanup;
end;
end;

[richard_boderich]

so leutz,

version 0.1 von meinem dsl-verbindungsmonitor ist fertig (prog ist im anhang, nur exe)
habe prog bei mir erfolgreich getestet, uebernehme jedoch keinerleih haftung für eventuell auftretende schaeden -> nutung auf eigene gefahr!

//Edit Prog soll internetverbindung staendig online halten! wenn ihr trennen wollt, prog einfach beenden, und dann verbindung trennen
//edit bei druck auf trennen, baut prog sofort wieder internetverbindung auf (sorry ist halt noch alpha)

Einschraenkungen:

1.einwahl funzt nur über die standard dfü-verbindung, kein routersupport (vielleicht spaeter)
2.einwahl nutz den ie-dailer ->ie eigenschaften ->verbindungen
3.ip anzeige fehlerhaft (wird gerade gefixt) :)
4.nutzername+passwort muessen in dfü-verbindung gespeichert sein ->wichtig für einwahl ohne benuterabfrage

Verbesserungsvorschlaege, to do list

1.einwahl direkt über Ras-dfü , und nich über ie-dailer
2.anzeige der ip, des eigenen dns hostnamen's, Ntp zeitanzeige
3.dfü verbindung auswaehlbar (bei mehreren vorhandenen)
4.anwahltimer

ich versichere, das das prog nur das tut was es soll, naehlich eine internetverbindung aufbauen, sonst nichts
es enthaelt weder schadensroutinen noch trojaner oder andere malware! (nur zu meiner rechtlichen absicherung)

wuerde mich ueber anregungen,hinweise und bugreports von euch sehr freuen!

bis denne

Richard

[richard_boderich]

wirklich so wenig interesse ? :(

*PUSH*

[richard_boderich]

ok leutz hab probleme

hab jetz die sntp zeitanzeige integriert.
funtz auch supi, aber wenn die internetverbindung stark belastet
wird (z.b. durch sharingprogs) lastet die indy anzeige den rechner zu
100 prozent aus, will sagen anwendung reagiert nich solange bis die
abfrage beendet ist. hatt da jemand nen vorschlag?

[jim_raynor]

Zitat:

Zitat von richard_boderich

wirklich so wenig interesse ? :(

*PUSH*

Vielleicht benutzen so viele Leute einen Router und müssen sich nicht einwählen ... so wie ich z.B. :???:

[Orbmu2k]

Selbst wenn nicht sind diese Funktionen alle schon in meinem Windows (Ich hab XP) drin.

[Flax]

Welche Indy-Komponente benutzt du denn?

[Flax]

Soweit ich weiss gibts da kein vernümpftiges Tool in WinXP um den Traffic sinnvoll anzeigen zu lassen.

Oder? :?: :?: :?: :?: :?:

[ReDoX]

Wenn das tool auch Router unterstützen würde dann wäre es Perfekt :thumb:.
Aber ich glaube das ,dass mit Delphi nicht möglich ist ,oder?
Mfg MrScholz

[endeffects]

also grundsätzlich kann man jedes windows so
einrichten das bei einer getrennten dfü verbindung
umgehend neu verbunden wird, vielleicht wäre es
hier sinnvoller die windows eigenen einstellung
umzuarbeiten bzw zu kontrollieren