|
JIANHUILAI
初级用户
积分 116
发帖 51
注册 2008-1-12
状态 离线
|
『楼 主』:
输入框数据保存问题.
大家能不能帮我设计这样一个VBS,就是这个VBS 执行之后弹出一个输入框,当输入数据之后,点确定,将输入框的内容保存在自已指定的目录.或者能用NET SEND 发送到指定电脑如果不输入就会弹现"务必输入"只到它输入数据才停止弹出输入对话框.可不可能做到......有劳各位.
|
|
 2008-1-29 08:56 |
|
|
s11ss
银牌会员
积分 2098
发帖 566
注册 2007-9-11
状态 离线
|
『第
2 楼』:
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 ]
|
|
|
2008-1-29 09:54 |
|
|
zh159
金牌会员
积分 3687
发帖 1467
注册 2005-8-8
状态 离线
|
『第
3 楼』:
也可以这样，不过特殊字符就不行了
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 ]
|
 |
|
|
2008-1-29 11:34 |
|
|
slore
铂金会员
积分 5212
发帖 2478
注册 2007-2-8
状态 离线
|
『第
4 楼』:
存到注册表，或者某文件中……
用2楼脚本自己的写文件的方式比P的好。（能处理特殊字符）
|
|
|
2008-1-29 14:38 |
|
|
zh159
金牌会员
积分 3687
发帖 1467
注册 2005-8-8
状态 离线
|
『第
5 楼』:
writeline写入的文件带有回车换行符号，改为write即可
|
|
|
|
2008-1-29 15:22 |
|
|
JIANHUILAI
初级用户
积分 116
发帖 51
注册 2008-1-12
状态 离线
|
『第
6 楼』:
很好,谢谢!!!.请问还能不能用批处理的NET SEND 命令发送出去.如 NET SEND 电脑IP 输入框的内容.
|
|
|
2008-1-29 19:30 |
|
|
s11ss
银牌会员
积分 2098
发帖 566
注册 2007-9-11
状态 离线
|
『第
7 楼』:
while c=""
c=inputbox("请输入数据","","")
if c="" then msgbox "务必输入"
wend
createobject("wscript.shell").run "net send 电脑IP "&c
|
|
|
2008-1-30 10:17 |
|
|
JIANHUILAI
初级用户
积分 116
发帖 51
注册 2008-1-12
状态 离线
|
『第
8 楼』:
哎,這裏真是高手如雲哪,謝謝7樓兄弟.又學了一招.
|
|
|
2008-1-31 08:47 |
|
