批处理之家 - Powered by Discuz! Board

标题: [其他] 【已解决】帮我完善（百度搜索剪切板内容.bat），谢谢 [打印本页]

作者: yyz219 时间: 2022-7-21 13:53 标题: 【已解决】帮我完善（百度搜索剪切板内容.bat），谢谢

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

百度搜索剪切板内容（完美版本）.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.*
    if defined 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
复制代码

*******下面是需要修改的*********************************************************
百度搜索剪切板内容.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
    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
复制代码

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

百度搜索剪切板内容（修正）.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

作者: flashercs 时间: 2022-7-21 15:31

@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.*
    if defined 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
复制代码

作者: yyz219 时间: 2022-7-21 15:46

回复 2# flashercs

我试一试先，辛苦了

作者: yyz219 时间: 2022-7-21 15:53

回复 2# flashercs

成功了，非常感谢

欢迎光临批处理之家 (http://www.bathome.net/)