如何用VB调用rasDial进行拨号
下面是我用VB编的一段小程序,用来远程拨号,运行以后,iErrCode的值总为610,期待高手为我解难。
Public Type RASDIALEXTENSIONS
dwSize As Long
dwfOptions As Long
hwndParent As Long
reserved As Long
End Type
Public Type RASDIALPARAMS
dwSize As Long
szEntryName As String * RAS95_MaxEntryName
szPhoneNumber As String * RAS_MaxPhoneNumber
szCallbackNumber As String * RAS_MaxCallbackNumber
szUserName As String * UNLEN
szPassword As String * PWLEN
szDomain As String * DNLEN
' dwSubEntry As Long
' dwCallbackId As Long
End Type
Public Declare Function RasDial Lib "RasApi32.dll" Alias "RasDialA" (lpRasDialExtensions As RASDIALEXTENSIONS, ByVal lpszPhonebook As String, lpRasDialParams As RASDIALPARAMS, ByVal dwNotifierType As Long, ByVal lpvNotifier As Any, lphRasConn As Long) As Long
Sub Dial()
Dim lpRasDialExtensions As RASDIALEXTENSIONS
Dim lpRasDialParams As RASDIALPARAMS
Dim hRasConn As Long
lpRasDialExtensions.dwSize = Len(lpRasDialExtensions)
With lpRasDialParams
.dwSize = Len(lpRasDialParams)
.szPhoneNumber = "02 3712357"
.szUserName = "yl_zheng"
.szPassword = "1234"
End With
Dim iErrCode As Long, sErrString As String
iErrCode = RasDial(lpRasDialExtensions, "", lpRasDialParams, 0, AddressOf RasDialFunc, hRasConn)
end Sub
'回调函数
Public Sub RasDialFunc(ByVal unMsg As Integer, lpRasConnState As RASCONNSTATE, ByVal dwError As Long)
Debug.Print unMsg
End Sub