批处理和vbs同文件中交互使用 - 中国DOS联盟论坛

各位大侠，批处理与vbs如何交互执行？

[ Last edited by 523066680 on 2009-9-18 at 21:31 ]

希望有人鸟……1个就好

一楼的怕晒，我也藏起来算了。
呵呵。。。

[ Last edited by netbenton on 2009-9-18 at 22:53 ]

生成与非生成的关系，看个人要求。

那么1喽内容在此也就失去意义了。我还是算了吧。

[ Last edited by 523066680 on 2009-9-18 at 21:31 ]


'******************
'* intWindowStyle 控制 CMD 窗口显示状态
'*  （详细说明参键 VBS Run命令说明）
'* 0 隐藏一个窗口并激活另一个窗口。 1(默认值) 激活并显示窗口。
'*
'* isWait 指示是否等待 CMD 命令执行完毕再继续执行 VBS 后续代码
'*
'******************
Function RunBat(BatString, intWindowStyle, isWait)
Set objShell=CreateObject("WScript.Shell")
Dim exeCmd
exeCmd="cmd /c "&BatString
objShell.Run exeCmd, intWindowStyle, isWait
End Function


Dim n, bat1, bat2

'由于Run命令中不能包含换行符号，因此只能勉强用 & 将所有CMD命令连成一行
'如果 & 会给你的批处理带来逻辑错误请勿使用
n=Chr(38)

bat1=	"@echo off" & n & _
		"title CMD窗口"  & n & _
		"echo 算你小子识相！"  & n & _
		"pause>nul"

bat2=	"@echo off" & n & _
		"title CMD窗口"  & n & _
		"color 17"   & n & _
		"echo 草泥马"  & n & _
		"pause>nul"

If MsgBox("我是不是很牛逼？", 36, "VBS窗口")=6 Then
RunBat bat1, 1, True
Else
RunBat bat2, 1, False
End If

MsgBox "请注意我出来的时候BAT是否执行完毕。", 4112, "isWait 的作用"

上面字符串的，感觉很有创意啊！
我猜循环的话是不行的。
草泥马都出来拉，老实交代，是不是有看春哥传？（信春哥，得永生……）

netbenton的可以。是生成的。

楼上的可以不生成，但是要实现循环或跳转可能不容易。
我那个，失去意义了……删！

第1楼　523066680	发表于 2009-09-18 07:18
银牌会员　发帖 1,133　积分 2,361
批处理和vbs同文件中交互使用各位大侠，批处理与vbs如何交互执行？ [ Last edited by 523066680 on 2009-9-18 at 21:31 ]

第2楼　523066680	发表于 2009-09-18 10:00
银牌会员　发帖 1,133　积分 2,361
希望有人鸟……1个就好

第3楼　netbenton	发表于 2009-09-18 12:42
银牌会员　发帖 752　积分 1,916　来自广西
一楼的怕晒，我也藏起来算了。呵呵。。。 [ Last edited by netbenton on 2009-9-18 at 22:53 ]

第4楼　523066680	发表于 2009-09-18 21:26
银牌会员　发帖 1,133　积分 2,361
生成与非生成的关系，看个人要求。那么1喽内容在此也就失去意义了。我还是算了吧。 [ Last edited by 523066680 on 2009-9-18 at 21:31 ]

第5楼　qinchun36	发表于 2009-09-21 01:56
高级用户　发帖 400　积分 609
'****************** '* intWindowStyle 控制 CMD 窗口显示状态 '* （详细说明参键 VBS Run命令说明） '* 0 隐藏一个窗口并激活另一个窗口。 1(默认值) 激活并显示窗口。 '* '* isWait 指示是否等待 CMD 命令执行完毕再继续执行 VBS 后续代码 '* '****************** Function RunBat(BatString, intWindowStyle, isWait) Set objShell=CreateObject("WScript.Shell") Dim exeCmd exeCmd="cmd /c "&BatString objShell.Run exeCmd, intWindowStyle, isWait End Function Dim n, bat1, bat2 '由于Run命令中不能包含换行符号，因此只能勉强用 & 将所有CMD命令连成一行 '如果 & 会给你的批处理带来逻辑错误请勿使用 n=Chr(38) bat1= "@echo off" & n & _ "title CMD窗口" & n & _ "echo 算你小子识相！" & n & _ "pause>nul" bat2= "@echo off" & n & _ "title CMD窗口" & n & _ "color 17" & n & _ "echo 草泥马" & n & _ "pause>nul" If MsgBox("我是不是很牛逼？", 36, "VBS窗口")=6 Then RunBat bat1, 1, True Else RunBat bat2, 1, False End If MsgBox "请注意我出来的时候BAT是否执行完毕。", 4112, "isWait 的作用"

第6楼　523066680	发表于 2009-09-21 08:27
银牌会员　发帖 1,133　积分 2,361
上面字符串的，感觉很有创意啊！我猜循环的话是不行的。草泥马都出来拉，老实交代，是不是有看春哥传？（信春哥，得永生……） netbenton的可以。是生成的。楼上的可以不生成，但是要实现循环或跳转可能不容易。我那个，失去意义了……删！