使用vbscript腳本在表單中進行選擇的代碼

2019-10-26 17:59:32

字體：大中小

來源：轉載

供稿：網友

問：
嗨，Scripting Guy！我想創建一個帶有四個單選按鈕的表單，其中每個按鈕各代表一臺計算機。可以選擇一個單選按鈕，單擊另一個按鈕，然后腳本將在所選的計算機上運行。我怎樣才能做到？

-- CW

答：
嗨，CW。如果我們所說的只是 VBScript 和 Windows Script Host，那么這個問題很簡單：辦不到。除了顯示消息框以外，VBScript 和 WSH 都無法創建圖形用戶界面；沒辦法通過腳本使用單選按鈕、列表框、下拉列表以及其他圖形元素。

但是——噢，你們以前一定見過這種情況。沒錯：我們先告訴您某事辦不到，然后再告訴您做事的方法。（嗨，每個人多需要點技巧，不是嗎？）沒錯：雖然您不會只用 VBScript 實現這一點，但是完全可以使用 HTA（HTML 應用程序）來實現。

我們今天不會花太多時間來談論 HTA；如果您對此感興趣，可以查找大約一年前我們針對該主題推出的網絡廣播。可以說，HTA 使我們能夠將 Internet Explorer 和腳本代碼結合在一起，并反過來為腳本提供圖形用戶界面。雖然還有一些方法可以將圖形用戶界面合并到腳本中，但是對于才開始涉足 GUI 開發的用戶來說，這可能是最簡單的方法。

讓我們先提供 HTA 的代碼，然后再解釋其工作原理。此示例 HTA 顯示了四個單選按鈕，其中每個按鈕各代表一臺計算機。選擇一臺計算機，并單擊一個“Run Script（運行腳本）”按鈕；完成后，將運行一個子例程。該程序將連接到已選定的計算機，然后報告該計算機上所安裝的操作系統的名稱。很不錯吧？如要了解其工作原理，復制該代碼，將其粘貼到記事本中，然后以 .hta 文件擴展名（比如：os_name.hta）保存文件。不要使用 .vbs 文件擴展名；那樣行不通。擴展名必須是 .hta。

復制代碼代碼如下:

<SCRIPT LANGUAGE="VBScript">

Sub RunScript

    If ComputerOption(0).Checked Then
        strComputer = ComputerOption(0).Value
    End If
    If ComputerOption(1).Checked Then
        strComputer = ComputerOption(1).Value
    End If
    If ComputerOption(2).Checked Then
        strComputer = ComputerOption(2).Value
    End If
    If ComputerOption(3).Checked Then
        strComputer = ComputerOption(3).Value
    End If

上一篇：用vbscript實現修改屏幕保護的等待時間長度

下一篇：發老兵及海洋VBS解包工具代碼

發表評論

共有條評論