[其他] 【已解决】这种VBS点确定就打开文本应该怎样写

smss

start mshta VBScript:Execute("msgbox(""安装完毕! ""):close")
复制代码

start %Public%\desktop\说明.txt
复制代码

smss

@echo off
(echo dim wsh
echo set wsh = createobject^("wscript.shell"^)
echo if msgbox^("安装完毕"^)=1 then
echo wsh.run "%Public%\Desktop\说明.txt"
echo end if)>1.vbs&start "" 1.vbs
pause
复制代码

这可以不写文件吗

1152

能不能别一帖多发

1152

能不能别一帖多发

WHY

mshta VBScript:Execute("Set wshShell=CreateObject(""WScript.Shell""):If MsgBox(""安装完毕! "")=1 Then:wshShell.Run wshShell.SpecialFolders(""AllUsersDesktop"")&""\说明.txt"":End If:close")
复制代码

wsh 变量名不要随便用，否则可能出现意想不到的后果。

smss

回复 3# WHY
下面这样的可以精减吗 老师

@Echo off
(echo name=InputBox^("请输入主题打包署名",name^)
echo Wscript.Echo^(name^)
echo qq=InputBox^("QQ",qq^)
echo Wscript.Echo^(qq^))>1.vbs
for /f "delims=" %%i in ('cscript.exe //nologo 1.vbs')do set /a n+=1&call set "a%%n%%=%%i"
del 1.vbs
Echo %a1% %a2%
pause
复制代码

WHY

一定要用 mshta 的话，可以这样：

@echo off
for /f "tokens=1*" %%i in ('mshta VBScript:Execute("a=InputBox(""Name""):b=InputBox(""QQ""):CreateObject(""Scripting.FileSystemObject"").GetStandardStream(1).Write(""qq=""&b&"" name=""&a):close"^)') do (
    set "%%i" & set "%%j"
)
echo Name=%name%
echo QQ=%qq%
pause
复制代码

smss

回复 7# WHY
谢谢老师 for /f还可以这样用呢 只是后边那些转义什么的不知道怎样写 什么代码到你这都能搞成一句 真厉害

不是一定要用 而是只会这个

smss

一定要用 mshta 的话，可以这样：
WHY 发表于 2021-5-10 20:08

老师 我写个小工具用HIDECMD.exe隐藏脚本 用BeeTextDraw.exe充当回显 可有更好方法来完成下面这个 我拼凑的总觉得画蛇添足 照葫芦画瓢功力不够 还请你过目

echo Set oIE = CreateObject("htmlfile"):With oIE.parentWindow.screen:wsh.echo .width,.height:End With>%temp%\vbs.tmp
for /f "tokens=1,2 delims= " %%a in ('cscript.exe //e:vbscript //nologo %temp%\vbs.tmp')do set/a w=%%a/2-90,h=%%b-115

cmd /c start "" "%~dp0Tools\BeeTextDraw.exe" /m:"%2\n请稍候..." /x:%w% /y:%h% /fh:30 /t:999999

WHY

回复 9# smss


    个人建议，如果很讨厌 CMD 的黑窗，直接写一个 vbs 脚本即可。
vbs 脚本的可读性、可维护性及可扩展性比这种混血好很多。