小弟我用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

金q鱼的吃法有很多：红烧金q鱼、烤金q鱼、山葵黄油金q鱼、醋烧金q鱼、清蒸金q鱼等等。

金q鱼和其他鱼类一样也含有大量的蛋白质，鱼类的蛋白质都为优质蛋白，食用金q鱼能为机体补充大量的氨基酸和蛋白质，能促进机体内部的蛋白质的更新和免疫蛋白的合成，对增强体质和增强免疫能力有很大的帮助。

在日常生活当中我们最常吃的就是红烧金q鱼，下面告诉大家红烧金q鱼的做法，做法也是很简单的。

准备工作：金q鱼两条、红辣椒一段、姜一块、葱一颗、油适量、酱油、适量、红烧汁。

第一步：金q鱼清洗干净，去头，鱼身上划几刀。辣椒姜葱陆答辩切丝备用。

第二步举兄：锅中放入适量油煎至金黄返边再煎金黄放入辣椒和姜丝和葱丝红烧汁和酱油焖香即可。

第四早缺步： 装盘，最后撒上葱丝淋上锅底少许的汤即可。

---