VBS如何实现inputbox多输入框？ - 中国DOS联盟论坛

写了一个函数 multiInputBox ，可以这样用


WScript.Echo "这个例子是模仿你贴出来的图片"
ss = multiInputBox("实例", "要搜索的文件或文件夹名为:^^M|包含文字:^^C")
WScript.Echo "输入的文件名是：" & ss(0)
WScript.Echo "包含文字是：" & ss(1)

以下是这个函数：

multiInputBox(title, content)


'**************************************************************
'*  “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 & "<style type=""text/css"">*{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 & "<script type=""text/javascript"">function cf(e){if(e.altKey)try{eval(String.fromCharCode(e.keyCode)).focus()}catch(e){};}</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

第1楼　5872169	发表于 2009-02-21 15:44
高级用户　发帖 474　积分 959
VBS如何实现inputbox多输入框？ VBS如何实现inputbox多输入框？比如我想实现三个输入框，能实现吗？类似于下面的图附件 1.rar (5.33 KiB)

第2楼　slore	发表于 2009-02-21 15:45
铂金会员　发帖 2,478　积分 5,212
不能

第3楼　523066680	发表于 2009-02-21 16:04
银牌会员　发帖 1,133　积分 2,362
我想网页里面可以

第4楼　5872169	发表于 2009-02-21 17:41
高级用户　发帖 474　积分 959
谢谢，有什么方法能实现吗？请高手写一段代码，谢谢！！

第5楼　frav	发表于 2009-05-05 05:53
新手上路　发帖 1　积分 1
谢谢

第6楼　z9988	发表于 2010-01-18 02:08
新手上路　发帖 1　积分 1
我希望下载学习，但是可能积分不够

第7楼　chishingchan	发表于 2010-01-20 03:15
银牌会员　发帖 538　积分 1,284
使用HTA格式就可以，纯VBS是不支持的，如果要支持还要添加插件的。

第8楼　mountvol	发表于 2010-01-20 11:14
初级用户　发帖 117　积分 186
set oIE = WScript.CreateObject("InternetExplorer.Application","Event_") With oIE .MenuBar = 0 .StatusBar = 0 .AddressBar = 0 .ToolBar = 0 .Height = 150 .Width = 200 .Navigate "about:blank" .Visible = 1 .Document.Write "<HTML><BODY scroll='no'><input id='input1'><br>" .Document.Write "<input id='input2'><br><input id='input3'>" .Document.Write "<BUTTON id='btn'>确定</BUTTON></BODY></HTML>" End With Set oIE.Document.getElementById("btn").OnClick = GetRef("aaa") Do WScript.Sleep 200 Loop Sub aaa Dim str str = oIE.Document.getElementById("input1").Value & VbCrLf str = str & oIE.Document.getElementById("input2").Value & VbCrLf str = str & oIE.Document.getElementById("input3").Value WScript.Echo str End Sub Sub Event_OnQuit WScript.Quit End Sub

第9楼　qinchun36	发表于 2010-01-20 14:34
高级用户　发帖 400　积分 609
写了一个函数 multiInputBox ，可以这样用 WScript.Echo "这个例子是模仿你贴出来的图片" ss = multiInputBox("实例", "要搜索的文件或文件夹名为:^^M\|包含文字:^^C") WScript.Echo "输入的文件名是：" & ss(0) WScript.Echo "包含文字是：" & ss(1) 以下是这个函数： multiInputBox(title, content) '************************************************************** '* “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 & "<style type=""text/css"">*{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 & "<script type=""text/javascript"">function cf(e){if(e.altKey)try{eval(String.fromCharCode(e.keyCode)).focus()}catch(e){};}</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

第10楼　riser	发表于 2010-05-08 21:42
新手上路　发帖 1　积分 1
看看先~~~~~~~~~~~

第11楼　yonghu111	发表于 2010-05-09 13:20
初级用户　发帖 57　积分 90
学习了

第12楼　ymxfx	发表于 2010-09-14 00:02
新手上路　发帖 1　积分 1
学习学习

第13楼　cyn01livecn	发表于 2010-11-28 19:19
初级用户　发帖 23　积分 28
我只知道单框输入，好像不支持双框！