小弟我用vb做 的一个小程序（检测鼠标键盘）

其实不用Hook，也不用模块，检查系统闲置时间已有专用函数，不必这么复杂。

完整代码如下：

Option Explicit

Private Declare Function GetLastInputInfo Lib "user32" (plii As LASTINPUTINFO) As Boolean

Private Declare Function GetTickCount Lib "kernel32" () As Long

Private Type LASTINPUTINFO

cbSize As Long

dwTime As Long

End Type

Dim lii As LASTINPUTINFO

Private Sub Form_Load()

Timer1.Interval = 1000

lii.cbSize = Len(lii)

End Sub

Private Sub Timer1_Timer()

If GetLastInputInfo(lii) Then

If (GetTickCount - lii.dwTime) / 60000 >= 15 Then

Shell "shutdown.exe -s -t 180"

Call MsgBox("由于本机15分钟没有 *** 作，如果3分钟后没有反应，系统将强制关机", vbYesNo + vbExclamation + vbDefaultButton2, "提示")

End If

End If

End Sub

一般来说是PLC控制程序，逻辑控制程序。

根据你的逻辑控制，输入点的状态，控制输出点。

例如 台湾新代数控系统的PLC逻辑程序，也会称为MLC程序

---