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

Rank: 5Rank: 5

帖子
595 
积分
804 
技术
38  
捐助
0  
注册时间
2018-11-29 
1楼 跳转到 »
发表于 2021-5-9 19:54 | 只看该作者

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

  1. start mshta VBScript:Execute("msgbox(""安装完毕! ""):close")
复制代码
  1. start %Public%\desktop\说明.txt
复制代码

TOP

smss

Rank: 5Rank: 5

帖子
595 
积分
804 
技术
38  
捐助
0  
注册时间
2018-11-29 
2楼 倒序看帖
打印
tT
发表于 2021-5-9 20:24 | 只看该作者

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

本帖最后由 smss 于 2021-5-9 21:57 编辑 
  1. @echo off

  2. (echo dim wsh

  3. echo set wsh = createobject^("wscript.shell"^)

  4. echo if msgbox^("安装完毕"^)=1 then

  5. echo wsh.run "%Public%\Desktop\说明.txt"

  6. echo end if)>1.vbs&start "" 1.vbs

  7. pause
复制代码
这可以不写文件吗
收藏 分享

1152

帖子
310 
积分
312 
技术
57  
捐助
0  
注册时间
2021-4-15 
3楼
发表于 2021-5-9 21:49 | 只看该作者
能不能别一帖多发

TOP

1152

帖子
310 
积分
312 
技术
57  
捐助
0  
注册时间
2021-4-15 
4楼
发表于 2021-5-9 21:50 | 只看该作者
能不能别一帖多发

TOP

WHY

Rank: 6Rank: 6

帖子
1482 
积分
3266 
技术
567  
捐助
0  
注册时间
2015-7-19 
5楼
发表于 2021-5-9 22:37 | 只看该作者 
  1. mshta VBScript:Execute("Set wshShell=CreateObject(""WScript.Shell""):If MsgBox(""安装完毕! "")=1 Then:wshShell.Run wshShell.SpecialFolders(""AllUsersDesktop"")&""\说明.txt"":End If:close")
复制代码
wsh 变量名不要随便用，否则可能出现意想不到的后果。
1

评分人数

TOP

smss

Rank: 5Rank: 5

帖子
595 
积分
804 
技术
38  
捐助
0  
注册时间
2018-11-29 
6楼
发表于 2021-5-10 00:41 | 只看该作者
回复 3# WHY
下面这样的可以精减吗 老师
  1. @Echo off

  2. (echo name=InputBox^("请输入主题打包署名",name^)

  3. echo Wscript.Echo^(name^)

  4. echo qq=InputBox^("QQ",qq^)

  5. echo Wscript.Echo^(qq^))>1.vbs

  6. for /f "delims=" %%i in ('cscript.exe //nologo 1.vbs')do set /a n+=1&call set "a%%n%%=%%i"

  7. del 1.vbs

  8. Echo %a1% %a2%

  9. pause
复制代码

TOP

WHY

Rank: 6Rank: 6

帖子
1482 
积分
3266 
技术
567  
捐助
0  
注册时间
2015-7-19 
7楼
发表于 2021-5-10 20:08 | 只看该作者
一定要用 mshta 的话，可以这样：
  1. @echo off

  2. 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 (

  3.     set "%%i" & set "%%j"

  4. )

  5. echo Name=%name%

  6. echo QQ=%qq%

  7. pause
复制代码
1

评分人数

TOP

smss

Rank: 5Rank: 5

帖子
595 
积分
804 
技术
38  
捐助
0  
注册时间
2018-11-29 
8楼
发表于 2021-5-10 20:25 | 只看该作者
本帖最后由 smss 于 2021-5-10 20:29 编辑

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

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

TOP

smss

Rank: 5Rank: 5

帖子
595 
积分
804 
技术
38  
捐助
0  
注册时间
2018-11-29 
9楼
发表于 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

TOP

WHY

Rank: 6Rank: 6

帖子
1482 
积分
3266 
技术
567  
捐助
0  
注册时间
2015-7-19 
10楼
发表于 2021-5-11 22:10 | 只看该作者
回复 9# smss


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

TOP

返回列表