VBS自带保存Notepad
来源:互联网 发布:美国网络小说 知乎 编辑:程序博客网 时间:2024/04/20 12:43
Dim WshSh
AutoSaveTime=2000
Set WshShell=WScript.CreateObject("WScript.Shell")
TXTFileName=InputBox("请输入你要创建的文件名(不能用中文和纯数字):")
'第二部分:打开并激活记事本
WshShell.Run "notepad"
WScript.Sleep 200
WshShell.AppActivate "Untitled-Notepad"
'第三部分:用输入的文件名存盘
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
AutoSaveTime=2000
Set WshShell=WScript.CreateObject("WScript.Shell")
TXTFileName=InputBox("请输入你要创建的文件名(不能用中文和纯数字):")
'第二部分:打开并激活记事本
WshShell.Run "notepad"
WScript.Sleep 200
WshShell.AppActivate "Untitled-Notepad"
'第三部分:用输入的文件名存盘
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自带保存Notepad
- Notepad++ 自带代码自动提示功能
- windows技巧——notepad2 取代自带 notepad ,功能强大!
- android自带示例notepad学习笔记一
- ini文件的手动修改 一定要用notePad++等,而不要用操作系统自带的notepad.txt
- VBS杀进程notepad.exe为例
- 一条命令替换掉讨厌的系统自带记事本,极力推荐"notepad 2"
- notepad++构建编译器调试器。vs自带编译器和gcc,gdb两个版本。
- 添加Eclipse自带的“保存”菜单及按钮
- python 自带 web服务器-保存为start_server.bat
- Notepad++ 自定義關鍵字
- android操作文件,保存在手机自带存储上和保存在SD卡上
- QT-notepad 打开/保存文件
- 如何使notepad++自动保存
- Vbs调用COM之打开/保存文件
- VBS 保存共享文件夹到本地
- windows 7自带的截图工具不能保存时怎么办
- (2)java自带软件包javax.crypto的使用方法,保存generator中生成的key
- JEP-公式解析器
- 深入浅出PowerShell——设置用户群组
- poj 3169 差分约束 + spfa
- 10个奇特的HTML5 Canvas应用试验
- python编辑器IDLE的快捷键(随时补充)
- VBS自带保存Notepad
- sharepoint 文档点击数
- Javascript正则表达式详解
- HTTP中的301重定向和302暂重定
- 拷贝文字到剪贴板firefox ie 通用js函数
- norains的专栏
- 网络中的A类、B类、C类地址的划分
- Visual Studio预览版完成 或于下周发布
- ASP目录遍历