Internet Timer
Calculate the time that your internet connection is active.
Module
Private Declare Function RasEnumConnections Lib "rasapi32.dll" Alias "RasEnumConnectionsA" (lpRasConn As Any, lpcb As Long, lpcConnections As Long) As Long
Public Const RAS_MAXENTRYNAME As Integer = 256
Public Const RAS_MAXDEVICETYPE As Integer = 16
Public Const RAS_MAXDEVICENAME As Integer = 128
Public Const RAS_RASCONNSIZE As Integer = 412
Public Const ERROR_SUCCESS = 0
Public Type RasConn
dwSize As Long
hRasConn As Long
szEntryName(RAS_MAXENTRYNAME) As Byte
szDeviceType(RAS_MAXDEVICETYPE) As Byte
szDeviceName(RAS_MAXDEVICENAME) As Byte
End Type
'Converts the string byte array returned by the API call into a VB String
Public Function ByteToString(ByteArray() As Byte) As String
Dim i As Integer
ByteToString = ""
i = 0
Do While ByteArray(i) <> 0
ByteToString = ByteToString & Chr(ByteArray(i))
i = i + 1
Loop
End Function
'Converts a Single number into a time string
Private Function toTime(ByVal x As Single) As String
toTime = Format(x Mod 60, "00")
toTime = ":" & toTime
x = x \ 60
toTime = Format(x Mod 60, "00") & toTime
toTime = ":" & toTime
x = x \ 60
toTime = x & toTime
End Function
'Check the RAS Connections
Sub CheckRASConnections()
Dim i As Long
Dim RasConn(255) As RasConn
Dim structSize As Long
Dim ConnectionsCount As Long
Dim ret As Long
Static LastTime As Single
Dim ElapsedTime As Single
If LastTime = 0 Then LastTime = Timer
'Fills the RasConn structure with the data of all the opened RAS connections
RasConn(0).dwSize = RAS_RASCONNSIZE
structSize = RAS_MAXENTRYNAME * RasConn(0).dwSize
ret = RasEnumConnections(RasConn(0), structSize, ConnectionsCount)
ElapsedTime = Timer - LastTime
If ElapsedTime < 0 Then ElapsedTime = 0
'Each call to the Sub recalculate the elapsed time for all the active or new RAS connections
If ret = ERROR_SUCCESS Then
For i = 0 To ConnectionsCount - 1
On Error GoTo NewConnection
'Update an existing list item connection
Form1.ListView1.ListItems("K" & RasConn(i).hRasConn).Tag = Form1.ListView1.ListItems("K" & RasConn(i).hRasConn).Tag + ElapsedTime
Form1.ListView1.ListItems("K" & RasConn(i).hRasConn).Text = ByteToString(RasConn(i).szEntryName) & "-" & toTime(Form1.ListView1.ListItems("K" & RasConn(i).hRasConn).Tag)
GoTo NextConnection
NewConnection:
'Create a new list item connection
Form1.ListView1.ListItems.Add , "K" & RasConn(i).hRasConn, ByteToString(RasConn(i).szEntryName)
Form1.ListView1.ListItems("K" & RasConn(i).hRasConn).Tag = 0
NextConnection:
Next
End If
LastTime = Timer
End Sub
'Tells you if a Connection as been started or terminated
'Returns the number of new connections, if the number is greater than
'zero it indicates the number of new connections started, if the number
'is negatice it indicates the number of connections terminated, zero if
'the number of RAS connections is the same
Function CheckConnections() As Integer
Static ConnCount As Integer
Dim RasConn(255) As RasConn
Dim structSize As Long
Dim ConnectionsCount As Long
Dim ret As Long
'Fills the RasConn structure with the data of all the opened RAS connections
RasConn(0).dwSize = RAS_RASCONNSIZE
structSize = RAS_MAXENTRYNAME * RasConn(0).dwSize
ret = RasEnumConnections(RasConn(0), structSize, ConnectionsCount)
CheckConnections = ConnectionsCount - ConnCount
ConnCount = ConnectionsCount
End Function
Usage
Create a New project, add a timer and a list view control to the form.
In the Timer1_Timer() sub call the CheckRASConnections sub...when you start a RAS connection the function detect a new connection and start calculate the time of the connection!!! When the connection is terminated the time counter will stop showing the total connection time elapsed.
Use the CheckConnections function to know when a new connection is started or when a connection is terminated...call this function in timer interval sub
Sub Timer1_Timer()
Dim x as integer
x=CheckConnections
If x>0 Then
MsgBox x & " New Connection Started"
ElseIf x<0 Then
MsgBox Abs(x) & " Connection Terminated"
End If
End Sub
Special Instructions
This code originally appeared on AndreaVB.com, and has been republished here with the permission of Andrea Tincani.
Loading Comments ...
Comments
No comments have been added for this post.
You must be logged in to make a comment.