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

Diff of /joko/ToolBox/Windows/VpnDial/src/RasEntry.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, Thu Oct 6 20:15:34 2005 UTC
# Line 36  Private Type RASENTRYNAME95 Line 36  Private Type RASENTRYNAME95
36  End Type  End Type
37    
38    
39  Private Declare Function RasDial Lib "RasApi32.DLL" Alias "RasDialA" _  Private Declare Function RasDial Lib "rasapi32.dll" Alias "RasDialA" _
40      (ByVal lprasdialextensions As Long, ByVal lpcstr As String, _      (ByVal lprasdialextensions As Long, ByVal lpcstr As String, _
41      ByRef lprasdialparamsa As RASDIALPARAMS, ByVal dword As Long, _      ByRef lprasdialparamsa As RASDIALPARAMS, ByVal dword As Long, _
42      lpvoid As Any, ByRef lphrasconn As Long) As Long      lpvoid As Any, ByRef lphrasconn As Long) As Long
43    
44  Private Declare Function RasEnumEntries Lib "RasApi32.DLL" Alias "RasEnumEntriesA" _  Private Declare Function RasEnumEntries Lib "rasapi32.dll" Alias "RasEnumEntriesA" _
45      (ByVal reserved As String, ByVal lpszPhonebook As String, lprasentryname As Any, _      (ByVal reserved As String, ByVal lpszPhonebook As String, lprasentryname As Any, _
46      lpcb As Long, lpcEntries As Long) As Long      lpcb As Long, lpcEntries As Long) As Long
47            
48  Private Declare Function RasGetEntryDialParams Lib "RasApi32.DLL" Alias "RasGetEntryDialParamsA" _  Private Declare Function RasGetEntryDialParams Lib "rasapi32.dll" Alias "RasGetEntryDialParamsA" _
49      (ByVal lpcstr As String, ByRef lprasdialparamsa As RASDIALPARAMS, ByRef lpbool As Long) As Long      (ByVal lpcstr As String, ByRef lprasdialparamsa As RASDIALPARAMS, ByRef lpbool As Long) As Long
50    
51    Private Declare Function RasSetEntryDialParams _
52          Lib "rasapi32.dll" Alias "RasSetEntryDialParamsA" _
53            (ByVal lpszPhonebook As String, _
54            lpRasDialParams As RASDIALPARAMS, _
55            ByVal blnRemovePassword As Long) As Long
56            
57  Private Function Dial(ByVal Connection As String, ByVal phoneBook As String, ByVal username As String, ByVal password As String) As Integer  Private Function Dial(ByVal Connection As String, ByVal phoneBook As String, ByVal username As String, ByVal password As String) As Integer
58            
59      Dim rp As RASDIALPARAMS, h As Long, resp As Long      Dim rp As RASDIALPARAMS, h As Long, resp As Long
# Line 119  Public Function RasConnect(conName As St Line 124  Public Function RasConnect(conName As St
124    
125  End Function  End Function
126    
127    ' VpnDial.exe --setup {connection} --user {username} --pass {password}
128    Public Function SetupRasEntry(conName As String, phoneBook As String, username As String, password As String)
129        
130        Dim rdp As RASDIALPARAMS
131        Dim result As Long
132        
133        rdp.dwSize = Len(rdp) + 6
134        ChangeBytes conName, rdp.szEntryName
135        
136        ChangeBytes username, rdp.szUserName
137        ChangeBytes password, rdp.szPassword
138        
139        ' Set User name and password for the connection
140        RasSetEntryDialParams phoneBook, rdp, 0
141        
142    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