Allgemeine Fragen zur PROFAN Programmierung
Views (Heute): 249308 (10744)
  Suchen
 Zurück zur Übersicht
 AutorThema: Online ?
Jürgen K.
Datum:15.12.01 09:09 Antwortenals Email verschicken  



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


Martin Heller
Datum:15.12.01 11:50 Antwortenals Email verschicken (martin@technopolis.de) 


Also bei mir funktioniert die Routine einwandfrei er zeigt mir 1 an und ich bin online!

Martin


Martin Heller
Datum:15.12.01 11:54 Antwortenals Email verschicken (martin@technopolis.de) 


Oder war das die Antwort auf "rechner online oder nicht"?

Martin


Jürgen K.
Datum:15.12.01 12:16 Antwortenals Email verschicken  


Ja !


Christian Devilbis
Datum:15.12.01 12:21 Antwortenals Email verschicken (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




Jürgen K.
Datum: 15.12.01 13:55 Antwortenals Email verschicken  


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



 Zurück zur Übersicht