【已解決】幫我完善百度搜索剪切板內容bat謝謝最后由 yyz219 于 -7-21 16:01百度搜索剪切板內容（完美版本）.bat：

@echo off%【百度搜索剪切板內容】%
set LLQ=d:1綠色軟件網絡瀏覽器便攜版百分3.2.4.23chrome.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
nclick="copycode($('code0'));">復制代碼

*******下面是需要修改的*********************************************************百度搜索剪切板內容.bat：

 @echo off%【百度搜索剪切板內容】%
set LLQ=d:1綠色軟件網絡瀏覽器便攜版百分3.2.4.23chrome.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
nclick="copycode($('code1'));">復制代碼

nload="thumbImg(this)" alt="" />*************************************************************************************百度搜索剪切板內容（修正）.bat，加了兩行代碼以后，不會跳出提示。但是，剪切板上（空、或者 是文件）的時候，會打開百度主頁（這是我不希望的）百度搜索剪切板內容（修正）.bat： @echo off%【百度搜索剪切板內容】%set LLQ=d:1綠色軟件網絡瀏覽器便攜版百分3.2.4.23chrome.exemore +8 %0>TXT.vbsTXT.vbsset /p TXT=<TXT.$del TXT.*start %LLQ% www.baidu.com/s?wd=%TXT%&ie=UTF-8exit' 2>nul&@start wscript -e:vbs %~f0&goto :eofOn Error Resume NextSet 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