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

[其他] 【已解决】帮我完善(百度搜索剪切板内容.bat),谢谢

本帖最后由 yyz219 于 2022-7-21 16:01 编辑

百度搜索剪切板内容(完美版本).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.*
  7.     if defined TXT 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
复制代码
*******下面是需要修改的*********************************************************
百度搜索剪切板内容.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.*
  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
复制代码


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

百度搜索剪切板内容(修正).bat,加了两行代码以后,不会跳出提示。但是,剪切板上(空、或者 是文件)的时候,会打开百度主页(这是我不希望的)

百度搜索剪切板内容(修正).bat:

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

回复 2# flashercs


    成功了,非常感谢
我是小白,希望老师多多帮助

TOP

回复 2# flashercs


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

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.*
  7.     if defined TXT 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

评分人数

微信:flashercs
QQ:49908356

TOP

返回列表