/[cvs]/joko/ToolBox/Windows/VpnDial/src/RasConnection.bas
ViewVC logotype

Diff of /joko/ToolBox/Windows/VpnDial/src/RasConnection.bas

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by joko, Wed Sep 28 20:36:46 2005 UTC revision 1.2 by joko, Fri Oct 7 20:25:24 2005 UTC
# Line 28  End Type Line 28  End Type
28    
29    
30  'API function declarations  'API function declarations
31  Private Declare Function RasEnumConnections Lib "RasApi32.DLL" Alias "RasEnumConnectionsA" (lprasconn As Any, _  Private Declare Function RasEnumConnections Lib "rasapi32.dll" Alias "RasEnumConnectionsA" (lprasconn As Any, _
32                                                                                             lpcb As Long, _                                                                                             lpcb As Long, _
33                                                                                             lpcConnections As Long) As Long                                                                                             lpcConnections As Long) As Long
34                                                                                                                                                                                        
35  Private Declare Function RasGetProjectionInfo Lib "RasApi32.DLL" Alias "RasGetProjectionInfoA" (ByVal hRasConn As Long, _  Private Declare Function RasGetProjectionInfo Lib "rasapi32.dll" Alias "RasGetProjectionInfoA" (ByVal hRasConn As Long, _
36                                                                                                 ByVal rasprojection As Long, _                                                                                                 ByVal rasprojection As Long, _
37                                                                                                 lpprojection As Any, _                                                                                                 lpprojection As Any, _
38                                                                                                 lpcb As Long) As Long                                                                                                 lpcb As Long) As Long
39    
40  Private Declare Function RasHangUp Lib "RasApi32.DLL" Alias "RasHangUpA" ( _  Private Declare Function RasHangUp Lib "rasapi32.dll" Alias "RasHangUpA" ( _
41      ByVal hRasConn As Long) As Long      ByVal hRasConn As Long) As Long
42            
43    
# Line 181  Public Function RasDisconnect(conName As Line 181  Public Function RasDisconnect(conName As
181      Next i      Next i
182  End Function  End Function
183    
184    Private Function RasRetrieveConnectionHandler(conName As String) As Long
185       Dim lRetCode As Long
186       Dim lSize As Long
187       Dim tConnections(255) As RASCONN
188       Dim lConnections As Long
189      
190       Dim i As Long
191       Dim cConnection As RASCONN
192       Dim strRASConName As String
193      
194       'init
195       tConnections(0).dwSize = 412
196       lSize = (UBound(tConnections) + 1) * tConnections(0).dwSize
197       RasRetrieveConnectionHandler = 0
198      
199       'retreive connections
200       lRetCode = RasEnumConnections(tConnections(0), lSize, lConnections)
201      
202       'check return code
203       If lRetCode = 0 Then
204           'call successfull -> any connections?
205           If lConnections > 0 Then
206                For i = 0 To lConnections - 1
207                   'lRetrieveConnectionHandler = tConnections(0).hRasConn
208                   cConnection = tConnections(i)
209                    strRASConName = StrConv(cConnection.szEntryName(), vbUnicode)
210                    strRASConName = Left$(strRASConName, InStr(strRASConName, vbNullChar) - 1)
211                    'MsgBox strRASConName
212                   If strRASConName = conName Then
213                        'MsgBox cConnection.hRasConn
214                        RasRetrieveConnectionHandler = cConnection.hRasConn
215                   End If
216                Next i
217           End If
218       End If
219    End Function
220    
221    Public Function RasIsOnline(conName As String) As Boolean
222        Dim handle As Long
223        handle = RasRetrieveConnectionHandler(conName)
224        'MsgBox handle
225        If handle <> 0 Then RasIsOnline = True
226    End Function
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed