中国DOS联盟论坛

中国DOS联盟

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

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

游客:  注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »
中国DOS联盟论坛 » DOS批处理 & 脚本技术(批处理室) » [已结]P能这样用吗:监控剪贴板的内容并文件进行比较
作者:
标题: [已结]P能这样用吗:监控剪贴板的内容并文件进行比较 上一主题 | 下一主题
sea1112
初级用户





积分 131
发帖 119
注册 2007-6-12
来自 gz
状态 离线
『楼 主』:  [已结]P能这样用吗:监控剪贴板的内容并文件进行比较

P运行后不停的监控键盘使用,当用户使用Ctrl+C后,P处理就自动Ctrl+V把复制的内容做为数据与另一个txt文件里的内容做对比,对比后把相同的内容全句显示在电脑的屏幕的中上方。
例子:

a.txt内容为以下
发动机转动时,首先带动( )一起转动。
答案:、泵轮

叉车作业中,下列操作正确的是( )。
答案:、装卸时制动叉车

--------------------------------------------------------------------
用户现在ctrl+C复制内容为“叉车作业中,下列操作正确的是”后,电脑屏幕中上方就出来全句内容了“叉车作业中,下列操作正确的是( )。 答案:、装卸时制动叉车 ”

───────────────── 版务记录 ─────────────────
执行:HAT
操作:[2008-10-22]在帖子标题中增加搜索关键字
说明:原标题"P能这样用吗?"不利于论坛搜索
处罚:扣除2点积分
提示:建议阅读以下帖子
{1415}提问的智慧
{7326}论坛新手必读,所有人的基本行为准则
{22703}请不要做浮躁的人
{32667}[愤怒]那些连标题都写不清楚的人们啊,你们醒醒吧
{32825}本版严厉整顿烂帖
───────────────── 版务记录 ─────────────────


[ Last edited by HAT on 2008-10-22 at 12:10 ]

   此帖被 -2 点积分    点击查看详情   
评分人:【 HAT 分数: -2  时间:2008-10-22 12:11


2008-10-22 09:22
查看资料  发送邮件  发短消息 网志  OICQ (24278528)  编辑帖子  回复  引用回复
HAT
版主





积分 9023
发帖 5017
注册 2007-5-31
状态 离线
『第 2 楼』:  

不能



2008-10-22 09:46
查看资料  发短消息 网志   编辑帖子  回复  引用回复
sea1112
初级用户





积分 131
发帖 119
注册 2007-6-12
来自 gz
状态 离线
『第 3 楼』:  



  Quote:
Originally posted by sea1112 at 2008-10-22 09:22 AM:
P运行后不停的监控键盘使用,当用户使用Ctrl+C后,P处理就自动Ctrl+V把复制的内容做为数据与另一个txt文件里的内容做对比,对比后把相同的内容全句 ...

vbs做也可以,能做到吗?
有什么方法可以做到,我用过这样的软件啊,F11录入SN的软件,

[ Last edited by sea1112 on 2008-10-22 at 09:52 ]

2008-10-22 09:49
查看资料  发送邮件  发短消息 网志  OICQ (24278528)  编辑帖子  回复  引用回复
tireless
银牌会员





积分 2025
发帖 1122
注册 2007-9-5
状态 离线
『第 4 楼』:  

AutoHotKey 应该可以

http://ahkbbs.cn/

2008-10-22 09:59
查看资料  发短消息 网志   编辑帖子  回复  引用回复
sea1112
初级用户





积分 131
发帖 119
注册 2007-6-12
来自 gz
状态 离线
『第 5 楼』:  

vbs +CMD 搞定了。

提取剪贴板内容到文件.vbs
on error resume next

Set ie=createobject("internetexplorer.application")
ie.navigate "about:blank"
ie.visible=False

set fso=createobject("scripting.filesystemobject")
set f=fso.opentextfile("c:\新建文档.txt",2,true)

while true
str=ie.document.parentwindow.clipboarddata.getdata("text")
if str<>"" then
f.Write vbCrLf&str
ie.document.parentwindow.clipboarddata.setdata "text",""
End If
WScript.Sleep 500
wend

删除文件 del.vbs

dim fso,obj
set fso=createobject("scripting.filesystemobject")
fso.deletefile "c:\新建文档.txt"

文件对比....

文件显示
MsgBox(prompt[, buttons] [, title] [, helpfile, context])

[ Last edited by sea1112 on 2008-10-22 at 13:15 ]

附件 1: photo.jpg.jpg (2008-10-22 12:31, 7.04 K)


2008-10-22 11:53
查看资料  发送邮件  发短消息 网志  OICQ (24278528)  编辑帖子  回复  引用回复
sea1112
初级用户





积分 131
发帖 119
注册 2007-6-12
来自 gz
状态 离线
『第 6 楼』:  

自问自答

2008-10-22 13:16
查看资料  发送邮件  发短消息 网志  OICQ (24278528)  编辑帖子  回复  引用回复

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


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



论坛跳转: