源码:

'函数功能：该函数返回前台窗口（用户当前工作的窗口）。
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]]