{"id":16,"date":"2006-12-15T06:34:06","date_gmt":"2006-12-15T14:34:06","guid":{"rendered":"http:\/\/testblog.sapien.com\/index.php\/2006\/12\/15\/order-up\/"},"modified":"2006-12-15T06:34:06","modified_gmt":"2006-12-15T14:34:06","slug":"order-up","status":"publish","type":"post","link":"https:\/\/dev.sapien.com\/blog\/2006\/12\/15\/order-up\/","title":{"rendered":"Order up!"},"content":{"rendered":"

A recurring question I’ve seen over the years in a number of VBScript forums is how to present a menu dialog in a script. Other than InputBox, MsgBox or the WshShell’s Popup Method, there aren’t too many GUI alternatives.  And none of them (at least at first glance) looks like it could be used to present a menu. Now, if you want to got all out with fancy formatting and buttons, then you should look to creating an HTA or use an instance of Internet Explorer.  But if your needs are simple, I can show you how to accomplish this with a simple InputBox.<\/p>\n

Here’s a script sample of how you might accomplish this.  I’ve also attached the script as text file for your convenience. (There really is a file attached.  It’s just less than 1KB)<\/p>\n

‘MyMenu.vbs<\/span>
strTitle=”My Menu”<\/span>
strErrMsg=”Invalid option! You must choose a number between 1 and 5.”<\/span>
strMenu=”Please select an option:” & VbCrLf &_<\/span>
        “1 Kung Pao Shrimp” & VbCrLf &_<\/span>
        “2 Sweet and Sour Chicken” & VbCrLf &_<\/span>
        “3 Mongolian Been” & VbCrLf &_<\/span>
        “4 Pan Fried Dumplings” & VbCrLf &_<\/span>
        “5 Stir Fry Surprise”<\/span>
rc=InputBox(strMenu,strTitle,”0″)<\/span>
If rc=”” Then WScript.quit<\/span>
If IsNumeric(rc) Then<\/span>
    Select Case (rc)<\/span>
        Case 1<\/span>
            WScript.Echo “One order of Kung Pao Shrimp!”<\/span>
        Case 2<\/span>
            WScript.Echo “Would you like rice with your chicken?”<\/span>
        Case 3<\/span>
            WScript.Echo “How spicy would you like the Mongolian Beef?”<\/span>
        Case 4<\/span>
            WScript.Echo “How many dumplings?”<\/span>
        Case 5<\/span>
            WScript.Echo “You are definitely in for a surprise.”<\/span>
        Case Else <\/span>
            WScript.Echo strErrMsg<\/span>
            WScript.quit<\/span>
    End Select<\/span>
Else<\/span>
    WScript.Echo strErrMsg<\/span>
End If<\/span><\/p>\n

The only real “trick” to this script is properly formatting a message for the input box. You don’t have unlimited space so you need to design something simple and to the point. If you can use numbers as menu choices as I’ve done, here it makes life a little easier. Because I’m expecting a numeric value, I can test for it and handle errors such as when someone isn’t paying attention and types in a word.  (I’ve also used some error handling in case the return value is blank in which case the user either clicked Cancel or tried to enter a blank value.)<\/p>\n

Once I know the user entered a numeric value, I can use a Select Case statement to decide what to do based on the menu number they entered.  When you run the script, you’ll see a dialog box like this:<\/p>\n

<\/p>\n

I gave the InputBox a default value of 0 to give the user the idea that they need to enter a number. There is error handling in the Select Case statement if the user clicks OK with a value of 0. You may prefer to set the default value to a menu choice.<\/p>\n

So the next time you need to take an order in your script, an InputBox may be all that you need.<\/p>\n","protected":false},"excerpt":{"rendered":"

A recurring question I’ve seen over the years in a number of VBScript forums is how to present a menu dialog in a script. Other than InputBox, MsgBox or the WshShell’s Popup Method, there aren’t too many GUI alternatives. And none of them (at least at first glance) looks like it could be used to present a menu. Now, if you want to got all out with fancy formatting and buttons, then you should look to creating an HTA or use an instance of Internet Explorer. But if your needs are simple, I can show you how to accomplish this with a simple InputBox.<\/p>\n","protected":false},"author":3,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_monsterinsights_skip_tracking":false,"_monsterinsights_sitenote_active":false,"_monsterinsights_sitenote_note":"","_monsterinsights_sitenote_category":0,"footnotes":""},"categories":[2,24],"tags":[],"class_list":["post-16","post","type-post","status-publish","format-standard","hentry","category-general","category-vbscript"],"jetpack_featured_media_url":"","_links":{"self":[{"href":"https:\/\/dev.sapien.com\/blog\/wp-json\/wp\/v2\/posts\/16","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/dev.sapien.com\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/dev.sapien.com\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/dev.sapien.com\/blog\/wp-json\/wp\/v2\/users\/3"}],"replies":[{"embeddable":true,"href":"https:\/\/dev.sapien.com\/blog\/wp-json\/wp\/v2\/comments?post=16"}],"version-history":[{"count":0,"href":"https:\/\/dev.sapien.com\/blog\/wp-json\/wp\/v2\/posts\/16\/revisions"}],"wp:attachment":[{"href":"https:\/\/dev.sapien.com\/blog\/wp-json\/wp\/v2\/media?parent=16"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/dev.sapien.com\/blog\/wp-json\/wp\/v2\/categories?post=16"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/dev.sapien.com\/blog\/wp-json\/wp\/v2\/tags?post=16"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}