中国DOS联盟论坛 - 中国DOS联盟之联合DOS论坛

输入框数据保存问题.

标题：输入框数据保存问题.

作者：JIANHUILAI | 时间：2008-01-29 08:56 | 标题：输入框数据保存问题.

大家能不能帮我设计这样一个VBS,就是这个VBS 执行之后弹出一个输入框,当输入数据之后,点确定,将输入框的内容保存在自已指定的目录.或者能用NET SEND 发送到指定电脑如果不输入就会弹现"务必输入"只到它输入数据才停止弹出输入对话框.可不可能做到......有劳各位.

作者：s11ss | 时间：2008-01-29 09:54

while c=""

	c=inputbox("请输入数据","","")

	if c="" then msgbox "务必输入"

wend



createobject("scripting.filesystemobject").opentextfile("c:\c.txt",8,true).writeline c

[ Last edited by s11ss on 2008-1-29 at 11:53 AM ]

作者：zh159 | 时间：2008-01-29 11:34

也可以这样，不过特殊字符就不行了

while c=""

        c=inputbox("请输入数据","","")

        if c="" then msgbox "务必输入"

wend



CreateObject("Wscript.Shell").run "cmd /c >c:\c.txt echo." & c,vbhid

[ Last edited by zh159 on 2008-1-29 at 11:35 AM ]

作者：slore | 时间：2008-01-29 14:38

存到注册表，或者某文件中……

用2楼脚本自己的写文件的方式比P的好。（能处理特殊字符）

作者：zh159 | 时间：2008-01-29 15:22

writeline写入的文件带有回车换行符号，改为write即可

作者：JIANHUILAI | 时间：2008-01-29 19:30

很好,谢谢!!!.请问还能不能用批处理的NET SEND 命令发送出去.如 NET SEND 电脑IP 输入框的内容.

作者：s11ss | 时间：2008-01-30 10:17

while c=""

        c=inputbox("请输入数据","","")

        if c="" then msgbox "务必输入"

wend



createobject("wscript.shell").run "net send 电脑IP "&c

作者：JIANHUILAI | 时间：2008-01-31 08:47

哎,這裏真是高手如雲哪,謝謝7樓兄弟.又學了一招.

来源：https://www.cn-dos.net/forum/viewthread.php?tid=37405　·　打印时间 2026-08-07 11:15