- UID
- 1
- 帖子
- 11122
- 积分
- 7224
- 紫菀
- 102 朵
- 花瓣
- 9777 片
- 花蕊
- 1613 朵
- 野草莓
- 301 个
- 蒲公英
- 491 朵
- 社区等级
- 200 级
- 在线时间
- 5246 小时
- 注册时间
- 2006-7-9
- 蜗居何地
- 浙江台州
- 登录状态
-
当前离线
|
楼主
发表于 2007-8-30 18:27
| 只看该作者
在从零开始学起时,在我硬盘上一些曾经帮助我很多的小纸条!--Sz
方法1:
VBS Dim a,b,t
//取得现在的时间
Plugin a=GetSysInfo.GetTime()
t=1
While t=1
KeyPress 65 1
//取得现在的时间
Plugin b=GetSysInfo.GetTime()
//判断2时间的差值 ABS()是求绝对值
If ABS(b-a)>=5
KeyPress 67 1
//取得现在的时间
Plugin a=GetSysInfo.GetTime()
EndIf
EndWhile
方法2:
VBS Dim a,b,t
//取得现在的时间
a=now
t=1
While t=1
KeyPress 65 1
//取得现在的时间
b=now
//用时间 b-时间a
If DateDiff("s",a,b)>5
KeyPress 67 1
//取得现在的时间
a=now
EndIf
EndWhile |
|