【已解决】帮我完善（百度搜索剪切板内容.bat），谢谢

yyz219 · 发表于 2022-7-21 13:53:10

本帖最后由 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:13

@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:52

回复 2# flashercs

我试一试先，辛苦了

yyz219 · 发表于 2022-7-21 15:53:28

回复 2# flashercs

成功了，非常感谢

		自动登录	找回密码
密码			注册

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

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

评分