标题: [求助]如何把VBS的变量返回给BAT[已完结]?
[打印本页]
作者: HUNRYBECKY
时间: 2006-12-29 03:10
标题: [求助]如何把VBS的变量返回给BAT[已完结]?
我的意图如下:
因为BAT的提示很难看,也不能用鼠标,我现在直接在BAT中写一个VBS来,然后运行VBS,把VBS的变量又传回给BAT,如何写?看下面的代码:
ECHO ON ERROR RESUME NEXT>%TEMP%\MSG.VBS
ECHO DIM blnMS>>%TEMP%\MSG.VBS
ECHO blnMS=MSGBOX("本设置只能在安全模式下进行,要继续吗?",VbYesNo,"小不点提示")>>%TEMP%\MSG.VBS
START ")>>%TEMP%\MSG.VBS
我想把这个YES 和 NO的变量传回给BAT的变量ISMS,如果ISMS=YES则继续操作,否则退出程序。
还存在一个难点:就是BAT调用VBS后还来不及等待用户进行选择就直接运行后面的代码了,能否让用户操作完VBS的内容后再继续执行BAT的内容呢?
Last edited by HUNRYBECKY on 2006-12-29 at 09:04 AM ]
作者: HUNRYBECKY
时间: 2006-12-29 03:23
没有人回复,顶下。
作者: rochan
时间: 2006-12-29 03:23
对 VBS 不太懂...有待高手来回答.
不过 要是用 VBS 处理 的话. 就可以用它 判断 YES NO 就行了..为什么 还要 再传回给 BAT 呢...
作者: HUNRYBECKY
时间: 2006-12-29 03:31
Originally posted by rochan at 2006-12-29 03:23:
对 VBS 不太懂...有待高手来回答.
不过 要是用 VBS 处理 的话. 就可以用它 判断 YES NO 就行了..为什么 还要 再传回给 BAT 呢...
因为我对VBS不熟悉,所以一般都使用BAT来编写,但是BAT的选择提示我不想使用SET /P 或SELECT.COM来实现,而改用VBS的MSGBOX来实现,这样就美观多了。
更正一个错误,上面的代码中ECHO DIM blnMS as Boolen>>%TEMP%\MSG.VBS 改为ECHO DIM blnMS>>%TEMP%\MSG.VBS,否则会提示错误
作者: jmz573515
时间: 2006-12-29 03:44
@ECHO @ECHO 你选择了YES>yes.bat
@ECHO pause<nul>> yes.bat
@ECHO @ECHO 你选择了NO>no.bat
@ECHO pause<nul>> no.bat
@ECHO SET WS=CREATEOBJECT("WSCRIPT.SHELL")>MSG.VBS
@ECHO set fso=createobject("scripting.filesystemobject")>>msg.vbs
@ECHO ON ERROR RESUME NEXT>>MSG.VBS
@ECHO DIM blnMS>>MSG.VBS
@ECHO blnMS=MSGBOX("本设置只能在安全模式下进行,要继续吗?",VbYesNo,"小不点提示")>>MSG.VBS
@ECHO if blnMS=vbyes then>>MSG.VBS
@ECHO WS.RUN "YES.BAT",,true>>MSG.VBS
@ECHO ELSE>>MSG.VBS
@ECHO WS.RUN "NO.BAT",,true>>MSG.VBS
@ECHO END IF>>MSG.VBS
@ECHO fso.deletefile ("yes.bat")>>msg.vbs
@ECHO fso.deletefile ("no.bat")>>msg.vbs
@ECHO fso.deletefile ("msg.vbs")>>msg.vbs
start MSG.VBS
作者: HUNRYBECKY
时间: 2006-12-29 03:56
Originally posted by jmz573515 at 2006-12-29 03:44:
@ECHO @ECHO 你选择了YES>yes.bat
@ECHO pause<nul>> yes.bat
@ECHO @ECHO 你选择了NO>no.bat
@ECHO pause<nul>> no.bat
@ECHO SET WS=CREATEOBJECT("WSCRIPT. ...
谢谢jmz573515兄的回复,你是通过VBS写一个YES.BAT或no.bat文件,然后通过这个文件来判断,方式是可以行,但能不能直接把VBS的变量返回给BAT呢?这样就不用产生临时文件了。
作者: electronixtar
时间: 2006-12-29 04:34
参数
作者: HUNRYBECKY
时间: 2006-12-29 04:38
Originally posted by electronixtar at 2006-12-29 04:34:
参数
E兄能否说明白点,兄弟实在是外行。
作者: HUNRYBECKY
时间: 2006-12-29 04:40
还存在一个难点:就是BAT调用VBS后还来不及等待用户进行选择就直接运行后面的代码了,能否让用户操作完VBS的内容后再继续执行BAT的内容呢?
作者: jmz573515
时间: 2006-12-29 04:42
这个好像是要用start /w
作者: zh159
时间: 2006-12-29 05:01
@echo off
>%Temp%\msg.vbs echo intAnswer = MsgBox("没本设置只能在安全模式下进行,要继续吗? ", vbExclamation + vbYesNo, "小不点提示!")
>>%Temp%\msg.vbs echo If intAnswer = vbYes Then
>>%Temp%\msg.vbs echo Wscript.Echo "Yes"
>>%Temp%\msg.vbs echo end if
>>%Temp%\msg.vbs echo If intAnswer = vbNo Then
>>%Temp%\msg.vbs echo Wscript.Echo "No"
>>%Temp%\msg.vbs echo end if
for /f "delims=" %%i in ('"cscript //nologo %Temp%\msg.vbs"') do echo goto %%i
pause
Last edited by zh159 on 2006-12-28 at 04:02 PM ]
作者: HUNRYBECKY
时间: 2006-12-29 05:03
谢谢zh159兄,你自己想了好久终于测试成功,等我回来正准备贴上我的代码时发现你已经抢先一步了,还是谢谢你,下面是我的代码。
@ECHO SET WS=CREATEOBJECT("WSCRIPT.SHELL")>MSG.VBS
@ECHO ON ERROR RESUME NEXT>>MSG.VBS
@ECHO DIM blnMS>>MSG.VBS
@ECHO blnMS=MSGBOX("本设置只能在安全模式下进行,要继续吗?",VbYesNo,"小不点提示")>>MSG.VBS
@ECHO Wscript.Echo blnMS>>MSG.VBS
for /f "skip=2" %%i in ('"cscript MSG.VBS"') do (
set "ISMS=%%i"
)
ECHO %ISMS%
PAUSE
作者: zh159
时间: 2006-12-29 05:08
这是三个按键的(是、否、取消)
@echo off
>%Temp%\msg.vbs echo intAnswer = MsgBox("没本设置只能在安全模式下进行,要继续吗? ", vbExclamation + vbYesNoCancel, "小不点提示!")
>>%Temp%\msg.vbs echo If intAnswer = vbYes Then
>>%Temp%\msg.vbs echo Wscript.Echo "ISMS=Yes"
>>%Temp%\msg.vbs echo end if
>>%Temp%\msg.vbs echo If intAnswer = vbNo Then
>>%Temp%\msg.vbs echo Wscript.Echo "ISMS=No"
>>%Temp%\msg.vbs echo end if
>>%Temp%\msg.vbs echo If intAnswer = vbCancel Then
>>%Temp%\msg.vbs echo Wscript.Echo "ISMS=Cancel"
>>%Temp%\msg.vbs echo end if
for /f "delims=" %%i in ('"cscript //nologo %Temp%\msg.vbs"') do echo set “%%i”
pause
作者: HUNRYBECKY
时间: 2006-12-29 05:13
再次谢谢zh159兄,你的代码比我的那个好用,我是东拼西揍出来的,顺便问下,如何检测系统目前是否是安全模式?
作者: everest79
时间: 2006-12-29 06:07
ECHO ON ERROR RESUME NEXT>MSG.VBS
ECHO SET FSO=CreateObject("Scripting.FileSystemObject")>>MSG.VBS
ECHO DIM blnMS>>MSG.VBS
ECHO blnMS=MSGBOX("本设置只能在安全模式下进行,要继续吗?",VbYesNo,"小不点提示")>>MSG.VBS
ECHO If blnMS=vbYes Then>>MSG.VBS
ECHO MSGBOX "OK">>MSG.VBS
ECHO Else f=fso.DeleteFile(WScript.ScriptName)>>MSG.VBS
ECHO End If>>MSG.VBS
start /w msg.vbs
if not exist msg.vbs goto end
echo abcde
:end
pause
作者: everest79
时间: 2006-12-29 06:10
安全模式没有加载好多驱动,最明显的就是网络了