标题: 谁能帮忙编个VBS做一件不可能的事 [打印本页]
作者: hdshjffdd 时间: 2006-8-16 16:31 标题: 谁能帮忙编个VBS做一件不可能的事
每隔三秒将前台运行的Notepad文本框的第一行写到新文件中，并清空Notepad。谢谢！
作者: electronixtar 时间: 2006-8-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 ]
作者: lxmxn 时间: 2006-10-8 11:35
2楼的兄弟可否把代码写出来，不能调试不要紧，我们会试着调试运行的。
只是我不知道InternetExplorer.Application对象的具体用法。 ：）
作者: electronixtar 时间: 2006-10-8 20:33
关于读取剪贴板的vbs，论坛上有很多，多搜索下就能找到。现在完美的方法不是 InternetExplorer.Application ，而是 htmlfile 对象
作者: 3742668 时间: 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")
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")
作者: electronixtar 时间: 2006-10-12 22:00
| Quote: | |
|
长见识了