注册 登录
编程论坛 VB.NET论坛

怎么样用VB.NET来实现ADSL宽带拨号(续1)

alpher 发布于 2008-12-13 16:37, 3482 次点击
RT
跟好多投票机上的功能差不多..
在网上怎么都找不到相关的内容,全是关于MODEM拨号的,请达人指点一二!!!
如果能提供参考代码就更感谢了!!!

感谢版主的解答。。现在又碰到一个问题了~~
我在网上看到一个MSDN:
    Private Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef lpdwFlags As Int32, _
ByVal dwReserved As Int32) As Boolean  '获得状态。。

    Private Declare Function InternetDial Lib "Wininet.dll" (ByVal hwndParent As IntPtr, _
    ByVal lpszConnectoid As String, ByVal dwFlags As Int32, ByRef lpdwConnection As Int32, _
    ByVal dwReserved As Int32) As Int32  '连接用

    Private Declare Function InternetHangUp Lib "Wininet.dll" _
    (ByVal lpdwConnection As Int32, ByVal dwReserved As Int32) As Int32 '断开连接

现在的主要问题出在  连接和断开连接。。
如果我机器上本身已经建立一个宽带连接的话,总是不能使用这个断开连接(lpdwConnection这个值无法获得)。
需要通过internetdial来建立宽带连接,并获得lpdwConnection返回值,才能使用InternetHangUp来断开连接。
不知道还有其它断开连接的方法吗?!!!非常感谢!!!(代码,我放在四楼吧)

[[it] 本帖最后由 alpher 于 2008-12-15 18:41 编辑 [/it]]
5 回复
#2
ecjob2008-12-13 19:07
随便找下都有的。 
http://www.
#3
ecjob2008-12-13 19:11
取得链接名后
用API
InternetDial (0, “adsl”, 2, 0, 0)
#4
alpher2008-12-13 20:13
非常感谢版主,初步的拨号已经做出来了。
1楼的链接我也看过。点拨了一下,就有思路了。谢谢!!!
#5
alpher2008-12-15 18:39
问题在顶楼…………
'----连接代码(没用的都简化了)------
  Dim DResult As Int32
   DResult = InternetDial(Me.Handle, "宽带连接", DialUpOptions.INTERNET_DIAL_FORCE_PROMPT, mlConnection, 0)
'----连接代码结束----------
'----断开连接--------
        Dim Result As Int32
        If Not (mlConnection = 0) Then
            Result = InternetHangUp(mlConnection, 0&)
            If Result = 0 Then
                MessageBox.Show("Hang up successful", "Hang Up Connection")
            Else
                MessageBox.Show("Hang up NOT successful", "Hang Up Connection")
            End If
        Else
            MessageBox.Show("You must dial a connection first!", "Hang Up Connection")
        End If

'-----断开连接代码结束-----
1