gpt4 book ai didi

user-interface - 将 GUI 添加到 VBScript

转载 作者:行者123 更新时间:2023-12-04 19:09:57 27 4
gpt4 key购买 nike

我目前正在开发一个 vbs 脚本,但我需要用户与脚本进行交互。基本上我需要两个按钮和 4 个复选框(复选框并不重要)。

提前致谢

最佳答案

VBScript 有对话框,但数量不多,也没有复选框,您需要一个 COM 对象来执行此操作(并且有)。我相信你知道 Messagebox,这里有一个鲜为人知的 Popup 的例子

Dim WshShell, BtnCode
Set WshShell = WScript.CreateObject("WScript.Shell")

BtnCode = WshShell.Popup("Do you feel alright?", 7, "Answer This Question:", 4 + 32)

Select Case BtnCode
case 6 WScript.Echo "Glad to hear you feel alright."
case 7 WScript.Echo "Hope you're feeling better soon."
case -1 WScript.Echo "Is there anybody out there?"
End Select

但是,在 vbscript 中拥有更多对话框的最佳方法是使用 HTA。
这里有一个例子
<HTML><HEAD>
<HTA:APPLICATION
ID = "oApp"
APPLICATIONNAME = "Example"
BORDER = "thick"
CAPTION = "yes"
ICON = "app.ico"
SHOWINTASKBAR = "yes"
SINGLEINSTANCE = "yes"
SYSMENU = "yes"
WINDOWSTATE = "normal"
SCROLL = "yes"
SCROLLFLAT = "yes"
VERSION = "1.0"
INNERBORDER = "yes"
SELECTION = "no"
MAXIMIZEBUTTON = "yes"
MINIMIZEBUTTON = "yes"
NAVIGABLE = "yes"
CONTEXTMENU = "yes"
BORDERSTYLE = "normal"
>

<SCRIPT language="vbscript">
sub SimpleExeample()
document.body.innerHTML = "<form name=myform><input type=checkbox name=chk1>Check me<br><br><button onclick='alert(myform.chk1.checked)'>Show if checked</button></form>"
end sub
</SCRIPT>

</HEAD>
<BODY onLoad="SimpleExeample()">
</BODY>
</HTML>

有一件事我同意 Cody,如果你开始编程选择另一种语言,vbscript 几乎已经死了。看一看 Ruby,一开始很容易上手,而且很有趣。
这是一个使用鞋子作为 GUI 的 ruby​​ 脚本示例
require 'green_shoes'
Shoes.app{
button("Click me!"){alert("You clicked me.")}
}

编辑:由于我的 Ruby 替代方案引起了一些问题,这里有一种更传统的方式更接近 Vbscript 对同一示例的使用。上面的示例更多地用于函数式链式编程方式。
require 'green_shoes'
Shoes.app do
button("Click me!") do
alert("You clicked me.")
end
end

关于user-interface - 将 GUI 添加到 VBScript,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/16052534/

27 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com