中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --
联盟域名：www.cn-dos.net　论坛域名：www.cn-dos.net/forum

游客 | 登录 | 注册 | 会员 | 搜索 | 中国DOS联盟

中国DOS联盟论坛
现在时间是 2026-08-02 05:39

共 48,037 主题排行 / 350,122 发帖 / 今日 2 篇 / 48,250 会员排行

DOS批处理 & 脚本技术（批处理室） » 谁能帮忙编个VBS做一件不可能的事

可打印版本　1,865 / 5

第1楼　hdshjffdd	发表于 2006-08-16 16:31
初级用户　发帖 53　积分 131
谁能帮忙编个VBS做一件不可能的事每隔三秒将前台运行的Notepad文本框的第一行写到新文件中，并清空Notepad。谢谢！

第2楼　electronixtar	发表于 2006-08-16 17:00
铂金会员　发帖 2,672　积分 7,493
你的问题太…… 讲个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 ]

第3楼　lxmxn	发表于 2006-10-08 11:35
版主　发帖 4,938　积分 11,386
2楼的兄弟可否把代码写出来，不能调试不要紧，我们会试着调试运行的。只是我不知道InternetExplorer.Application对象的具体用法。：）

第4楼　electronixtar	发表于 2006-10-08 20:33
铂金会员　发帖 2,672　积分 7,493
关于读取剪贴板的vbs，论坛上有很多，多搜索下就能找到。现在完美的方法不是 InternetExplorer.Application ，而是 htmlfile 对象

第5楼　3742668	发表于 2006-10-12 07:43
荣誉版主　发帖 718　积分 2,013
关于读取剪贴板: 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楼　electronixtar	发表于 2006-10-12 22:00
铂金会员　发帖 2,672　积分 7,493
GetObject("about:blank") 长见识了

[ 联系联盟系统管理团队 - 中国DOS联盟 - 标准版 ]
Sponsored by ifanr Inc | © 2001–2023