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

smss · 发表于 2021-5-9 20:24:52

本帖最后由 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

复制代码

这可以不写文件吗

smss · 发表于 2021-5-9 19:54:41

start mshta VBScript:Execute("msgbox(""安装完毕! ""):close")

复制代码

start %Public%\desktop\说明.txt

复制代码

1152 · 发表于 2021-5-9 21:49:54

能不能别一帖多发

1152 · 发表于 2021-5-9 21:50:19

能不能别一帖多发

WHY · 发表于 2021-5-9 22:37:26

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:07

回复 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:55

一定要用 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:23

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

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

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

smss · 发表于 2021-5-11 16:50:33

一定要用 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:14

回复 9# smss

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

		自动登录	找回密码
密码			注册

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

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

[已解决]BAT调用VBS点确定就打开文本应该怎样写

评分

评分