每隔三秒将前台运行的Notepad文本框的第一行写到新文件中，并清空Notepad。谢谢！
中国DOS联盟
联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！
谁能帮忙编个VBS做一件不可能的事
标题：谁能帮忙编个VBS做一件不可能的事
你的问题太……
讲个vbs的思路吧，现在手头没调试工具，不好写具体代码
1. AppActivate "记事本"
2.Sendkeys Ctrl+Home
3.Sendkeys Shift+End
4.Sendkeys Ctrl+X
5.用InternetExplorer.Application对象读取剪贴板内容
6.输出文件
7.AppActivate "记事本"
8.Sendkeys Ctrl+A
9.Sendkeys del
10.WScript.sleep 3000
11.循环执行
搞定！
P.S. 最后补充下，没有什么不可能！Nothing is impossible！
[ Last edited by electronixtar on 2006-8-16 at 17:09 ]
讲个vbs的思路吧，现在手头没调试工具，不好写具体代码
1. AppActivate "记事本"
2.Sendkeys Ctrl+Home
3.Sendkeys Shift+End
4.Sendkeys Ctrl+X
5.用InternetExplorer.Application对象读取剪贴板内容
6.输出文件
7.AppActivate "记事本"
8.Sendkeys Ctrl+A
9.Sendkeys del
10.WScript.sleep 3000
11.循环执行
搞定！
P.S. 最后补充下，没有什么不可能！Nothing is impossible！
[ Last edited by electronixtar on 2006-8-16 at 17:09 ]
2楼的兄弟可否把代码写出来，不能调试不要紧，我们会试着调试运行的。
只是我不知道InternetExplorer.Application对象的具体用法。 ：）
关于读取剪贴板的vbs，论坛上有很多，多搜索下就能找到。现在完美的方法不是 InternetExplorer.Application ，而是 htmlfile 对象
关于读取剪贴板:
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Navigate("about:blank")
WScript.Echo "方法1:" & vbLf & _
objIE.document.parentwindow.clipboardData.GetData("text")
objIE.Quit
WScript.Echo "方法2:" & vbLf & _
WScript.GetObject("about:blank").parentWindow.clipboardData.getData("text")
'方法3
Wscript.Echo "方法3:" & vbLf & _
CreateObject("htmlfile").parentWindow.clipboardData.getData("text")
GetObject("about:blank")
长见识了
来源：https://www.cn-dos.net/forum/viewthread.php?tid=22649 · 打印时间 2026-08-02 04:37