请问用程序在拨号网络里怎样添加一个连接？

[lengxue]

请问用程序在拨号网络里怎样添加一个连接？
我说的是不通过连接向导
用RasCreatePhonebookEntryA函数可以建立一个连接
怎样才能直接添加呢？

[Un1]

Private Declare Function RnaWizard Lib "rnaui.dll" (ByVal hWnd As Long, ByVal hInst As Long, ByVal lpszEntry As String, ByVal lFlag As Long) As Long


Private lhWnd As Long
Private lhInst As Long


Private Sub Command2_Click()
On Error GoTo ErrorHandle
Dim s As String
If Option1 Then
s = "/0"
Else
s = "/1"
End If

Dim l As Long
l = RnaWizard(lhWnd, lhInst, s, 1)
If l Then
MsgBox "错误: " & l, vbCritical
End If
Exit Sub

ErrorHandle:
MsgBox Err.Description, vbCritical
End Sub

Private Sub Form_Load()
On Error Resume Next
lhWnd = hWnd
lhInst = App.hInstance
End Sub

[lengxue]

un1你好：
谢谢你帮助，不过你的方法好像跟我的一样
只能打开建立新连接先导！
我的意思是不用打开向导直接在拨号网络你建一个新的连接！
希望你能帮我再想想，万分感谢！

[Un1]

看看你的Email。