将GUI添加到VBScript

我目前正在研究一个vbs脚本，但我需要用户与脚本的交互。基本上我需要两个按钮和4个复选框（复选框不重要）。将GUI添加到VBScript

在此先感谢

2013-04-17 Deniz da King

检查[此WSH VBS GUI]（https://stackoverflow.com/a/47111556/2165759）解决方案。 – omegastripes

VBScript中有对话，只不是很多，没有复选框，您将需要一个COM对象这样做（有）。我敢肯定你知道消息框，在这里鲜为人知弹出

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>

在有一件事我与科迪同意，VBScript是几乎死的，如果你开始编程选择另一种语言。看看Ruby，一开始很容易学习，它很有趣。这里ü的例子红宝石使用脚本鞋GUI

require 'green_shoes' 
Shoes.app{ 
    button("Click me!"){alert("You clicked me.")} 
}

编辑：因为我的红宝石替代上升的一些问题，在这里更traditionel方式接近VBScript使用相同的样品。上面的示例更多地用于功能链式编程。

require 'green_shoes' 
Shoes.app do 
    button("Click me!") do 
    alert("You clicked me.") 
    end 
end

来源

2013-04-17 07:23:12 peter

Popup添加到MsgBox的唯一一件事是可选的等待时间。其他一切都是一样的。不支持复选框或自定义按钮。 –

我知道java语言，但我需要做一些基本的事情，如vbs。我现在无法测试代码，但当我回到家时，我会测试它。谢谢 –

我不这么说，但它可能与HTA溶剂，我适应的样品，以清楚地显示 – peter

将GUI添加到VBScript

回答

相关问题