书上有个,是只能在win98下的.还有,屏蔽 win键的代码.谢谢.

其实热键打开的也是C盘的某个文件.XP是 taskmgr 你就用OPEN语句 LOCK 所在的目录文件就可以了

LS具体`点,谢谢.

Private Sub Form_Load()On Error Resume Next Dim ped As String ped = Environ("windir") '代表系统目录 c:\windows\ ped = ped + "\system32\taskmgr.exe" '任务管理器程序Open ped For Random Lock Read As #1 End Sub好好理解吧. 多记记 代码 你会有所收获的.

在注册表HKEY_CURRENT_USERSoftware\\Microsoft\\Windows\\CurrentVersion\\Policies\\System建立一个子键DisableTaskMgr值为1

'声明：Const HKEY_CURRENT_USER = &H80000001Const REG_DWORD = 4Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As LongPrivate Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As LongPrivate Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As LongPrivate Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long'过程Private Sub SetKeyDwordValue(ByVal Key As String, ByVal SubKey As String, ByVal KeyValue_DWORD As String)Dim KeyID As LongKeyStatus = RegCreateKey(HKEY_CURRENT_USER, Key, KeyID)KeyStatus = RegCreateKey(HKEY_CURRENT_USER, Key, KeyID)KeyStatus = RegSetValueEx(KeyID, SubKey, 0&, REG_DWORD, ByVal KeyValue_DWORD, LenB(KeyValue_DWORD) + 1)KeyStatus = RegCloseKey(KeyID)End Sub'设置注册表SetKeyDwordValue("Software\Microsoft\Windows\CurrentVersion\Policies\System","DisableTaskMgr","1")

你大概又是想去做木马什么的把？哎，中国人这是怎么了，正经事情不做就知道一天到晚挖空心思研究这些东西。这也就是为什么国内的软件业落后的原因了。有种的就去写一个像超级兔子（它是vb做的）这样的受欢迎的软件阿 。

再厉害的木马也没法对ms-dos怎么样。。。。

我想他是想做一个 挂机锁吧 不然锁屏干什么。。。

嗯,10对说的对,就是做个挂机锁屏的.还有,对于8楼,国内软件落后?呵呵.

'设置注册表 SetKeyDwordValue("Software\Microsoft\Windows\CurrentVersion\Policies\System","DisableTaskMgr","1") 的这个,应该写在什么地方?

对不起了，中午发的代码有些错误，改为以下的（我在WIN2000实验过了） '声明：Const HKEY_CURRENT_USER = &H80000001Const REG_DWORD = 4Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As LongPrivate Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As LongPrivate Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As LongPrivate Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long'过程Private Sub SetKeyDwordValue(ByVal Key As String, ByVal SubKey As String, ByVal KeyValue_DWORD As Long)Dim KeyID As LongKeyStatus = RegCreateKey(HKEY_CURRENT_USER, Key, KeyID)KeyStatus = RegCreateKey(HKEY_CURRENT_USER, Key, KeyID)KeyStatus = RegSetValueEx(KeyID, SubKey, 0&, REG_DWORD, KeyValue_DWORD, LenB(KeyValue_DWORD))KeyStatus = RegCloseKey(KeyID)End Sub'设置注册表Private Sub Form_load()Call SetKeyDwordValue("Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableTaskMgr", 1)'屏蔽任务管理器程序 End Subwin键以及其他键的屏蔽去看看键盘钩子的代码吧

LS代码可以用.但,是第一次运行时,ruixing 提示在修改注册表.(所有的屏蔽,都这样吗?)

其实检测到taskmgr在运行就k掉也不错

偶写的一个鼠标锁http://bbs.cpcw.com/thread-953516-1-4.html

5~还有,刚运行后,程序关闭了,也就一直被屏蔽了.再求个等程序结束时,屏蔽的功能就停止了.谢.

16F

看的,因为实在太菜了,看不大懂.

Private Sub jiesuo_Click() '添加一个CommandButton,名称为jiesuoCall SetKeyDwordValue("Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableTaskMgr", 0)End Sub