VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト]
[新規投稿]
[新着記事]
[ワード検索]
[管理用]
| 投稿日 | ： 2006/09/07(Thu) 01:13 |
| 投稿者 | ： Starfish |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^5: PC電源管理アプリを作る |
> 管理対象PCの状態遷移定数など考えるのは楽しいですね。
> -1：ポーリング応答なし（おまえは既に死んでいる）
> 0：CPU使用率10%以上
> 1：CPU使用率10%未満（連続1回目）
> 2：CPU使用率10%未満（連続2回目）
> (以下同様)
CPUの使用率で10%未満だったら使っていないって、かなり微妙(^^;
クライアントに仕込む必要がありますが、こんなのもあります。（W2K以降）
Public Declare Function GetTickCount Lib "kernel32" () As Long
Public Declare Function GetLastInputInfo Lib "user32" (pLastInputInfo As LASTINPUTINFO) As Long
Public Type LASTINPUTINFO
cbSize As Long
dwTime As Long
End Type
Private Sub Timer1_Timer()
Dim udtLastInputInfo As LASTINPUTINFO
udtLastInputInfo.cbSize = Len(udtLastInputInfo)
Call GetLastInputInfo(udtLastInputInfo)
Label1.Caption = "アイドル時間" & CStr(CInt((GetTickCount - udtLastInputInfo.dwTime) \ 1000)) & "秒"
End Sub
実際に使う場合は、負数や逆転する場合を考慮してください。
- 関連一覧ツリー
（★ をクリックするとツリー全体を一括表示します）
- 返信フォーム
（この記事に返信する場合は下記フォームから投稿して下さい）