【已解决】求整合：将VBS（两行代码）写入批处理，谢谢

yyz219

希望将VBS写入批处理里面（最后成为一个批处理就解决问题）

TXT.vbs：

1. ' 【两行表示：出现错误不提示】
   
2. '******************************************************************************************************************
   
3. On Error Resume Next
   
4. Set objShell=CreateObject("Wscript.Shell")

复制代码

百度搜索剪切板内容.bat：

1. @echo off  %【百度搜索剪切板内容】%
   
2. set LLQ=d:\1绿色软件\网络\浏览器\便携版百分3.2.4.23\chrome.exe
   
3. more +8 %0>>TXT.vbs
   
4. TXT.vbs
   
5. set /p TXT=<TXT.$
   
6. del TXT.vbs TXT.$
   
7. start "" "%LLQ%" "www.baidu.com/s?wd=%TXT%&ie=UTF-8"
   
8. exit
   
9. ' 2>nul&@start wscript -e:vbs "%~f0"&goto :eof
   
10. Set objHTML=CreateObject("htmlfile")
    
11. ClipboardText=objHTML.ParentWindow.ClipboardData.GetData("text")
    
12. set fso=wscript.createobject("scripting.filesystemobject")
    
13. set file=fso.opentextfile("TXT.$",8,true)
    
14. file.writeline ClipboardText

复制代码

***********************************************

LJY4.0

1.    @echo off  %【百度搜索剪切板内容】%
   
2.     set LLQ=d:\1绿色软件\网络\浏览器\便携版百分3.2.4.23\chrome.exe
   
3.     more +8 %0>>TXT.vbs
   
4.     TXT.vbs
   
5.     set /p TXT=<TXT.$
   
6.     del TXT.vbs TXT.$
   
7.     start "" "%LLQ%" "www.baidu.com/s?wd=%TXT%&ie=UTF-8"
   
8.     exit
   
9.     ' 2>nul&@start wscript -e:vbs "%~f0"&goto :eof
   
10.     On Error Resume Next
    
11.     Set objShell=CreateObject("Wscript.Shell")
    
12.     Set objHTML=CreateObject("htmlfile")
    
13.     ClipboardText=objHTML.ParentWindow.ClipboardData.GetData("text")
    
14.     set fso=wscript.createobject("scripting.filesystemobject")
    
15.     set file=fso.opentextfile("TXT.$",8,true)
    
16.     file.writeline ClipboardText

复制代码

yyz219

回复 2# LJY4.0

我试一试先，辛苦了

yyz219

回复 2# LJY4.0

问题好像解决了，非常感谢

能够告诉我修改了那里吗？

yyz219

回复 2# LJY4.0

发现了，增加了两行：

@echo off  %【百度搜索剪切板内容】%
    set LLQ=d:\1绿色软件\网络\浏览器\便携版百分3.2.4.23\chrome.exe
    more +8 %0>>TXT.vbs
    TXT.vbs
    set /p TXT=<TXT.$
    del TXT.vbs TXT.$
    start "" "%LLQ%" "www.baidu.com/s?wd=%TXT%&ie=UTF-8"
    exit
    ' 2>nul&@start wscript -e:vbs "%~f0"&goto :eof
    On Error Resume Next
    Set objShell=CreateObject("Wscript.Shell")
    Set objHTML=CreateObject("htmlfile")
    ClipboardText=objHTML.ParentWindow.ClipboardData.GetData("text")
    set fso=wscript.createobject("scripting.filesystemobject")
    set file=fso.opentextfile("TXT.$",8,true)
    file.writeline ClipboardText