谁能做一个键盘打字时记录打下打某些健所用的时间的软件.
不知道哪仁兄麻烦帮我制作一个软件,我先模拟一下软件的操作过程,但不知道各位高手能不能做出来.比如我先在软件中使用快捷键按开始记录在QQ聊天窗口里面输入"你在干什么了呀"这...
不知道哪仁兄麻烦帮我制作一个软件,
我先模拟一下软件的操作过程,但不知道各位高手能不能做出来.
比如
我先在软件中使用快捷键按开始记录
在QQ聊天窗口里面输入"你在干什么了呀"这几个字
他瞬间记录下我打这几个字所用的时间,可以吗?
这貌似有点不精确,
或者是我在软件中规定打什么字,
比如同样是"你在干什么了呀"
然后我点开始健,打,当我打到"呀"这最后一个字的时候,他自动弹出所用时间的窗口.
一按字母就开始.Enter键结束吧 展开
我先模拟一下软件的操作过程,但不知道各位高手能不能做出来.
比如
我先在软件中使用快捷键按开始记录
在QQ聊天窗口里面输入"你在干什么了呀"这几个字
他瞬间记录下我打这几个字所用的时间,可以吗?
这貌似有点不精确,
或者是我在软件中规定打什么字,
比如同样是"你在干什么了呀"
然后我点开始健,打,当我打到"呀"这最后一个字的时候,他自动弹出所用时间的窗口.
一按字母就开始.Enter键结束吧 展开
1个回答
展开全部
打字时间是可以确定的··但是你要给一个结束的标准啊···点开始键后怎么结束的啊?是具体一个字还是什么的? 最简单的方法是加一个timer,
dim i as long
private sub form_load()
timer1.interval=50
timer1.enabled=false
end sub
private sub command1_click()
timer1.enabled=true
end sub
private sub timer1_timer()
i=i+1
end sub
private sub text1_keypress(keyascii as ???)
if timer1.enabled=false then timer1.enabled=true
if keyascii=13 then
timer1.enabled=false
msgbox "总共用时" & i*50 & "毫秒"
i=0
end if
end sub
这个是最简单的单程序的,如果是其他程序的话要用键盘钩子,要更精确的话要用API函数(具体忘记了额···上网查下就好)···
dim i as long
private sub form_load()
timer1.interval=50
timer1.enabled=false
end sub
private sub command1_click()
timer1.enabled=true
end sub
private sub timer1_timer()
i=i+1
end sub
private sub text1_keypress(keyascii as ???)
if timer1.enabled=false then timer1.enabled=true
if keyascii=13 then
timer1.enabled=false
msgbox "总共用时" & i*50 & "毫秒"
i=0
end if
end sub
这个是最简单的单程序的,如果是其他程序的话要用键盘钩子,要更精确的话要用API函数(具体忘记了额···上网查下就好)···
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询