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

[其他] 【已解决】求整合:将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
复制代码
***********************************************
我是小白,希望老师多多帮助

回复 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
我是小白,希望老师多多帮助

TOP

回复 2# LJY4.0

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

能够告诉我修改了那里吗?
我是小白,希望老师多多帮助

TOP

回复 2# LJY4.0

我试一试先,辛苦了
我是小白,希望老师多多帮助

TOP

  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
复制代码
1

评分人数

https://pc.woozooo.com/mydisk.php

TOP

返回列表