[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
lovealei

Rank: 4

帖子
96 
积分
325 
技术
3  
捐助
0  
注册时间
2008-1-6 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 2013-7-16 17:21 | 只看该作者

[文本处理] 批处理如何从剪粘板读取内容？【已解决】

本帖最后由 lovealei 于 2013-7-16 18:09 编辑

我用VBS调用一个DLL文件，转换得到一个数据并输出到剪粘板，要怎样才能把这个数据读取并赋值给BAT的一个变量

下面的是VBS代码，
  1. Set enc = CreateObject("Base64Lib.Base64Object")

  2. 

  3. realname = InputBox("请输入姓名:", "+++++++++++++++++++++++++++++", "请在这里输入姓名")

  4. 'if realname="" then wscript.quit

  5. jmname = enc.Base64Encode(realname, 1, 1)

  6. 

  7. Set objIE = CreateObject("InternetExplorer.Application")  

  8. objIE.Navigate("about:blank")  

  9. objIE.document.parentwindow.clipboardData.SetData "text", jmname 

  10. objIE.Quit 
复制代码
这里jmname的值已经复制到剪粘板了，在批处理中我要怎么拿来用？


谢谢!
1

评分人数

    • Batcher: 感谢给帖子标题标注[已解决]字样PB + 2
收藏 分享

CrLf

Rank: 8Rank: 8

帖子
6388 
积分
18843 
技术
982  
捐助
100  
注册时间
2010-10-9 
2楼
发表于 2013-7-16 17:32 | 只看该作者
可以用 cscript 调用 vbs：
  1. @echo off

  2. for /f "delims=" %%a in ('cscript /nologo base64.vbs') do set "jmname=%%a"

  3. echo 取得的 jmname=%jmname%

  4. pause
复制代码
base64.vbs 写成：
  1. Set enc = CreateObject("Base64Lib.Base64Object")

  2. 

  3. realname = InputBox("请输入姓名:", "+++++++++++++++++++++++++++++", "请在这里输入姓名")

  4. 'if realname="" then wscript.quit

  5. jmname = enc.Base64Encode(realname, 1, 1)

  6. wscript.echo jmname
复制代码
1

评分人数

链接：在线第三方命令行工具下载   bat、vbs、js 原生混编

TOP

lovealei

Rank: 4

帖子
96 
积分
325 
技术
3  
捐助
0  
注册时间
2008-1-6 
3楼
发表于 2013-7-16 17:38 | 只看该作者
哇，哥的效率真是快，我先去测试，行了再好好学习是什么意思

TOP

返回列表