VBS写一个带复选框的界面

以下是一个使用 VBS 编写的带复选框的界面示例代码：

' 创建窗口
Set objShell = CreateObject("WScript.Shell")
Set objForm = objShell.Popup("请选择以下选项：", 0, "复选框示例", 0x4 + 0x10)

' 创建复选框
Set objCheckbox1 = objForm.document.createElement("input")
objCheckbox1.type = "checkbox"
objCheckbox1.name = "checkbox1"
objCheckbox1.value = "选项1"
objCheckbox1.innerText = "选项1"
objForm.document.body.appendChild(objCheckbox1)

Set objCheckbox2 = objForm.document.createElement("input")
objCheckbox2.type = "checkbox"
objCheckbox2.name = "checkbox2"
objCheckbox2.value = "选项2"
objCheckbox2.innerText = "选项2"
objForm.document.body.appendChild(objCheckbox2)

' 显示窗口
Set objResult = objForm.Show()

' 处理结果
If objResult = 1 Then
    If objCheckbox1.checked Then
        MsgBox "你选择了选项1"
    End If
    If objCheckbox2.checked Then
        MsgBox "你选择了选项2"
    End If
End If

在上面的示例代码中，我们首先使用 `WScript.Shell` 对象创建了一个窗口，并设置了标题和显示的文本。然后使用 `createElement` 方法创建了两个复选框，并添加到窗口的 body 中。最后调用 `Show` 方法显示窗口，并检查用户的选择结果来处理用户的选择。