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

lovealei

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

下面的是VBS代码，

1. 
   
2. Set enc = CreateObject("Base64Lib.Base64Object")
   
3. 
   
4. realname = InputBox("请输入姓名:", "+++++++++++++++++++++++++++++", "请在这里输入姓名")
   
5. 'if realname="" then wscript.quit
   
6. jmname = enc.Base64Encode(realname, 1, 1)
   
7. 
   
8. Set objIE = CreateObject("InternetExplorer.Application")  
   
9. objIE.Navigate("about:blank")  
   
10. objIE.document.parentwindow.clipboardData.SetData "text", jmname
    
11. objIE.Quit

复制代码

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


谢谢!

CrLf

可以用 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

复制代码

lovealei

哇，哥的效率真是快，我先去测试，行了再好好学习是什么意思