vbscript - 如何使用 vbscript 在一个用户表单中创建多个输入框-6ren

vbscript - 如何使用 vbscript 在一个用户表单中创建多个输入框

转载作者：行者123 更新时间：2023-12-02 01:06:13

24

4

我正在尝试使用 vbscript 在一个用户表单中创建多个输入框，而不是一次显示一个输入框，我想一次显示多个输入框，然后从所有输入框输入，但也无法在互联网上找到任何解决方案。
在我的代码中，第二个输入框是在从第一个输入框输入之后出现的，反之亦然，我想使用 vbscript 一次获取所有输入，而不是 vba

sInput = InputBox("Enter your name")

MsgBox ("You entered:" & sInput)

sInput1 = InputBox("Enter your Age")

MsgBox ("You entered:" & sInput1)

sInput2 = InputBox("Enter email id you want to send")
sInput3 = InputBox("Enter Subject")
sInput4 = InputBox("Enter Email Body")

最佳答案

我从@omegastripes multiline_inputbox_via_hta.vbs 找到了一个 vbscript 代码

不知道这个回答能不能给你个思路？

dim completed

msgbox inputboxml("Enter text:", "Multiline inputbox via HTA", "Enter your name : " & vbcrlf & "Enter your Age : " & vbcrlf &_
"Enter email id you want to send : " & vbcrlf & "Enter Subject : " & vbcrlf & "Enter Email Body : " )

function inputboxml(prompt, title, defval)
    set window = createwindow()
    completed = 0
    defval = replace(replace(replace(defval, "&", "&amp;"), "<", "&lt;"), ">", "&gt;")
    with window
        with .document
            .title = title
            .body.style.background = "buttonface"
            .body.style.fontfamily = "consolas, courier new"
            .body.style.fontsize = "8pt"
            .body.innerhtml = "<div><center><nobr>" & prompt & "</nobr><br><br></center><textarea id='hta_textarea' style='font-family: consolas, courier new; width: 100%; height: 400px;'>" & defval & "</textarea><br><button id='hta_cancel' style='font-family: consolas, courier new; width: 85px; margin: 10px; padding: 3px; float: right;'>Cancel</button><button id='hta_ok' style='font-family: consolas, courier new; width: 85px; margin: 10px; padding: 3px; float: right;'>OK</button></div>"
        end with
        .resizeto 550, 550
        .moveto 100, 100
    end with
    window.hta_textarea.focus
    set window.hta_cancel.onclick = getref("hta_cancel")
    set window.hta_ok.onclick = getref("hta_ok")
    set window.document.body.onunload = getref("hta_onunload")
    do until completed > 0
        wscript.sleep 10
    loop
    select case completed
    case 1
        inputboxml = ""
    case 2
        inputboxml = ""
        window.close
    case 3
        inputboxml = window.hta_textarea.value
        window.close
    end select
end function

function createwindow()
    rem source http://forum.script-coding.com/viewtopic.php?pid=75356#p75356
    dim signature, shellwnd, proc
    on error resume next
    signature = left(createobject("Scriptlet.TypeLib").guid, 38)
    do
        set proc = createobject("WScript.Shell").exec("mshta ""about:<head><script>moveTo(-32000,-32000);</script><hta:application id=app border=dialog minimizebutton=no maximizebutton=no scroll=no showintaskbar=yes contextmenu=no selection=yes innerborder=no icon=""%windir%\system32\notepad.exe""/><object id='shellwindow' classid='clsid:8856F961-340A-11D0-A96B-00C04FD705A2'><param name=RegisterAsBrowser value=1></object><script>shellwindow.putproperty('" & signature & "',document.parentWindow);</script></head>""")
        do
            if proc.status > 0 then exit do
            for each shellwnd in createobject("Shell.Application").windows
                set createwindow = shellwnd.getproperty(signature)
                if err.number = 0 then exit function
                err.clear
            next
        loop
    loop
end function

sub hta_onunload
    completed = 1
end sub

sub hta_cancel
    completed = 2
end sub

sub hta_ok
    completed = 3
end sub

关于vbscript - 如何使用 vbscript 在一个用户表单中创建多个输入框，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/47385300/

24

4

0

文章推荐： ethereum - 错误 : insufficient funds for gas * price + value

文章推荐：榆树make.exe : getFileAttributesExStandard: does not exist

文章推荐： Symfony4 - 404 与供应商捆绑路线

文章推荐： apache-spark - EMR 事件的数据管道失败

vbscript - 从另一个传递参数的 vbscript 文件调用 vbscript
我正在使用下面的脚本来调用另一个脚本。问题是我必须将 WScript.Arguments 检索到的参数传递给我正在调用的第二个脚本。有人可以告诉我该怎么做吗。 Dim objShell Set obj
vbscript - 从另一个传递参数的 vbscript 文件调用 vbscript
我正在使用下面的脚本来调用另一个脚本。问题是我必须将我通过 WScript.Arguments 检索的参数传递给我正在调用的第二个脚本。有人可以告诉我该怎么做吗。 Dim objShell Set o
vbscript - 预期的语句结束 (vbscript)
我有一个非常简单的 vbscript 代码: Dim path As String = Environment.GetFolderPath(Environment.SpecialFolder.Prog
vbscript - 复制和重命名文件 VBScript
我需要将名称基于日期的文件移动到另一个文件夹。文件结构为: 来源: \\network_location\folder\Filename_09-11-2012.txt 目的地: C:\Dump\Fi
vbscript - VBScript 函数中的变量范围
我有一个关于 VBScript 中变量作用域的问题。我知道有以下关键字(来自 autoitscript.com ): Dim = 局部作用域，如果变量名在全局不存在(在这种情况下它重用全局变量!) G
vbscript - VBScript 是否允许在函数调用中使用命名参数？
我正在尝试在 VBScript 中运行以下代码但它没有编译最后一条语句。是不是因为VBScript不允许命名参数？ Filename_Argument = WScript.Arguments(0) S
vbscript - VBScript:检查用户输入是否为整数
在VBScript中，我需要确保用户输入一个整数。这是我现在所拥有的： WScript.Echo "Enter an integer number : " Number = WScript.StdI
vbscript - VBScript-使用错误处理来确定任务是否存在
使用这些信息，我学会了here和here。我在下面创建了短代码。当我运行代码并有意识地输入任务计划程序库的“\”文件夹中存在的任务时，我收到“任务不存在” msgbox。我尝试在传递给函数的变量
vbscript - VBScript MapNetworkDrive错误处理
我试图仅用VBScript编写一个小的脚本供家庭使用，该脚本在Macrium Reflect中进行预定备份之前运行。我被困在一个看似很小的问题上，这是在物理断开网络驱动器(即未连接电缆)时的错误处理
vbscript - VBScript 默认属性有问题
我阅读了 Eric Lippert 关于 VBScript 中默认属性语义的文章:http://blogs.msdn.com/b/ericlippert/archive/2005/08/30/4580
vbscript - VBScript 中的多维数组过滤
我正在尝试使用 VBScript 过滤二维数组，但 VBScript 的内置“过滤器”函数仅适用于单维数组。我使用的是“rs.GetRows()”数组，那么是否有一个可以处理二维数组的简单函数？编辑
vbscript - VBScript 中整数和字符串比较冲突
尝试在 HP-UFT 中运行时，下面的 VBScript 代码让我感到困惑，因为第一个语句打印 True 而不是 False (这似乎不合逻辑)，而第二个打印 False (这似乎合乎逻辑) 代码:
vbscript - VBScript 中需要转义字符的字符列表
我刚刚了解到 $ 需要转义字符。 VBScript 中还有哪些特殊字符？还有一个 bool 函数可以用来判断一个字符是否是特殊字符？最佳答案嗯？ WScript.Echo "$" 输出 $ 而不
vbscript - 批处理文件转换为 vbscript
我需要将批处理文件转换为 vbscript，但我对两者都不熟悉。如果我能理解批处理文件中发生的事情，我就可以很容易地计算出 vbscript。问题是批处理文件运行一些 cscript 命令，其语法应该
vbscript - VBscript 自动格式化工具
已结束。此问题正在寻求书籍、工具、软件库等的推荐。它不满足Stack Overflow guidelines 。目前不接受答案。我们不允许提出寻求书籍、工具、软件库等推荐的问题。您可以编辑问题，以便
vbscript - 是否可以在不使用临时文件的情况下在批处理文件中嵌入和执行 VBScript？
长期以来，人们一直在批处理文件中嵌入和执行 VBScript。但是我看到的所有已发布的解决方案(在最初提出这个问题时)都涉及编写临时 VBS 文件。例如:Embed VBScript inside W
vbscript - 检查文件夹中是否存在任何文件 (VBScript)
如何检查文件夹中是否存在任意名称的文件？我还想忽略子文件夹。谢谢。编辑: 我想我已经明白了，但也感谢任何贡献...... If Folder.Files.Count > 0 Then 'Do
vbscript - 从列表中回显随机名称，vbscript
我对编程很陌生，我想制作一个程序，从 Vb 脚本的列表中随机选择一个名称或句子。这是列表: Jacob James Jason Caleb Ashlee John 程序需要从该列表中选择一个随机名称
vbscript - 检查文件夹中是否存在任何文件 (VBScript)
如何检查文件夹中是否存在任意名称的文件？我还想忽略子文件夹。谢谢。编辑: 我想我已经明白了，但也感谢任何贡献...... If Folder.Files.Count > 0 Then 'Do
vbscript - 需要使用命令提示符打开本地镜像文件的 VBScript
我需要一个 Vbscript，它可以从我的 PC 打开一个图像文件，并在几分钟后自动关闭。我计划通过命令提示符运行脚本，非常感谢任何帮助。最佳答案使用 HTML Application 可能更容易

首页

博学

6Ren·AI

商城

vbscript - 如何使用 vbscript 在一个用户表单中创建多个输入框