Question

bat 怎样和VB结合呀 echo msgbox"欢迎使用">msg.vbs&&msg.vbs&&del msg.vbs

这是一段CMD与VB的结合，将代码改为BAT以后执行，出现对话框欢迎使用，选项只有确定，怎样输入将 vbOKOnly 0 只显示“确定”按钮（缺省值） VbOKCancel 1 显示“确定”和“取消”按钮 VbAbortRetryIgnore 2 显示“终止”、“重试”和“忽略” 写入以后，可以添加选项，

Answer 1

@echo off title "欢迎使用" mode con cols=30 lines=6 >Temp.vbs echo Dim WshShell >>Temp.vbs echo Set WshShell = WScript.CreateObject("WScript.Shell") >>Temp.vbs echo WshShell.Run "cmd /c del /q Temp.vbs",vbhide >>Temp.vbs echo intAnswer = MsgBox(" 欢迎使用 ", vbQuestion + VbAbortRetryIgnore + 256 + 4096, "欢迎使用") >>Temp.vbs echo If intAnswer = vbAbort Then >>Temp.vbs echo WshShell.Run "cmd /c pause" >>Temp.vbs echo end if >>Temp.vbs echo If intAnswer = vbRetry Then >>Temp.vbs echo WshShell.Run "cmd /c pause" >>Temp.vbs echo end if >>Temp.vbs echo If intAnswer = vbIgnore Then >>Temp.vbs echo WshShell.Run "cmd /c pause" >>Temp.vbs echo end if >>Temp.vbs echo Set WSHShell = Nothing >>Temp.vbs echo WScript.Quit(0) start Temp.vbs 我给你写了个有“终止”、“重试”和“忽略”三项且默认项为“重试”的小批处理程序。另外，你可以>>Temp.vbs echo WshShell.Run "cmd /c pause"这句“”里的内容修改成你所需改写的东西。