- UID
- 1
- 帖子
- 11122
- 积分
- 7224
- 紫菀
- 102 朵
- 花瓣
- 9777 片
- 花蕊
- 1613 朵
- 野草莓
- 301 个
- 蒲公英
- 491 朵
- 社区等级
- 200 级
- 在线时间
- 5246 小时
- 注册时间
- 2006-7-9
- 蜗居何地
- 浙江台州
- 登录状态
-
当前离线
|
楼主
发表于 2007-8-30 18:39
| 只看该作者
VBS dim shuapin(5),n,a,b
n=0
a=0
b=0
While n<6
VBSCall shuapin(n)=inputbox("请输入刷屏内容")
n=n+1
EndFor
While a<6
SayExpression shuapin(a)
KeyDown 18 1
KeyPress 83 1
KeyUp 18 1
Delay 1000
a=a+1
EndFor |
|