Autor | Thema: Online ? | | Datum:15.12.01 09:09 
| |
PROC RAS_EnumConnections
DECLARE c_Buffer$, i_Lang&, i_Anzahl&
c_Buffer$ = CHR$(156)+CHR$(01)+CHR$(00)+CHR$(00)+MkStr$(CHR$(00),408)
i_Lang& = 412
DEF @RasEnumConnections(03) ! "RASAPI32.DLL","RasEnumConnectionsA"
RasEnumConnections(ADDR(c_Buffer$), ADDR(i_Lang&), ADDR(i_Anzahl&))
RETURN i_Anzahl&
ENDPROC
PRINT "Aktive Verbindung :"
RAS_EnumConnections
Print @&(0)
Waitinput
|
| | Datum:15.12.01 11:50 
(martin@technopolis.de) | |
Also bei mir funktioniert die Routine einwandfrei er zeigt mir 1 an und ich bin online!
Martin
|
| | Datum:15.12.01 11:54 
(martin@technopolis.de) | |
Oder war das die Antwort auf "rechner online oder nicht"?
Martin
|
| | Datum:15.12.01 12:16 
| |
Ja !
|
| | Datum:15.12.01 12:21 
(christian_devilbis@lycos.de) | |
Hi,
hab ja nun die DLL von Thorsten und den Quellcode
hier mal ausprobiert.
Naja, setze ich die DEF Anweisung mal aus der PROC raus,
ganz nach oben, scheint es soweit unter Win 98/Me
zu Funktionieren, genauso wie mit der DLL.
Unter Win NT bekomme ich jedoch einen Systemfehler, mit der
DLL funktioniert das ebenfalls unter NT.
gruss
Christian
|
| | Datum: 15.12.01 13:55 
| |
Ungetestet ... unter NT
PROC RAS_EnumConnections
DECLARE c_Buffer$, i_Lang&, i_Anzahl&
c_Buffer$ = CHR$(32)+MkStr$(CHR$(00),31)
i_Lang& = 32
DEF @RasEnumConnections(03) ! "RASAPI32.DLL","RasEnumConnectionsA"
RasEnumConnections(ADDR(c_Buffer$), ADDR(i_Lang&), ADDR(i_Anzahl&))
RETURN i_Anzahl&
ENDPROC
PRINT "Aktive Verbindung :"
RAS_EnumConnections
Print @&(0)
Waitinput
|
|
|