Board logo

标题: [其他] 【已解决】求整合：将VBS（两行代码）写入批处理，谢谢 [打印本页]
作者: yyz219    时间: 2022-7-21 09:28     标题: 【已解决】求整合：将VBS（两行代码）写入批处理，谢谢

本帖最后由 yyz219 于 2022-7-21 11:17 编辑

希望将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    时间: 2022-7-21 10:45

  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    时间: 2022-7-21 10:49

回复 2# LJY4.0

我试一试先，辛苦了
作者: yyz219    时间: 2022-7-21 11:06

回复 2# LJY4.0

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

能够告诉我修改了那里吗？
作者: yyz219    时间: 2022-7-21 11:16

回复 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



欢迎光临 批处理之家 (http://bbs.bathome.net/) Powered by Discuz! 7.2