批处理之家 - Powered by Discuz! Board

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

作者: smss 时间: 2021-5-9 19:54 标题: [已解决]BAT调用VBS点确定就打开文本应该怎样写

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

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

作者: smss 时间: 2021-5-9 20:24 标题: 【已解决】这种VBS点确定就打开文本应该怎样写

本帖最后由 smss 于 2021-5-9 21:57 编辑

@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 时间: 2021-5-9 21:49

能不能别一帖多发

作者: 1152 时间: 2021-5-9 21:50

能不能别一帖多发

作者: WHY 时间: 2021-5-9 22:37

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

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

作者: smss 时间: 2021-5-10 00:41

回复 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 时间: 2021-5-10 20:08

一定要用 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 时间: 2021-5-10 20:25

本帖最后由 smss 于 2021-5-10 20:29 编辑

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

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

作者: smss 时间: 2021-5-11 16:50

一定要用 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 时间: 2021-5-11 22:10

回复 9# smss

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

欢迎光临批处理之家 (http://www.bathome.net/)