源码:

'函数功能：该函数返回前台窗口（用户当前工作的窗口）。
Private Declare Function GetForegroundWindow Lib "user32" () As Long


' 函数功能：该函数允许或禁止指定的窗口或控制接受鼠标输入或键盘输入。
'当输入被禁止时窗口不能接收鼠标单击和按键等类输入；当输入允许时，窗口接受所有的输入。
Private Declare Function EnableWindow Lib "user32" (ByVal hwnd As Long, _
                                                    ByVal fEnable As Long) As Long

Private Sub Timer1_Timer()
    Dim hwnd As Long
    hwnd = GetForegroundWindow
    Call EnableWindow(hwnd, False)
End Sub

学习了,   不过 . ..
有点病毒的味道  哈哈

呵呵...离病毒的程度还差很远....

一激活一个窗体就被锁死,来一个锁一个,最后所有的窗体都窗体都被锁死....还不够黑啊?

呵呵...只能算是一个恶意程序....
病毒的很多特征都没有...特别是传染性...

[[it] 本帖最后由 ioriliao 于 2008-10-24 21:51 编辑 [/it]]

学习中 如果有一天我也能写出来就好了

楼上的想做什么？？？

学习中 如果有一天我也能写出来就好了

先收藏，值得学习。