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

最新推荐文章于 2023-10-04 18:49:21 发布

nighsen

最新推荐文章于 2023-10-04 18:49:21 发布

阅读量9.7k

点赞数 1

分类专栏：脚本的世界文章标签： vbscript input javascript button function scroll

本文链接：https://blog.csdn.net/nighsen/article/details/5873126

版权

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

摘要由CSDN通过智能技术生成

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 &