如何在VB中调用拨号网络程序?

[mickeypeng]

我想在VB中点击一个命令按钮,会弹出一个已建立好的拨号连接,哪位大侠能帮我解决!!!

[hdj0569]

试一试
shell "rasphone.exe"

[Wesely]

Private Declare Function InternetDial Lib "wininet.dll" (ByVal hwndParent As Long, ByVal lpszConnectoid As String, ByVal dwFlags As Long, lpdwConnection As Long, ByVal dwReserved As Long) As Long
'参数dwConnection指定拨号连接句柄
Private Declare Function InternetHangUp Lib "wininet.dll" (ByVal dwConnection As Long, ByVal dwReserved As Long) As Long
Private Declare Function InternetAutodial Lib "wininet.dll" (ByVal dwFlags As Long, ByVal dwReserved As Long) As Long
Private Declare Function InternetAutodialHangup Lib "wininet.dll" (ByVal dwReserved As Long) As Long

Const INTERNET_DIALSTATE_DISCONNECTED = 1
Const INTERNET_AUTODIAL_FORCE_ONLINE = 1
Const INTERNET_AUTODIAL_FORCE_UNATTENDED = 2
Const INTERNET_DIAL_UNATTENDED = &H8000

dim lngResult as Long
call InternetDial(Me.hWnd, "96169", INTERNET_AUTODIAL_FORCE_ONLINE Or INTERNET_AUTODIAL_FORCE_UNATTENDED, lngResult, 0)

if lngResult=0 then
msgbox "拨号不成功"
else
msgbox "拨号成功"
End if

[mickeypeng]

哪里有rasphone.exe啊????

[mickeypeng]

Wesely(找工！):怎么回事啊,InternetDial返回的总是0啊,好象不能实现啊,你试过吗?????

[mickeypeng]

谢谢了

[mickeypeng]

谢谢

[mickeypeng]

这样子问题也没有能答,真是没劲!!

[songyueliang]

我没弄懂什么叫“会弹出一个已建立好的拨号连接”
你说清楚点

[mickeypeng]

拨号网络中不是有个新连接吗? 我用新连接向导做了一个连接"888";我现在想实现的是,想点击一个命令按钮,弹出的画面和在拨号网络中点击"888"的画面一样,都是一个拨号的对话框,给我答案啊..啊......

[songyueliang]

这个用SHELL就可以实现呀。
你是在98还是在2000下运行？

[ArmorCar]

In fact,Wesely(无奈太多) is right.
The second parameter is the DISPLAY NAME of dial-up networking ,not the phone-number.　
Of course ,you can use RasDial function,also.

[ArmorCar]

Call InternetDial(Me.hWnd, "888", INTERNET_DIAL_FORCE_PROMPT, lngResult, 0)

[songyueliang]

人家想要的东西好简单，
一句话就可以搞定的，
干嘛还要搞得这么复杂。

[mickeypeng]

我试用InternetDial,IngResult返回值总是0啊

[mickeypeng]

是在98,你用shell去调什么函数????

[songyueliang]

Dim rtn

rtn = Shell("rundll32.exe rnaui.dll,RnaDial " & _
Connection.Text, 0)

[mickeypeng]

songyueliang高手,shell的第一个参数不是要.exe文件啊,这样也行,我倒是第一次看到,为什么也样也会行啊????