如何用VB寫一個鎖住螢幕的程式?

Question

麻煩幫忙想一個鎖住螢幕的程式碼

要用VB6.0寫的喔

要鎖住所有按鍵(包括功能鍵EX:Ctrl＋Alt＋Del)

如果滑鼠也鎖住那更好~^ ^~

只要提供程式碼就可以了~謝謝嚕~

Answer 1

Declare Function BlockInput Lib "user32" (ByVal fBlockIt As Long) As Long
Private Sub Command1_Click()
BlockInput True
End Sub
這樣鍵盤滑鼠就全失效了
問題是滑鼠鍵盤都鎖住了你要如何來解除他阿

2005-11-21 22:28:02 補充：
我試過可以用拉
你在Declare前面加上Private試試
模組內的話要改成Public
Private Declare Function BlockInput Lib "user32" (ByVal fBlockIt As Long) As Long

我做來測試的http://home.pchome.com.tw/net/z128375208/VB/Key.exe

2005-11-22 10:16:45 補充：
鍵盤滑鼠都失效不用定時復原
就準備重開機吧
你可以狠一點
將執行動作跟復原時間
全都寫入登入檔
這樣重開機還是一樣鎖

2005-11-22 13:01:17 補充：
http://home.pchome.com.tw/net/z128375208/VB/Key2.exe
這裡面一切都是假的
輸入密碼按Enter啟動
啟動必須後輸入剛剛那密碼才會結束

2005-11-23 21:02:31 補充：
我就已經說一切都是假的了
根本沒鎖任何東西 ( 包括螢幕 )

http://home.pchome.com.tw/net/z128375208/VB/Key2.exe
當時沒開喇叭不知道會吵
改了一下現在不會吵了
不過按Windows快速鍵還是會有殘影
其他快速鍵也只有你知道吧

Answer 2

成功了不過ctrl+alt+delete還是可以用

Answer 3

TO月上柳梢頭:
Key2做得還不錯
但是鎖住時的雜音很吵..
而且按ctrl或alt再加功能鍵還是有效= =

Answer 4

Declare Function BlockInput Lib "user32" (ByVal fBlockIt As Long) As Long
Private Sub Command1_Click()
BlockInput True
End Sub
這樣鍵盤滑鼠就全失效了
問題是滑鼠鍵盤都鎖住了你要如何來解除他阿

大大說的可以用..不過他放錯地方嚕喔^^
Declare Function BlockInput Lib "user32" (ByVal fBlockIt As Long) As Long
請放到模組去 @.@"這樣就出來了耶^^~ 快點給大大最佳吧..以便以後觀賞0.0"

2005-11-22 08:17:54 補充：
To:火炎焱燚 應該沒用喔..他不是鎖..他是讓他失效..XD...一樣滑鼠不能動^^~

Answer 5

Ctrl+Alt+Del這個組合鍵不能鎖吧..