中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net  论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客:  注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »
中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 谁能帮忙编个VBS做一件不可能的事
作者:
标题: 谁能帮忙编个VBS做一件不可能的事 上一主题 | 下一主题
hdshjffdd
初级用户





积分 131
发帖 53
注册 2006-7-31
状态 离线
『楼 主』:  谁能帮忙编个VBS做一件不可能的事

每隔三秒将前台运行的Notepad文本框的第一行写到新文件中，并清空Notepad。谢谢！

2006-8-16 16:31
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
electronixtar
铂金会员





积分 7493
发帖 2672
注册 2005-9-2
状态 离线
『第 2 楼』:  

你的问题太……

讲个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'>"
2006-8-16 17:00
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
lxmxn
版主




积分 11386
发帖 4938
注册 2006-7-23
状态 离线
『第 3 楼』:  


2楼的兄弟可否把代码写出来，不能调试不要紧，我们会试着调试运行的。

只是我不知道InternetExplorer.Application对象的具体用法。 ：）

2006-10-8 11:35
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
electronixtar
铂金会员





积分 7493
发帖 2672
注册 2005-9-2
状态 离线
『第 4 楼』:  

关于读取剪贴板的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'>"
2006-10-8 20:33
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
3742668
荣誉版主





积分 2013
发帖 718
注册 2006-2-18
状态 离线
『第 5 楼』:  

关于读取剪贴板:
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")


2006-10-12 07:43
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
electronixtar
铂金会员





积分 7493
发帖 2672
注册 2005-9-2
状态 离线
『第 6 楼』:  



  Quote:
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'>"
2006-10-12 22:00
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复

请注意：您目前尚未注册或登录，请您注册或登录以使用论坛的各项功能，例如发表和回复帖子等。


可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题



论坛跳转:  



[ 联系联盟系统管理团队 - 中国DOS联盟 ]

Sponsored by ifanr Inc | © 2001-2023