- Const ForReading=1 '常量,表示只读
- Dim fso,filePath,f,WshShell,str
- set WshShell = WScript.CreateObject("WScript.Shell")'创建 wsh 对象,可以获取系统环境变量的访问、创建快捷方式、访问Windows的特殊文件夹
- Set fso=CreateObject("Scripting.FileSystemObject")'创建fso对象,来处理文件夹和文件
- filePath="d:\h.txt"
- Set f=fso.OpenTextFile(filePath,ForReading)'打开文本文件,常量为1表示只读
- WScript.Sleep 1000 '休眠1秒
- for i=0 to 3
- str=f.ReadLine'读取1行
- WshShell.SendKeys str'向活动窗口发送键盘文字
- WScript.Sleep 500
- WshShell.SendKeys "{ENTER}"
- next
-
-
-
- f.Close
- Set fso=Nothing
- Set f=Nothing
- Set WshShell=nothing
复制代码
|