VBScript实现inputbox多输入框和inputbox和checkbox框

最新推荐文章于 2026-05-10 06:01:11 发布

原创最新推荐文章于 2026-05-10 06:01:11 发布 · 1w 阅读

2 ·

本内容遵循CC 4.0 BY-SA版权协议

标签

#vbscript #input #javascript #button #function

脚本的世界专栏收录该内容

3 篇文章

订阅专栏

本文介绍如何使用VBScript创建模拟inputbox的多功能对话框，包括多输入框和复选框功能。通过示例代码展示如何实现这些功能，并提供了一个自定义的multiInputBox函数，该函数可以根据输入参数动态生成包含输入框和复选框的对话框。

VBScript是无法实现inputbox多输入框出现在同一个dialog中的，但是如果使用IE的话，还是可以实现同样的效果的。

在网上找到了一个高人的范例，贴在下面

WScript.Echo "这个例子是模仿你贴出来的图片" ss = multiInputBox("实例", "要搜索的文件或文件夹名为:^^M|包含文字:^^C") WScript.Echo "输入的文件名是：" & ss(0) WScript.Echo "包含文字是：" & ss(1) '************************************************************** '* “VBS多重输入框” (P)&(C) 2010 『据说是李先生』 '* '* 返回值为一个数组，依次是各个输入值。 '* '* title : 输入框标题 '* '* content : 一个字符串，包含显示信息，具体格式为 '* '* 提示信息^默认值^热键|提示信息^默认值^热键|... '* '* “^” 和 “|” 做分隔符，只有提示信息是必需的 '* '* 热键：一个字符，比如“M”，按住Alt，再按M就能快速定位到此条输入框 '* '*************************************************************** Function multiInputBox(title, content) Dim htmlStr, temp, i, l, height, allInputs, input, contentArr(), result() temp = Split(content, "|") ReDim contentArr(UBound(temp)) For i = 0 To UBound(temp) contentArr(i) = Split(temp(i), "^") Next l = UBound(contentArr) ReDim result(l) height = l * 50 + 155 htmlStr = "<html><head><title>" & title & "</title>" htmlStr = htmlStr & "<meta http-equiv=content-type content=""text/html; charset=gb18030"">" htmlStr = htmlStr & "<mce:style type=""text/css""></mce:style><mce:style type=""text/css"" mce_bogus="1"></mce:style><style type=""text/css"" mce_bogus="1" mce_bogus="1">*{font:12px/1.2em Arial;} .input_box{width:250px;height:23px;padding-top:3px;border-color:#CCC;color:#333;background-color:#EEE;}</style>" htmlStr = htmlStr & "<mce:script type=""text/javascript""></mce:script>" htmlStr = htmlStr & "</head><body scroll=""no"" onkeyup=""cf(event)"">" For i = 0 To l temp = "<input onfocus=""javascript:this.select();"" class=""input_box"" type=""text""" If UBound(contentArr(i)) > 0 Then temp = temp & """ value=""" & contentArr(i)(1) If UBound(contentArr(i)) > 1 Then temp = temp & """ name=""" & UCase(contentArr(i)(2)) temp = contentArr(i)(0) & "(<u>" & UCase(contentArr(i)(2)) & "</u>)<br>" & temp Else temp = contentArr(i)(0) & "<br>" & temp End If temp = temp & """ /><br><br>" htmlStr = htmlStr & temp Next htmlStr = htmlStr & "<br><input type=""hidden"" name=""ching"" value=""me""/>" htmlStr = htmlStr & "<input type=""button"" value=""确定"" onclick=""javascript:ching.value='ching';""/>" htmlStr = htmlStr & "<input type=""button"" value=""取消"" onclick=""javascript:ching.value='caofackri';""/>" htmlStr = htmlStr & "</body></html>" '本来想用UMU在点关闭的时候清空数据，但那样至少要分割成两个函数，因此改用错误忽略。 With WScript.CreateObject("InternetExplorer.Application", "UMU_") .menubar=0:.addressbar=0:.toolbar=0:.statusbar=0:.resizable=0 .width=300:.height=height:.navigate "about:blank":.visible=1 .document.write htmlStr Do On Error Resume Next WScript.Sleep 100 If .document.body.all.ching.value = "ching" Then Set allInputs = .document.getElementsByTagName("input") i = 0 For Each input In allInputs If i > l Then Exit For result(i) = input.value i = i + 1 Next .Quit Exit Do End If If .document.body.all.ching.value = "caofackri" Then .Quit Exit Do End If If Err.Number <> 0 Then Exit Do Loop End With multiInputBox = result End Function

针对工作中的应用，对上述的代码进行了一定的修改，修改成了多个inputbox和checkbox框组合显示的情况

将代码粘在下面

strSetting = multiInputBox("Setting:", "Execute1:|Execute2:|Input times of execute3:|Input times of execute4:") WScript.Echo strSetting(0)&strSetting(1)&strSetting(2)&strSetting(3) If strSetting(0) = "execute" Then MsgBox("The first checkbox is checked") End If '*************************************************************** Function multiInputBox(title, content) Dim htmlStr, temp, i, l, height, allInputs, input, contentArr, result() contentArr = Split(content, "|") l = UBound(contentArr) ReDim result(l) contentArr(0)=contentArr(0)+" "+" "+" " height = l * 50 + 155 - 2 * 15 - 5 htmlStr = "<html><head><title>" & title & "</title>" htmlStr = htmlStr & "<meta http-equiv=content-type content=""text/html; charset=gb18030"">" htmlStr = htmlStr & "<mce:style type=""text/css""></mce:style><style type=""text/css"" mce_bogus="1">*{font:12px/1.2em Arial;} .input_box{width:250px;height:23px;padding-top:3px;border-color:#CCC;color:#333;background-color:#EEE;}</style>" htmlStr = htmlStr & "<mce:style type=""text/css""></mce:style><style type=""text/css"" mce_bogus="1">*{font:12px/1.2em Arial;} .check_box{width:30px;height:20px;padding-top:1px;border-color:#CCC;color:#333;background-color:#EEE;}</style>" htmlStr = htmlStr & "<mce:script type=""text/javascript""></mce:script>" htmlStr = htmlStr & "<mce:script type=""text/javascript""></mce:script>" htmlStr = htmlStr & "</head><body scroll=""no"" onkeyup=""cf(event)"">" For i = 0 To l If(i = 0 Or i =1) Then temp = "<input onfocus=""javascript:this.select();"" class=""check_box"" name = ""checkboxes"" type=""checkbox"" onclick=""check('checkboxes')"";" temp = contentArr(i) & temp '& "<br>" temp = temp & """ /><br><br>" ' htmlStr = htmlStr & temp Else temp = "<input onfocus=""javascript:this.select();"" class=""input_box"" type=""text""" temp = contentArr(i) & "<br>" & temp temp = temp & """ /><br><br>" htmlStr = htmlStr & temp End If Next htmlStr = htmlStr & "<br><input type=""hidden"" name=""ching"" value=""me""/>" htmlStr = htmlStr & "<input type=""button"" value=""OK"" onclick=""javascript:ching.value='OK';""/>" htmlStr = htmlStr & "<input type=""button"" value=""Cancel"" onclick=""javascript:ching.value='Cancel';""/>" htmlStr = htmlStr & "</body></html>" With WScript.CreateObject("InternetExplorer.Application", "UMU_") .menubar=0:.addressbar=0:.toolbar=0:.statusbar=0:.resizable=0 .width=300:.height=height:.navigate "about:blank":.visible=1 .document.write htmlStr Do On Error Resume Next WScript.Sleep 100 If .document.body.all.ching.value = "OK" Then Set allInputs = .document.getElementsByTagName("input") i = 0 For Each input In allInputs If i > l Then Exit For result(i) = input.value i = i + 1 Next .Quit Exit Do End If If .document.body.all.ching.value = "Cancel" Then .Quit Exit Do End If If Err.Number <> 0 Then Exit Do Loop End With multiInputBox = result End Function

其实也可以实现类似单选框，多选框，文本框等的组合，在以上的基础上进行改进就可以了~~