中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --
联盟域名：www.cn-dos.net　论坛域名：www.cn-dos.net/forum

游客 | 登录 | 注册 | 会员 | 搜索 | 中国DOS联盟

中国DOS联盟论坛
现在时间是 2026-08-07 12:47

共 48,040 主题排行 / 350,125 发帖 / 今日 0 篇 / 48,252 会员排行

DOS批处理 & 脚本技术（批处理室） » 输入框数据保存问题.

可打印版本　855 / 7

第1楼　JIANHUILAI	发表于 2008-01-29 08:56
初级用户　发帖 51　积分 116
输入框数据保存问题. 大家能不能帮我设计这样一个VBS,就是这个VBS 执行之后弹出一个输入框,当输入数据之后,点确定,将输入框的内容保存在自已指定的目录.或者能用NET SEND 发送到指定电脑如果不输入就会弹现"务必输入"只到它输入数据才停止弹出输入对话框.可不可能做到......有劳各位.

第2楼　s11ss	发表于 2008-01-29 09:54
银牌会员　发帖 566　积分 2,098
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 ]

第3楼　zh159	发表于 2008-01-29 11:34
金牌会员　发帖 1,467　积分 3,687
也可以这样，不过特殊字符就不行了 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 ]

第4楼　slore	发表于 2008-01-29 14:38
铂金会员　发帖 2,478　积分 5,212
存到注册表，或者某文件中…… 用2楼脚本自己的写文件的方式比P的好。（能处理特殊字符）

第5楼　zh159	发表于 2008-01-29 15:22
金牌会员　发帖 1,467　积分 3,687
writeline写入的文件带有回车换行符号，改为write即可

第6楼　JIANHUILAI	发表于 2008-01-29 19:30
初级用户　发帖 51　积分 116
很好,谢谢!!!.请问还能不能用批处理的NET SEND 命令发送出去.如 NET SEND 电脑IP 输入框的内容.

第7楼　s11ss	发表于 2008-01-30 10:17
银牌会员　发帖 566　积分 2,098
while c="" c=inputbox("请输入数据","","") if c="" then msgbox "务必输入" wend createobject("wscript.shell").run "net send 电脑IP "&c

第8楼　JIANHUILAI	发表于 2008-01-31 08:47
初级用户　发帖 51　积分 116
哎,這裏真是高手如雲哪,謝謝7樓兄弟.又學了一招.

[ 联系联盟系统管理团队 - 中国DOS联盟 - 标准版 ]
Sponsored by ifanr Inc | © 2001–2023