VB启动或停止一个驱动的语句.....比如我想做个从驱动断网的程序.....按F8....就停用MS TCP Loopback interface和物理网卡的驱动.再按下F8..就都又启动了....就是这样!希望牛人给出详细代码...额感谢哦!

嗬荷                  

Joforn说过，VB什么都能写，除了驱动和操作系统……

我咋办啊..呜呜..

哇哇...那我去VC里去看看..

一起交流VB   群60925017
   希望大家支持

一起交流VB   群60925017
   希望大家支持

Dim dx As New DirectX8
Dim di As DirectInput8
Dim diDEV As DirectInputDevice8
Dim diState As DIKEYBOARDSTATE
Private Sub Form_Load()
    Set di = dx.DirectInputCreate()  '建立directinput对象
    If Err.Number <> 0 Then
        MsgBox "Direct Input初使化错误, 请检查你是否安装了DirectX8", vbApplicationModal
        End
    End If
    Set diDEV = di.CreateDevice("GUID_SysKeyboard")
    diDEV.SetCommonDataFormat DIFORMAT_KEYBOARD
    diDEV.SetCooperativeLevel Me.hWnd, DISCL_BACKGROUND Or DISCL_NONEXCLUSIVE
    Me.Show
    diDEV.Acquire
    tmrKey.Interval = 10
    tmrKey.Enabled = True
End Sub
Private Sub Form_Unload(Cancel As Integer)
    diDEV.Unacquire       '关闭窗时释放directInputDevice8对象
End Sub
Private Sub tmrKey_Timer()  'tmrkey为时间控件,时间间隔设为10
    diDEV.GetDeviceStateKeyboard diState
    If diState.Key(DIK_F8)<>"" Then
    Shell "sc config 服务名 start= Disabled/Enable"
    End If
End Sub

要先引用DIRECTX8。。。