Αρχείο VBS με μενού επιλογών.

[soma_g4]

Γεια σας.

 

Πως γίνετε ένα αρχείο .VBS που να μου βγάζει 2 επιλογές.

Στην πρώτη να τρέχει ένα αρχείο π.χ "a.exe".

Στην δεύτερη να τρέχει ένα άλλο π.χ "b.exe".

Mετά από το πάτημα 1 ή 2 να σταματάει το vbs.

 

Παλιότερα προγραμμάτιζα σε basic-a (1989) αλλα έχει πολλά χρονια

που τα παράτησα και τα πράγματα στον προγραμματισμό έχουν

αλλάξει δραματικά, σε σημείο να μην καταλαβαίνω σχεδόν τίποτα.

 

Aς βοηθήσει κάποιος παρακαλώ.

 

Σας ευχαριστώ για τον χρόνο σας.

[Bspus]

Πρεπει να ειναι vbs η απλα με ενα batch file βολευεσαι γιατι αυτο που ζητας γινεται και ετσι. Να ενα απλο παραδειγμα.

 

>
@echo off
echo 1: Run a.exe
echo 2: Run b.exe
set /p option=Choice:
if %option%==1 (echo you typed 1)
if %option%==2 (echo you typed 2)
pause

[bilco]

Αν το θέλεις σε command line καλύτερη επιλογή είναι αυτή που έδωσε ο Bspus. Η αντίστοιχη σε vbs είναι

>
' my_cmd.vbs

Set so = WScript.StdOut
Set si = WScript.StdIn
Set shell = WScript.CreateObject("WScript.Shell")

so.WriteLine("")
so.Write("Enter 1 for notepad, 2 for calculator: ")

res = si.ReadLine

If (StrComp(res, "1") = 0) Then
shell.Run("notepad.exe")
ElseIf (StrComp(res, "2") = 0) Then
shell.Run("calc.exe")
Else
so.WriteLine("Invalid selection")
End If

και τρέχει με την

>
cscript my_cmd.vbs //nologo

Αν τώρα το θέλεις σε GUI, είναι κάπως έτσι

>
' my_popup.vbs

res = InputBox("Enter 1 for notepad or 2 for calculator", "Choice")

Set shell = CreateObject("WScript.Shell")

If (StrComp(res, "1") = 0) Then
shell.Run("notepad.exe")
ElseIf (StrComp(res, "2") = 0) Then
shell.Run("calc.exe")
ElseIf (res = "") Then
WScript.Quit
Else
WScript.Echo("Invalid selection")
End If

[soma_g4]

Τι άλλο να πω ...

ΕΥΧΑΡΙΣΤΩ ΠΑΡΑ ΠΟΛΥ !