哎呀,是英文网啊,看不懂了
上面的
'**************************************
' 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
是贴在哪的,我是新手,对不起哦,请说的详细点,好吗,谢
[转贴]
'**************************************
' 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