御前四宝 电视剧手机看:求VB代码，高手指点！

挂断拨号网络的函数叫RasHangUp。（我也没有试过。。。就直接把教程COPY过来了。）
如何断开拨号网络

编号：QA001172
建立日期: 1999年6月13日 最后修改日期：1999年6月13日
所属类别：

Visual Basic - Internet编程

Arivd:
如何才能用程序来断线，再回到程序？就是断开拨号网络、离开internet!

回答:

要想控制拨号网络，就要使用Remote Access Service (RAS) API，这个API最早是在Windows for Workgroup 3.11中出现的，现在它已经成为Win32 API的一个组成部分。挂断拨号网络的函数叫RasHangUp，这个函数的功能和用法都很简单，它只有一个参数，就是要挂断的拨号网络连接的句柄。我们可以利用RasEnumConnections获得当前系统所有RAS连接（通常我们的系统在一个时刻只使用一个拨号网络连接），利用这个函数我们就可以得到RasHangUp所需的句柄了。不过RasEnumConnections函数在Windows 95和Windows NT下的使用略有不同，限于篇幅我们只给出在Windows 95下调用该函数的例子。读者可以从Win32 API的手册找到所有相关函数的详细介绍，不过VB的WIN32API.TXT中没有包括RAS API所需的声明语句，我们在下面给出解决本问题所需要的函数和结构声明。如果希望深入研究这个问题，可以访问参考QA000035 "在VB中如何实现自动启动拨号网络"，从中可以找到完整的RAS API声明和在Windows NT下调用RasEnumConnections函数的例子。
为了运行下面这个例子，首先需要建立一个窗体，在窗体上放置一个按钮，然后输入以下语句：
Option Explicit
Private Declare Function RasHangUp Lib "RasApi32.DLL" Alias "RasHangUpA" (ByVal hRasConn As Long) As Long
Private Declare Function RasEnumConnections Lib "RasApi32.DLL" Alias "RasEnumConnectionsA" (lprasconn As Any, lpcb As Long, lpcConnections As Long) As Long

Const RAS95_MaxEntryName = 256
Const RAS95_MaxDeviceName = 128
Const RAS_MaxDeviceType = 16

Private Type RASCONN95
'set dwsize to 412
dwSize As Long
hRasConn As Long
szEntryName(RAS95_MaxEntryName) As Byte
szDeviceType(RAS_MaxDeviceType) As Byte
szDeviceName(RAS95_MaxDeviceName) As Byte
End Type

Private Sub Command1_Click()
Dim lngRetCode As Long
Dim lpcb As Long
Dim lpcConnections As Long
Dim intArraySize As Integer
Dim intLooper As Integer

ReDim lprasconn95(intArraySize) As RASCONN95
lprasconn95(0).dwSize = 412
lpcb = 256 * lprasconn95(0).dwSize
lngRetCode = RasEnumConnections(lprasconn95(0), lpcb, lpcConnections)

If lngRetCode = 0 Then
If lpcConnections > 0 Then
For intLooper = 0 To lpcConnections - 1
RasHangUp lprasconn95(intLooper).hRasConn
Next intLooper
Else
MsgBox "没有拨号网络连接！", vbInformation
End If
End If
End Sub
运行时，按下按钮就可以断开拨号网络的连接。

此问题由李海回答。
——————————————————————

还有拨号:

在VB中如何实现自动启动拨号网络

编号：QA000035
建立日期: 1998年9月1日 最后修改日期：2002年2月10日
所属类别：

Visual Basic - Windows API
Visual Basic - 网络与通信

王宁:
在VB中如何通过程序实现自动启动拨号网络，并对不同的号码及其它参数进行设定？

回答:

要想实现自动启动拨号网络，就要使用Remote Access Service (RAS) API，这个API最早是在Windows for Workgroup 3.11中出现的，现在它已经成为Win32 API的一个组成部分。该API将整个拨号网络称为Phonebook，而每一个连接称为PhonebookEntry。你可以使用RasCreatePhonebookEntry来创建新的连接，用RasDial来拨号，而RasEnumEntries可以获得当前系统已有的所有连接，使用其它的RAS函数还可以获取或设置连接的参数。 RasEditPhonebookEntry函数将激活标准的Windows 95/NT属性对话框来修改连接的属性。你可以从Win32 API的手册找到所有相关函数的详细介绍。对于VB来说直接调用RAS API有一些不便，因为该API的函数使用了一些自定义的类型(Type)，所以Microsoft专门设计了类模块封装了整个RAS API。你可以从本地下载：vb32ras.zip，这是一个使用VB 4.0编写的例子。释放该文件后可以找到两个工程文件：RAS_AUTO和RASAPI。RAS_AUTO是对API的封装，你可以把它编译成DLL的OLE Automation服务器供自己的程序调用。RASAPI是调用RAS_AUTO服务器的例子，该程序是你需要认真研究和掌握的。如果你不喜欢这种封装形式，也可以直接使用Ras_glb.bas文件，这里包括了所有需要的API声明。需要注意的是，RAS API在Win9x和WinNT下的用法不同，这点在程序中有体现。
Delphi用户可以访问http://www.magsys.co.uk/delphi/获得免费的RAS控件。

此问题由李海回答。

你在网上查查API看看吧,应该要调用系统的API来控制.