帮忙看看:函数GetLastInputInfo的使用,错哪里了?

bxf 2004-10-06 10:58:05
'模块中声明
Public Type PLASTINPUTINFO
cbSize As Integer
dwTime As Long
End Type
Public lpi As PLASTINPUTINFO

Public Declare Function GetLastInputInfo Lib "user32" (ByRef plii As PLASTINPUTINFO) As Boolean

'窗体中的计时器
Private Sub Timer1_Timer()
lpi.cbSize = 6
GetLastInputInfo lpi
'Debug.Print lpi.dwTime
If lpi.dwTime > 5 Then
frm1.Show
End If
End Sub
...全文
284 12 打赏 收藏 举报
写回复
12 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
tztz520 2004-10-06
'不好意思,漏了一行.
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 Timer1_Timer()
lii.cbSize = Len(lii)
GetLastInputInfo lii
Debug.Print GetTickCount - lii.dwTime
End Sub
  • 打赏
  • 举报
回复
tztz520 2004-10-06
'这样的.
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 Timer1_Timer()
lii.cbSize = Len(lii)
Debug.Print GetTickCount - lii.dwTime
End Sub
  • 打赏
  • 举报
回复
wumylove1234 2004-10-06
LASTINPUTINFO lpi;
lpi.cbSize = sizeof(lpi);
GetLastInputInfo(&lpi);

typedef struct tagLASTINPUTINFO {
UINT cbSize;
DWORD dwTime;
} LASTINPUTINFO, *PLASTINPUTINFO;
这是我找到的c的代码,可是用VB6调用不好使呀

C语言原型
  • 打赏
  • 举报
回复
bxf 2004-10-06
这个函数中dwtime返回的是鼠标键盘的空闲时间,哪位VB高手帮忙解决一下
  • 打赏
  • 举报
回复
bxf 2004-10-06
不论是
call getlastinputinfo(lpi)
还是
b1=getlastinputinfo(lpi)
都能通过,问题是
lpi.dwtime中没有返回值,F8调试还是运行都是0
  • 打赏
  • 举报
回复
bxf 2004-10-06
to:laviewpbt(人一定要靠自己)
gettickcount 干什么用的,我不懂呀,你能说的明白一些吗
  • 打赏
  • 举报
回复
“call getlastinputinfo(lpi)”不妥,Call只能调用“过程(sub)”
  • 打赏
  • 举报
回复
a_cer 2004-10-06
or

call getlastinputinfo(lpi)
  • 打赏
  • 举报
回复
我没用过这个函数,只是觉得你的用法有误。
  • 打赏
  • 举报
回复
GetLastInputInfo 是函数,不可以直接写 GetLastInputInfo lpi
可以将语句“GetLastInputInfo lpi”改成
dim bool as Boolean
bool=GetLastInputInfo(lpi)
试试。
  • 打赏
  • 举报
回复
33184777 2004-10-06
和GetTickCount一起用
  • 打赏
  • 举报
回复
bxf 2004-10-06
感谢 tztz520(午夜逛街) ,问题解决,只是基础太差,有两个地方不理解
1. GetTickCount - lii.dwTime 这句什么意思
2. cbsize在原型里是无符号整型(2个字节),你为什么使用long(4个字节)
希望你能给予回答,再次表示感谢!
  • 打赏
  • 举报
回复
相关推荐
普通用户管理模块: (1)用户注册登录:用户注册为用户并登录校园学生兼职系统;用户对个人信息的增删改查,比如个人资料,密码修改。 (2)查看校园学生兼职系统的首页信息:校园学生兼职系统的首页信息包含了首页、公告消息、兼职中心、兼职资讯、我的账户、我的收藏等。 (3)公告栏:在首页导航栏上我们会看到“校园论坛”这一菜单,我们点击进入进去以后,会看到所有管理员在后台发布的公告信息; (4)兼职资讯:在首页导航栏上我们会看到“兼职疫资讯”这一菜单,我们点击进入进去以后,会看到所有管理员在后台发布的兼职疫资讯信息,能够对喜欢的兼职资讯进行点赞,如果下次想要更快的找到这篇资讯,也可以进行收藏、评论; (5)兼职中心:在首页导航栏上我们会看到“兼职信息”这一菜单,我们点击进入进去以后,会看到所有管理员在后台发布的兼职苗信息,我们选择想要了解兼职信息,查看兼职详情信息,可以评论+点赞+收藏; (6)我的收藏:在“我的”下可以查看管理“我的收藏”信息,可以查看收藏,也可以对不喜欢的信息进行删除收藏; 管理员管理模块: (1)登录:管理员的账号是在数据表表中直接设置生成的,不需要进行注册; ……
发帖
数据库(包含打印,安装,报表)

1203

社区成员

VB 数据库(包含打印,安装,报表)
社区管理员
  • 数据库(包含打印,安装,报表)社区
加入社区
帖子事件
创建了帖子
2004-10-06 10:58
社区公告
暂无公告