| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 725 人关注过本帖
标题:愁死我了...没牛人解答么?
只看楼主 加入收藏
神说我无罪
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2008-4-26
收藏
 问题点数:0 回复次数:8 
愁死我了...没牛人解答么?
VB启动或停止一个驱动的语句.....比如我想做个从驱动断网的程序.....按F8....就停用MS TCP Loopback interface和物理网卡的驱动.再按下F8..就都又启动了....就是这样!希望牛人给出详细代码...额感谢哦!
搜索更多相关主题的帖子: 解答 
2008-04-26 09:41
programfanny
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2007-3-27
收藏
得分:0 
嗬荷                  
2008-04-26 14:35
multiple1902
Rank: 8Rank: 8
等 级:贵宾
威 望:42
帖 子:4881
专家分:671
注 册:2007-2-9
收藏
得分:0 
Joforn说过,VB什么都能写,除了驱动和操作系统……
2008-04-26 19:25
神说我无罪
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2008-4-26
收藏
得分:0 
我咋办啊..呜呜..
2008-05-01 16:41
神说我无罪
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2008-4-26
收藏
得分:0 
哇哇...那我去VC里去看看..
2008-05-01 16:42
肖焰
Rank: 1
等 级:新手上路
帖 子:25
专家分:0
注 册:2008-3-20
收藏
得分:0 
一起交流VB   群60925017
   希望大家支持
2008-05-02 00:05
肖焰
Rank: 1
等 级:新手上路
帖 子:25
专家分:0
注 册:2008-3-20
收藏
得分:0 
一起交流VB   群60925017
   希望大家支持
2008-05-02 00:09
清澂居士
Rank: 6Rank: 6
等 级:贵宾
威 望:28
帖 子:1237
专家分:7
注 册:2006-12-19
收藏
得分:0 
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

佛曰:\"前世的500次回眸才换来今生的一次擦肩而过\".我宁愿用来世的一次擦肩而过来换得今生的500次回眸.
2008-05-03 22:39
清澂居士
Rank: 6Rank: 6
等 级:贵宾
威 望:28
帖 子:1237
专家分:7
注 册:2006-12-19
收藏
得分:0 
要先引用DIRECTX8。。。

佛曰:\"前世的500次回眸才换来今生的一次擦肩而过\".我宁愿用来世的一次擦肩而过来换得今生的500次回眸.
2008-05-03 22:39
快速回复:愁死我了...没牛人解答么?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.018739 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved