怎么用 vb调用windows里的拨号程序

[flaredog]

怎么用 vb调用windows里的拨号程序。
使用哪些dll文件啊。我先谢谢各位

[Paperback]

[转贴]
'**************************************
' Name: Automatic Internet Dialup
' Description:Most code snippets simply
' show you how to display
a connect dialog. The problem With this is that
it doesn't force a dial-up and won't alert you
when a connection is established.
This code solves those problems by using Internet
Explorer's own 'automatic dial-up' settings
(Control Panel >> Internet options >> Connections).
It utilises two little-known API calls that can
automatically connect / disconnect from the
default connection.
Note: If the 'Never Dial a Connection' option is


selected, this code will Not be able To connect.
I came across this API awhile ago when my friend
suggested a forced dialup and gave me this tip.
It's actually pretty helpful.
' By: Bradley Liang
'
'This code is copyrighted and has' limited warranties.Please see http://w
' ww.Planet-Source-Code.com/xq/ASP/txtCode
' Id.9359/lngWId.1/qx/vb/scripts/ShowCode.
' htm'for details.'**************************************

' !! Dial the Net Automatically !!
' This waits until the connection is mad
' e and THEN
' proceeds. --Bradley Liang


Private Sub Command1_Click()
'To prompt the user to connect to the Ne
' t


If InternetAutodial(INTERNET_AUTODIAL_FORCE_ONLINE, 0) Then
MsgBox "You're Connected!", vbInformation
End If
'To automatically start dialling


If InternetAutodial(INTERNET_AUTODIAL_FORCE_UNATTENDED, 0) Then
MsgBox "You're Connected!", vbInformation
End If
'To disconnect an automatically dialled
' connection


If InternetAutodialHangup(0) Then
MsgBox "You're Disconnected!", vbInformation
End If
End Sub

[Bardo]

源代码在：
www.codeguru.com

[Bardo]

源代码在：
www.codeguru.com

[Paperback]

不好意思意思，忘了声明部分
'**************************************
'Windows API/Global Declarations for :Au
' tomatic Internet Dialup
'**************************************
Private Const INTERNET_AUTODIAL_FORCE_ONLINE = 1
Private Const INTERNET_AUTODIAL_FORCE_UNATTENDED = 2


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

[flaredog]

谢谢，谢谢大家的帮助

[flaredog]

哎呀，是英文网啊，看不懂了
上面的
'**************************************
' Name: Automatic Internet Dialup
' Description:Most code snippets simply
' show you how to display
a connect dialog. The problem With this is that
it doesn't force a dial-up and won't alert you
when a connection is established.
This code solves those problems by using Internet
Explorer's own 'automatic dial-up' settings
(Control Panel >> Internet options >> Connections).
It utilises two little-known API calls that can
automatically connect / disconnect from the
default connection.
Note: If the 'Never Dial a Connection' option is


selected, this code will Not be able To connect.
I came across this API awhile ago when my friend
suggested a forced dialup and gave me this tip.
It's actually pretty helpful.
' By: Bradley Liang
'
'This code is copyrighted and has' limited warranties.Please see http://w
' ww.Planet-Source-Code.com/xq/ASP/txtCode
' Id.9359/lngWId.1/qx/vb/scripts/ShowCode.
' htm'for details.'**************************************

' !! Dial the Net Automatically !!
' This waits until the connection is mad
' e and THEN
' proceeds. --Bradley Liang
是贴在哪的，我是新手，对不起哦，请说的详细点，好吗，谢