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 |
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 |