3

私はバッチ ファイルを持っています。これは、ウェブサイトを起動する非常に単純なプログラムであり、ミニ ウェブ ブラウザ タイプのエクスペリエンスであり、プログラムを開くコマンドなどがあります。これまたは 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 コマンドやユーザー入力なども含まれています。

4

1 に答える 1

3

グラフィカル コマンドは、ストレート バッチ ファイルでは使用できません。vbscriptまたはpowershellを見ることをお勧めします

多くのガイドがあります - これはvbscriptのヘルプ ファイルです。はい、違います。Echo Hello World は msgbox("Hello World") になり、入力は inputbox("What is your name?") のようになります (非常に基本的なレベルで)

自動変換はありません。また、Visual Studio を使用していない限り、無料の統合開発者はいませんが、構文が強調表示されているため、notepad++が推奨されるエディターのようです。

ここから、メニュー付きのサンプルスクリプト

'-----------------------------------------------------------------
' 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
'*****************************************************************
'---------------------

'***************************************
于 2012-09-19T19:42:54.970 に答える