[其他] 【已解决】bat转exe问题求助（感谢flashercs老师）

yyz219

【下面是优秀代码】
把vbs 手动保存到TXT.vbs中,内容:

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
复制代码

然后把TXT.vbs嵌入
嵌入释放到当前目录
而批处理要改成

@echo off
TXT.vbs
set /p TXT=<TXT.$
del TXT.*
if defined TXT start ""  "https://www.baidu.com/s?ie=UTF-8&wd=%TXT%"
exit
复制代码

++++++++++++++++++++++++++++++++++++++++
【下面办法也能够解决问题】
1.将 “百度搜索剪切板内容.bat” 重命名为 “123.bat”【因为它不支持中文】，然后就看图





**********【下面是问题】******************************

工具：BAT转EXEquickbfc.exe
代码：

@echo off
more +8 %0>TXT.vbs
TXT.vbs
set /p TXT=<TXT.$
del TXT.*
if defined TXT start ""  "www.baidu.com/s?ie=UTF-8&wd=%TXT%"
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
复制代码

情况：
运行  生成的.exe，跳出错误：
脚本:        D:\桌面\Desktop\TXT.vbs
行:        1
字符:        1
错误:        无效字符
代码:        800A0408
源:         Microsoft VBScript 编译器错误

而   txt.vbs  里面有一个  ？（我估计问题就在这里）


这个问题怎样解决？谢谢

yyz219

回复 11# flashercs


    可行（虽然看不懂），非常感谢

yyz219

回复 11# flashercs


    我试一试 谢谢

flashercs

楼主不会用bat2exe啊;嵌入文件不是这样用的..
把vbs 手动保存到TXT.vbs中,内容:

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
复制代码

然后把TXT.vbs嵌入
嵌入释放到当前目录
而批处理要改成

@echo off
TXT.vbs
set /p TXT=<TXT.$
del TXT.*
if defined TXT start ""  "https://www.baidu.com/s?ie=UTF-8&wd=%TXT%"
exit
复制代码

idwma

回复 9# yyz219


    不会了

yyz219

回复 7# idwma

脚本:        D:\桌面\Desktop\000.exe
行:        1
字符:        1
错误:        类型不匹配: 'MZP'
代码:        800A000D
源:         Microsoft VBScript 运行时错误

yyz219

回复 7# idwma


    我试一试先，辛苦了，非常感谢

idwma

参照第8行把前面全改了

' 2>nul&@echo off
' 2>nul&start wscript -e:vbs "%~f0"
' 2>nul&set /p TXT=<TXT.$
' 2>nul&del TXT.*
' 2>nul&if defined TXT start ""  "www.baidu.com/s?ie=UTF-8&wd=%TXT%"
' 2>nul&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

回复 5# idwma


    有办法解决吗？谢谢

idwma

可能是转换后bat内容格式和现在的不一样了
more +8可能就不适用了

yyz219

回复 3# LJY4.0


    写入时出现错误,导致实际写入到TXT.vbs里的只有一个问号——————能够解决这个问题吗？

谢谢

LJY4.0

这应该是写入时出现错误,导致实际写入到TXT.vbs里的只有一个问号
用RAR自解压文件应该不会影响速度

yyz219

回复 1# yyz219


    打包为RAR自解压文件，不会出现这种情况

就是不知道会不会影响速度？