/[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.2 by joko, Fri Oct 7 20:25:24 2005 UTC revision 1.3 by joko, Fri Oct 7 20:59:27 2005 UTC
# Line 75  Private Function lRetrieveConnectionHand Line 75  Private Function lRetrieveConnectionHand
75  End Function  End Function
76    
77    
78  Private Function getIpInfo() As RASPPPIP  Private Function getIpInfo(conName As String) As RASPPPIP
79     Dim lConnection As Long     Dim lConnection As Long
80     Dim lProjection As Long     Dim lProjection As Long
81     Dim tIpInfo As RASPPPIP     Dim tIpInfo As RASPPPIP
# Line 88  Private Function getIpInfo() As RASPPPIP Line 88  Private Function getIpInfo() As RASPPPIP
88     lSize = tIpInfo.dwSize     lSize = tIpInfo.dwSize
89        
90     'retrieve connection     'retrieve connection
91     lConnection = lRetrieveConnectionHandler()     lConnection = RasRetrieveConnectionHandler(conName)
92     If lConnection = 0 Then     If lConnection = 0 Then
93         Exit Function         Exit Function
94     End If     End If
# Line 104  Private Function getIpInfo() As RASPPPIP Line 104  Private Function getIpInfo() As RASPPPIP
104  End Function  End Function
105    
106    
107  Public Function DetermineServerIP() As String  Public Function DetermineServerIP(conName As String) As String
108        
109     Dim tIpInfo As RASPPPIP     Dim tIpInfo As RASPPPIP
110        
111     DetermineServerIP = vbNullString     DetermineServerIP = vbNullString
112        
113     tIpInfo = getIpInfo()     tIpInfo = getIpInfo(conName)
114        
115     'MsgBox "abc"     'MsgBox "abc"
116        
# Line 121  Public Function DetermineServerIP() As S Line 121  Public Function DetermineServerIP() As S
121        
122  End Function  End Function
123    
124  Public Function DetermineClientIP() As String  Public Function DetermineClientIP(conName As String) As String
125        
126     Dim tIpInfo As RASPPPIP     Dim tIpInfo As RASPPPIP
127        
128     DetermineClientIP = vbNullString     DetermineClientIP = vbNullString
129        
130     tIpInfo = getIpInfo()     tIpInfo = getIpInfo(conName)
131        
132     'check return code     'check return code
133     'If lRetCode = 0 Then     'If lRetCode = 0 Then
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed