VB鍵盤鼠標(biāo)無動作調(diào)用程序的嘗試
我想要實(shí)現(xiàn)的功能是，當(dāng)鍵盤無輸入、鼠標(biāo)無移動或點(diǎn)擊動作時調(diào)用程序。首先想到的是用鉤子HOOK來獲取鍵盤或者鼠標(biāo)的動作，如果無動作時調(diào)用程序。我嘗試的結(jié)果是HOOK來HOOK去總是有問題。
后來想到Windows的屏幕保護(hù)程序就是當(dāng)鍵盤鼠標(biāo)無動作時進(jìn)入屏幕保護(hù)的，于是改變思路，想把程序做成這樣的形式，鍵盤鼠標(biāo)無動作，系統(tǒng)進(jìn)入屏幕保護(hù)，然后檢測系統(tǒng)是否運(yùn)行屏幕保護(hù)程序，如果運(yùn)行的話則調(diào)用程序。這種方式就是以屏幕保護(hù)程序作為中介，把檢測鍵盤鼠標(biāo)動作的工作交給屏幕保護(hù)程序來完成了。SystemParametersInfo可以實(shí)現(xiàn)獲取屏幕保護(hù)信息的函數(shù)。參考代碼如下：
'API調(diào)用與常用定義：
Private Declare Function SystemParametersInfo _
Lib "user32" _
Alias "SystemParametersInfoA" _
(ByVal uiAction As Long, _
ByVal uiParam As Long, _
pvParam As Any, _
ByVal fWInIni As Long) As Boolean
Private Const SPI_GETSCREENSAVEACTIVE As Long = &H10 '屏保是否啟用的常量
Private Const SPI_GETSCREENSAVERRUNNING As Long = &H72 '屏保是否運(yùn)行的常量
Private Sub Timer1_Timer()
Dim bRunning As Boolean '屏保是否運(yùn)行的變量,當(dāng)然你可以定義全局變量
SystemParametersInfo SPI_GETSCREENSAVERRUNNING, 0, bRunning, False '調(diào)用API,bRunning返回屏保運(yùn)行狀態(tài)
Debug.Print Time; "屏保運(yùn)行="; bRunning '演示:打印屏保是否運(yùn)行的信息
End Sub
'另外,查看屏保是否啟用,也可以用下面方法:
SystemParametersInfo SPI_GETSCREENSAVEACTIVE, 0, bActive, False 'bActive為返回值(邏輯型)
可是不知道為什么我在WIN7下調(diào)試還是有問題，提示SystemParametersInfo SPI_GETSCREENSAVERRUNNING, 0, bRunning, False
中的bRunning類型錯誤，只能作罷。
最后來說一下最終實(shí)現(xiàn)的方案是使用GetLastInputInfo函數(shù)獲取系統(tǒng)的空閑時間，參考代碼如下：
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
Private Sub Form_Load()
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
Dim lii As LASTINPUTINFO
lii.cbSize = Len(lii)
If GetLastInputInfo(lii) Then
If (GetTickCount - lii.dwTime) / 60000 >= 15 Then
Call MsgBox("由于本機(jī)15分鐘沒有操作，如果3分鐘后沒有反應(yīng)，系統(tǒng)將強(qiáng)制關(guān)機(jī)", vbYesNo + vbExclamation + vbDefaultButton2, "提示")
End If
End If
End Sub
以上所述就是本文的全部內(nèi)容了，希望大家能夠喜歡。
相關(guān)文章
這篇文章主要介紹了VBA中操作Excel常用方法總結(jié),包含關(guān)閉工作簿、打開工作簿、切換工作表等,需要的朋友可以參考下2014-07-07
VB6實(shí)現(xiàn)連接Access數(shù)據(jù)庫的ADODB代碼實(shí)現(xiàn)方法
這篇文章主要介紹了VB6實(shí)現(xiàn)連接Access數(shù)據(jù)庫的ADODB代碼實(shí)現(xiàn)方法,對于初學(xué)者掌握VB鏈接access數(shù)據(jù)庫有著很好的借鑒價值,需要的朋友可以參考下2014-07-07
這篇文章主要介紹了VB實(shí)現(xiàn)的倒計時類代碼,非常實(shí)用的功能,需要的朋友可以參考下2014-07-07
VB中使用WMI獲取系統(tǒng)硬件和軟件有關(guān)信息
WMI是英文Windows Management Instrumentation的簡寫，它的功能主要是：訪問本地主機(jī)的一些信息和服務(wù)，可以管理遠(yuǎn)程計算機(jī)（當(dāng)然你必須要擁有足夠的權(quán)限），比如：重啟，關(guān)機(jī)，關(guān)閉進(jìn)程，創(chuàng)建進(jìn)程等2019-04-04
VB讀取線程、句柄及寫入內(nèi)存的API代碼實(shí)例
這篇文章主要介紹了VB讀取線程、句柄及寫入內(nèi)存的API代碼實(shí)例,需要的朋友可以參考下2014-07-07
VB的TextBox文本框?qū)崿F(xiàn)垂直居中顯示的方法
這篇文章主要介紹了VB的TextBox文本框?qū)崿F(xiàn)垂直居中顯示的方法,比較實(shí)用的功能,需要的朋友可以參考下2014-07-07
VB實(shí)現(xiàn)的《QQ美女找茬游戲》實(shí)例
這篇文章主要介紹了VB實(shí)現(xiàn)的《QQ美女找茬游戲》,以一個完整實(shí)例形式分析了VB實(shí)現(xiàn)《QQ美女找茬游戲》的相關(guān)技巧,需要的朋友可以參考下2015-06-06
這篇文章主要介紹了VB6中的LSet語句和RSet語句詳解,LSet語句和RSet語句不太常用,所以知道的人不多,需要的朋友可以參考下2014-07-07
這篇文章主要介紹了VB鍵盤鼠標(biāo)無動作調(diào)用程序的嘗試，記錄下整個思路和過程，有需要的小伙伴可以參考下。2015-06-06
這篇文章主要介紹了VB十七種可用一行代碼完成判斷的技巧代碼,需要的朋友可以參考下2022-12-12