Z zanpen2001 Unregistered / Unconfirmed GUEST, unregistred user! 2001-07-26 #1 各位老兄：我想编一个恶作剧的程序，其中有一项要使键盘失灵，请高手指教。
V vinsa Unregistered / Unconfirmed GUEST, unregistred user! 2001-07-26 #2 做一个钩子勾住键盘不行吗？ 键盘钩子的代码参照以前的贴子！
A alol Unregistered / Unconfirmed GUEST, unregistred user! 2001-07-26 #3 拔掉键盘线不就解决了吗！也可以把鼠标线也拔掉！ 呵呵，开个玩笑！我不会啊！
Z zanpen2001 Unregistered / Unconfirmed GUEST, unregistred user! 2001-07-26 #4 对不起，如果你要笑，请先戴上护齿。 什么是键盘钩子？
Z zanpen2001 Unregistered / Unconfirmed GUEST, unregistred user! 2001-07-26 #5 还要补充一下，我看了前面的贴子，好像很难。请各位多费心吧。这次的分数只给一个人。 谁把我教明白了给谁。
F Fyx Unregistered / Unconfirmed GUEST, unregistred user! 2001-07-26 #6 干什么要锁别人键盘？ 锁键盘 procedure TForm1.Button1Click(Sender: TObject); begin Asm //封锁20端口 IN AL,21H OR AL,02H OUT 21H,AL end; end; 解锁键盘： procedure TForm1.Button2Click(Sender: TObject); begin Asm //解锁20端口 IN AL,21H AND AL,0FDH OUT 21H,AL end; end;
干什么要锁别人键盘？ 锁键盘 procedure TForm1.Button1Click(Sender: TObject); begin Asm //封锁20端口 IN AL,21H OR AL,02H OUT 21H,AL end; end; 解锁键盘： procedure TForm1.Button2Click(Sender: TObject); begin Asm //解锁20端口 IN AL,21H AND AL,0FDH OUT 21H,AL end; end;
Z zanpen2001 Unregistered / Unconfirmed GUEST, unregistred user! 2001-07-26 #7 谢谢！我想写个恶作剧的程序，程序开始先跳出一个小人来，吹气球，吹到整个屏幕大，然后炸开，同时锁住键盘。 只是贪玩。谢了！这50分给你，请笑纳！
