不看会后悔的Windows XP之经验谈	简单快捷DIY实用家庭影院

求救！在vb中怎样打开网络连接？

楼主SYzhrr（北）2004-12-02 08:19:50 在 VB / 基础类提问

本人希望能在vb中打开一个以建立好的网络连接，环境是WinXP,要打开的连接名是adsl
(使用adsl上网的连接）
多谢！问题点数：30、回复次数：9Top

1 楼gg137zeus（分在脚下）回复于 2004-12-02 08:38:10 得分 0

怎么打开？Top

2 楼xmzhy（张缘）回复于 2004-12-02 08:41:09 得分 0

adsl有固定IP地址吗？如果有就好办了。Top

3 楼mingday（小山）回复于 2004-12-02 08:45:13 得分 0

什么意思？？？Top

4 楼happytoy（）回复于 2004-12-02 09:06:56 得分 0

你是想通过程序打开“网络连接”那个程序吗？如果是这样的话，用shell
Top

5 楼SYzhrr（北）回复于 2004-12-02 09:15:10 得分 0

怎么用shell命令阿？有具体的吗？adsl 没有固定地址，就是家用的adsl上网连接Top

6 楼SYzhrr（北）回复于 2004-12-02 09:17:56 得分 0

我想实现的是：在vb中用代码自动打开这个连接。然后再有一个按钮实现断开这个连接的功能Top

7 楼SYzhrr（北）回复于 2004-12-05 10:44:25 得分 0

问题还未解决，希望各位同仁多多帮忙Top

8 楼wwqna（york）回复于 2004-12-05 11:42:11 得分 30

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

Dim iHandle As Long

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

Private Sub Command1_Click()
'建立名称为163的连接，连接成功后连接句柄保存在iHandel中
InternetDial Me.hWnd, "163", INTERNET_AUTODIAL_FORCE_UNATTENDED, iHandle, 0
End Sub

Private Sub Command2_Click()
If iHandle <> 0 Then
InternetHangUp iHandle, 0
iHandle = 0
End If
End Sub

Private Sub Form_Load()
Command1.Caption = "拨号"
Command2.Caption = "断开"
End SubTop

9 楼SYzhrr（北）回复于 2004-12-16 21:21:57 得分 0

wwqna(york)：多谢了。我好几天没来了，现在才看到，这就给你分，请问有没有直接打开的？就是直接调用windows自带的dll?Top