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

Timer1Interval = 1000

liicbSize = Len(lii)

End Sub

Private Sub Timer1_Timer()

If GetLastInputInfo(lii) Then

If (GetTickCount - liidwTime) / 60000 >= 15 Then

Shell "shutdownexe -s -t 180"

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

End If

End If

End Sub

程序包含一个标签和一个间隔1秒的时间控件

Private xx(1 To 5) As String

Private i As Integer, f As Integer

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

If KeyCode = 112 Then

f = MsgBox("你按了F1,继续吗？", vbYesNo + vbInformation, "提示")

If f = vbYes Then

Timer1Enabled = True

Else

Call Form_KeyDown(113, 0)

End If

ElseIf KeyCode = 113 Then

MsgBox "你按了F2键，结束应用程序！"

End

End If

End Sub

Private Sub Form_Load()

xx(1) = "aaaaaaaaaa"

xx(2) = "bbbbbbbbbb"

xx(3) = "cccccccccc"

xx(4) = "dddddddddd"

xx(5) = "请按F1、F2"

i = 1

End Sub

Private Sub Timer1_Timer()

Label1Caption = xx(i)

If xx(i) = "请按F1、F2" Then

Timer1Enabled = False

Call Form_KeyDown(112, 0)

End If

i = i + 1

If i > 5 Then i = 1

End Sub

你也可以手动按F1、F2 效果一样！

以上就是关于小弟我用vb做 的一个小程序（检测鼠标键盘）全部的内容，包括:小弟我用vb做 的一个小程序（检测鼠标键盘）、请教用VB编写一个自动按键小程序、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！