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

Rank: 5Rank: 5

帖子
754 
积分
973 
技术
4  
捐助
0  
注册时间
2021-8-30 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 2022-7-21 09:28 | 只看该作者

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

LJY4.0

Rank: 3Rank: 3

帖子
185 
积分
260 
技术
14  
捐助
0  
注册时间
2022-4-23 
2楼
发表于 2022-7-21 10:45 | 只看该作者 
  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

yyz219

Rank: 5Rank: 5

帖子
754 
积分
973 
技术
4  
捐助
0  
注册时间
2021-8-30 
3楼
发表于 2022-7-21 10:49 | 只看该作者
回复 2# LJY4.0

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

TOP

yyz219

Rank: 5Rank: 5

帖子
754 
积分
973 
技术
4  
捐助
0  
注册时间
2021-8-30 
4楼
发表于 2022-7-21 11:06 | 只看该作者
回复 2# LJY4.0

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

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

TOP

yyz219

Rank: 5Rank: 5

帖子
754 
积分
973 
技术
4  
捐助
0  
注册时间
2021-8-30 
5楼
发表于 2022-7-21 11:16 | 只看该作者
回复 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

返回列表