vb有没有办法写在我断线后，这些程序同时关闭。

Question

Ping一个网站，连不上了就下线了有没有更好的方法？

Answer 1

挂断连接：
Public Sub HangUp()
    Dim i As Long
    Dim lpRasConn(255) As RasConn
    Dim lpcb As Long
    Dim lpcConnections As Long
    Dim hRasConn As Long
    lpRasConn(0).dwSize = RAS_RASCONNSIZE
    lpcb = RAS_MAXENTRYNAME * lpRasConn(0).dwSize  'dwSize是每个lpRasConn的长度   '计算出缓存区域区域大小
    lpcConnections = 0                                                  '初始化连接数
    ReturnCode = RasEnumConnections(lpRasConn(0), lpcb, lpcConnections) '
    If ReturnCode = ERROR_SUCCESS Then
        For i = 0 To lpcConnections - 1             '针对每个RAS连接,判断EntryName是否和当前的ISP名相符
            If Trim(ByteToString(lpRasConn(i).szEntryName)) = Trim(gstrISPName) Then
                hRasConn = lpRasConn(i).hRasConn
                ReturnCode = RasHangUp(ByVal hRasConn)  '挂断当前RAS连接
            End If
        Next i
    End If
End Sub

Answer 2

csdn2001光盘上有查找关闭进程的例子