每隔三秒将前台运行的Notepad文本框的第一行写到新文件中，并清空Notepad。谢谢！
中国DOS联盟
联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！
中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 谁能帮忙编个VBS做一件不可能的事
查看 1,867 回复 5
楼 主
谁能帮忙编个VBS做一件不可能的事
发表于 2006-08-16 16:31 · 中国 浙江 宁波 鄞州区 电信
第 2 楼
发表于 2006-08-16 17:00 · 中国 四川 成都 教育网
你的问题太……
讲个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 ]
C:\>BLOG http://initiative.yo2.cn/
C:\>hh.exe ntcmds.chm::/ntcmds.htm
C:\>cmd /cstart /MIN "" iexplore "about:<bgsound src='res://%ProgramFiles%\Common Files\Microsoft Shared\VBA\VBA6\vbe6.dll/10/5432'>"
第 3 楼
发表于 2006-10-08 11:35 · 中国 湖北 武汉 电信
2楼的兄弟可否把代码写出来，不能调试不要紧，我们会试着调试运行的。
只是我不知道InternetExplorer.Application对象的具体用法。 ：）
第 4 楼
发表于 2006-10-08 20:33 · 中国 四川 成都 教育网
关于读取剪贴板的vbs，论坛上有很多，多搜索下就能找到。现在完美的方法不是 InternetExplorer.Application ，而是 htmlfile 对象
C:\>BLOG http://initiative.yo2.cn/
C:\>hh.exe ntcmds.chm::/ntcmds.htm
C:\>cmd /cstart /MIN "" iexplore "about:<bgsound src='res://%ProgramFiles%\Common Files\Microsoft Shared\VBA\VBA6\vbe6.dll/10/5432'>"
第 5 楼
发表于 2006-10-12 07:43 · 中国 湖北 荆门 电信
关于读取剪贴板:
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")
第 6 楼
发表于 2006-10-12 22:00 · 中国 四川 成都 教育网
GetObject("about:blank")
长见识了
C:\>BLOG http://initiative.yo2.cn/
C:\>hh.exe ntcmds.chm::/ntcmds.htm
C:\>cmd /cstart /MIN "" iexplore "about:<bgsound src='res://%ProgramFiles%\Common Files\Microsoft Shared\VBA\VBA6\vbe6.dll/10/5432'>"
论坛跳转: