如何判断鼠标不动的时间?
解决方案 »
- 郁闷!gooole,百度了几天,都没有找到在XP下能用的抓包源吗?
- 高手请教!如何实现Sendkeys
- chinaren验证码图片的程序实现自动下载问题,大家快来帮忙或学习呀!
- 急,请问高手EXCEL VBA中当用户正在输入文本时如何响应自定义菜单事件(内详)?
- 怎样才能让IE自动注册ActiveX控件
- 关于生成EXCEL文件的问题,请问我的SQL语句错在呢?
- 在线等待,自动编号的问题
- ★★★★★★★★★如何知道文本框内容的长度★★★★★★★★★★★★
- 简单任务:运行浏览器并打开指定的地址?
- 我想知道如何把一个DLL文件注册到win98里,用什么命令啊!
- 要将winxp win2000中的注册表备份,要备份哪些文件呢?不是调用regedit.exe
- 请高手指点下面这段代码为什么在win98下面通不过?--100分,在线等
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 TypePrivate Sub Form_Load()
Dim lii As LASTINPUTINFO
lii.cbSize = Len(lii)
Do
If GetLastInputInfo(lii) Then
Debug.Print "输入空闲时间:"; GetTickCount - lii.dwTime; "ms"
End If
DoEvents
Loop
End Sub