Question

高分悬赏！vb高手来啊

帮帮我，高分悬赏
能否帮我写个软件（很简单）
要求：电脑断线（本地链接），自动关机（后台运行）。
谢谢，高分悬赏。
有源代码更好。
我的邮箱 chinawutongyu@foxmail.com
如果有的话，继续加分

Answer 1

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
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
'MsgBox "完毕", 64
Else
'MsgBox "没有拨号网络连接！", 48
End If
End If
Call Shell("shutdown -s -f") '关闭电脑
End Sub

Answer 2

应该要禁用本地连接之类的才能使电脑断线，百度找下，有代码。