Modem online ?

Private Declare Function RasEnumConnections Lib \"RasApi32.dll\" Alias \"RasEnumConnectionsA\" (lprasconn As Any, lpcb As Long, lpcConnections As Long) As Long
Private Declare Function RasGetConnectStatus Lib \"RasApi32.dll\" Alias \"RasGetConnectStatusA\" (ByVal hRasConn As Long, lpRASCONNSTATUS As Any) As Long

Private Const RAS95_MaxEntryName = 256
Private Const RAS_MaxDeviceType = 16
Private Const RAS95_MaxDeviceName = 128
Private Const RASCS_DONE = &H2000&

Type RASCONN95
    dwSize As Long
    hRasConn As Long
    szEntryName(RAS95_MaxEntryName) As Byte
    szDeviceType(RAS_MaxDeviceType) As Byte
    szDeviceName(RAS95_MaxDeviceName) As Byte
End Type

Type RASCONNSTATUS95
    dwSize As Long
    RasConnState As Long
    dwError As Long
    szDeviceType(RAS_MaxDeviceType) As Byte
    szDeviceName(RAS95_MaxDeviceName) As Byte
End Type

Public Function IsRASConnected() As Boolean
    Dim TRasCon(255) As RASCONN95
    Dim lg As Long
    Dim lpcon As Long
    Dim lReturn As Long
    Dim Tstatus As RASCONNSTATUS95
   
    TRasCon(0).dwSize = 412
    lg = 256 * TRasCon(0).dwSize
    lReturn = RasEnumConnections(TRasCon(0), lg, lpcon)
   
    If lReturn Then
        MsgBox \"Fejl i forbindelser\", vbApplicationModal + vbCritical, \"Erro\"
        Exit Function
    End If
   
    Tstatus.dwSize = 160
    lReturn = RasGetConnectStatus(TRasCon(0).hRasConn, Tstatus)
   
    If Tstatus.RasConnState = RASCS_DONE Then
        IsRASConnected = True
    Else
        IsRASConnected = False
    End If
End Function

Du kunne jo evt. indsætte en timer der med jævne mellemrum checkede IsRASConnected

Er du taget på ferie eller er mit svar helt uforståligt ???????

Hvis det sidste er gældende så sig til, så skal jeg med glæde definere det lidt mere/tydeligere.

Nej nej...Det virker vist nok fint nok...
Jeg har taget din kode og puttet det i et modul, og er nu ved at lave formen til, så jeg kan lave en session tæller, idag tæller, og en periode tæller...
Det drillede lidt med at få vist det rigtige format i timer minutter sekunder
TT:MM:SS
men jeg har klaret det ved bruge Timeserial, og så regne forskellen ud på Timer, minutter, sekunder ved hjælp af datepart....Men, jeg havde en deadline på noget arbejde, så jeg er ikke lige kommet længere....Og har selvfølgelig ikke fået godkendt svaret her...
Mit problem er nu, hvordan jeg skal gemme den tid der er gået...Men jeg tror jeg vil gemme tiden i sekunder, og på den måde have en fast tælle enhed...Det lyder nærmest som en matematik aflevering

Jeg har sat en timer til at chekke hvert 5 sekund, og en timer til at opdatere mit tidstæller hvert ½ sekund

Det glæder mig at du fik det til at virke. med hensyn til tiden så er det jo efter dit behov det skal laves og umiddelbart lyder det som om du har fundet en fornuftig løsning.
Skulle du få problemer med det skal du bare sige til. Jeg har selv lavet noget lignende for et års tid siden (inden jeg fik FlatRate) og den kode må du da godt få.

hmm....Jeg vil da gerne se den til inspiration.....

Når jeg begynder at tjene penge på skidtet skal du nok få dit navn nævnt i about boksen..... he he.... :-)

Så hit med en mail adresse !

Inspiration, hmmm, ja du kan da ihvertfald se hvordan jeg valgte at løse det. Men hvorvidt det er godt programmeret, ja man vil jo helst ikke tale dårligt om sig selv !!!!

Der er nogle fine finesser i som jeg havde vældige problemer med kan jeg huske (tæller i toppen af skærmen, programmet lagt i tray med højrekliksmenu o.s.v.)

Fint....Jeg er næsten lige startet med vB, men har været i gang et godt stykke tid med asp, så alt vb kode er dejlig inspiration
Mail: vrist@webmaker.dk

Især det der med tray har jeg tænkt lidt over...

Det kommer i eftermiddag. Jeg skal lige på job nogle timer, men skal nok finde det når jeg er tilbage.
Hvis du har spørgsmål eller lign. til koden skal du lige vide at de helst skal komme i dag, da jeg tager på en uges ferie fra i morgen tidlig.

Brian

fint nok....Jeg får nok heller ikke så meget tid til at kigge på det alligvel...Flere deadlines....

den mail kom hvis ikke igennem ?? :-)

Nope, og ferien kaldte, men nu skulle den være der.

Andre kan finde den på http://www.cb-consult.dk under Visual Basic.

ok...Det ser fint nok ud, men det er vel ikke skrevet i vb6 ??og hvis så, har du så ikke en compilet også `??