タイトル : OSのアイドル時間を取得したい 投稿日 : 2007/03/05(Mon) 11:14 投稿者 : TIFBLUE
VB2005にてVB6.0アプリを作り変えているところなのですが。 VB6.0で行っていたOSのアイドル時間の取得がVB2005では出来なくて苦しんでいます。 VB6.0ではGetLastinputinfo APIを使って取得していました。 VB2005でも同様に取得したいと思ってコードを移植したのですが 構造体パラメータの値が絶えずゼロで戻ってきます。 VB2005では無理なのでしょうか・・・ 以下 モジュール内で定義 ' 最後に発生した入力イベントの時刻を取得する関数の宣言 Declare Function GetLastInputInfo Lib "user32.dll" (ByVal Plii As LASTINPUTINFO) As Integer ' 最後に発生した入力イベントの時刻を定義する構造体の宣言 Structure LASTINPUTINFO Dim cbSize As Long Dim dwTime As Long End Structure 以下フォームクラス内 Dim udtLastInputInfo As LASTINPUTINFO ' 最後に入力が行われた時刻を取得 lngResult = GetLastInputInfo(udtLastInputInfo) |