标题: 求教 怎么用vbs重复按键
[打印本页]
作者: killer05
时间: 2007-6-11 10:08
标题: 求教 怎么用vbs重复按键
如
set ws=wscript.createobject("wscript.shell")
ws.run "2.txt"
ws.sendkeys "^s"
wscript.sleep 10000
想重复运行下面的命令
ws.sendkeys "^s"
wscript.sleep 10000
但不知道怎么用循环命令懂的教下 先谢谢
这个主要是用来保存文本的命令
作者: baomaboy
时间: 2007-6-11 12:29
循环
作者: kich
时间: 2007-6-11 12:56
你试试这个,看输出了几个"w"
ws.SendKeys "{w 4}"
作者: baomaboy
时间: 2007-6-11 13:13
| Quote: |
Originally posted by kich at 2007-6-11 12:56:
你试试这个,看输出了几个"w"
ws.SendKeys "{w 4}" |
|
kich理解错了LZ得意思，LZ要的是隔一定时间保存一次。
呵呵 表达和理解 都有失误。
作者: xue0808
时间: 2007-6-11 18:27
do
loop
作者: zh159
时间: 2007-6-11 20:59
这是网上出现最多的记事本定时保存的一段VBS脚本，自己慢慢消化：
| Quote: |
进阶实例：制作能自动定时存盘的记事本
我们最常用的记事本没有Word、WPS那样的自动定时存盘功能，其实利用VBS脚本再加上SendKeys命令，就能弥补这个遗憾。打开记事本，输入以下内容（为容易描述和分析，把代码分为四个部分）：
'第一部分：定义变量和对象
Dim WshShell, AutoSaveTime, TXTFileName
AutoSaveTime=300000
Set WshShell=WScript.CreateObject("WScript.Shell")
TXTFileName=InputBox("请输入你要创建的文件名(不能用中文和纯数字)：")
'第二部分：打开并激活记事本
WshShell.Run "notepad"
WScript.Sleep 200
WshShell.AppActivate "无标题 - 记事本"
'第三部分：用输入的文件名存盘
WshShell.SendKeys "^s"
WScript.Sleep 300
WshShell.SendKeys TXTFileName
WScript.Sleep 300
WshShell.SendKeys "%s"
WScript.Sleep AutoSaveTime
'第四部分：自动定时存盘
While WshShell.AppActivate (TXTFileName)=True
WshShell.SendKeys "^s"
WScript.Sleep AutoSaveTime
Wend
WScript.Quit
将其保存为记事本.vbs，以后要使用记事本时，都通过双击这个脚本文件来打开。
程序翻译
这个脚本的基本思路是定时向记事本发送Ctrl＋S这个存盘组合键。
第一部分：定义了脚本中需要用到的变量和对象。“AutoSaveTime”变量用来设置自动存盘间隔，单位为毫秒，这里设置为5分钟。“TXTFileName”变量通过输入框取得你要创建的文本文件名称（见图1）。
第二部分：运行记事本，对于Windows本身提供的程序，比如计算器等，可直接在“WshShell.Run”后输入程序名称，如"calc"，对于非系统程序，则可输入完全路径，但要注意使用8.3格式输入，比如“"D:\Progra~1\Tencent\QQ.exe"”。
第三部分：这里用SendKeys命令执行了这样的操作流程（请注意每个操作之间延时命令的使用）：
在记事本中按Ctrl＋S组合键→弹出保存文件的窗口→输入文件名→按Alt＋S组合键进行保存（默认保存在“我的文档”目录）。
第四部分：定时存盘的关键，通过“While……Wend”这个当条件为“真”时循环命令，实现自动存盘代码“WshShell.SendKeys "^s"”和定时代码“WScript.Sleep AutoSaveTime”的重复执行。因为不能让这个定时存盘循环一直执行，退出记事本后，必须自动退出脚本并结束循环，所以设计了一个循环判断条件“WshShell.AppActivate TXTFileName=True”，当记事本运行中时，可以激活记事本窗口，这个条件运行结果为“True”，定时存盘循环一直执行，退出记事本后，脚本无法激活记事本窗口，就会跳出循环，执行“Wend”后面的“WScript.Quit”退出脚本。 |
|
作者: killer05
时间: 2007-6-12 07:38
标题: 谢谢各位
6楼的很详细