【已解決】求整合將VBS兩行代碼寫入批處理謝謝最后由 yyz219 于 -7-21 11:17
希望將VBS寫入批處理里面（最后成為一個批處理就解決問題）TXT.vbs：
- ' 【兩行表示：出現錯誤不提示】
- '******************************************************************************************************************
- On Error Resume Next
- Set objShell=CreateObject(Wscript.Shell)
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.vbs 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'));">復制代碼
***********************************************
