批處理文件的GUI？

Question

我有一個批處理文件，它是一個非常簡單的程序，啓動網站，一個迷你網頁瀏覽器類型的經驗，打開程序的命令等。我怎樣才能使這個或GUI界面？無需完成手動更改我的代碼。這裏是我的代碼就像是一個例子：

:start 
@echo off 
COLOR 1E 
cls 
echo Welcome to Wannow Dashboard. This is the main page. 
echo Type in the number to be redirected to your desired location. 
echo 1. Useful Websites 
echo 2. Programs  
echo Wannow Dashboard created by Brad Wannow 

set/p var1= 
if %var1% == 1 goto Websites 
if %var1% == 2 goto program 
pause 
exit 

:websites 
COLOR 1E 
cls 
echo Welcome to Wannow Dashboard: Websites. Select a command, type in number to be redirected. 
echo 1. www.Pandora.com 
echo 2. www.Google.com 
echo 3. Aventa Blackboard 
echo 4. Other 
@echo OFF 

@echo %time% 
ping -n 1 -w 1 127.0.0.1 1>nul   
echo Wannow Dashboard 

當然還有更多的代碼，但是這是我的程序寫入的方式，也有一些START命令和用戶輸入等

Answer 1

圖形命令在直接批處理文件中不可用。我建議你看vbscript或powershell

有很多指南 - 這是vbscript的幫助文件。是的，它會有所不同。回聲你好世界將成爲msgbox（「你好世界」）和輸入看起來像輸入框（「你叫什麼名字？」）（在一個非常基本的水平）

有沒有自動轉換，除非你有Visual工作室，沒有免費的集成開發，但notepad++似乎是因爲它的語法高亮

從here，一個示例腳本與菜單

'----------------------------------------------------------------- 
' Name: Menu Template Script 
' By: Harvey Colwell 
' CopyRight: (c) Jul 2000, All Rights Reserved! 
' 
'***************************************************************** 
Option Explicit 

Dim oFS, oWS, oWN 

Set oWS = WScript.CreateObject("WScript.Shell") 
Set oWN = WScript.CreateObject("WScript.Network") 
Set oFS = WScript.CreateObject("Scripting.FileSystemObject") 

'---------- 
' Script SetUp 
'---------- 

'---------- 
' Main 
'---------- 
Select Case InputBox (_ 
"Enter menu item number then Click Ok. . ." & vbCrlf & vbCrlf & _ 
" [1] Item 1" & vbCrlf & _ 
" [2] Item 2" & vbCrlf & _ 
" [3] Item 3" & vbCrlf & _ 
" [4] Item 4", _ 
"Main Menu") 

Case "1" 
Call sub1() 
Case "2" 
Call sub2() 
Case "3" 
Call sub3() 
Case "4" 
Call sub4() 
Case Else 
WScript.Echo "You entered an invalid menu choice!" 

End Select 

'---------- 
' Clean Up 
'---------- 

Call CleanUp 

'----------------------------------------------------------------- 
' Subroutines 
'***************************************************************** 

'--------------------- 
Sub CleanUp() 
Set oWS = Nothing 
Set oWN = Nothing 
Set oFS = Nothing 
WScript.Quit 
End Sub 

'--------------------- 
Sub sub1() 
WScript.Echo "You selected Menu Item 1" 
End Sub 

'--------------------- 
Sub sub2() 
WScript.Echo "You selected Menu Item 2" 
End Sub 

'--------------------- 
Sub sub3() 
WScript.Echo "You selected Menu Item 3" 
End Sub 

'--------------------- 
Sub sub4() 
WScript.Echo "You selected Menu Item 4" 
End Sub 

'----------------------------------------------------------------- 
' Functions 
'***************************************************************** 
'--------------------- 

'***************************************