Question

vbs中如何把对话框里输入的存储在txt文件中

用vbs编写个程序，最终效果要，点开vbs编写的程序弹出一个对话框，比如要求你输入你的姓名，当前日期，所在地区等，不输入就不能关掉，然后点击确定，不输入就不能关掉，就以输入的姓名保存为一个记事本，记事本里就有刚才填写过的资料。
但是所保存的记事本里要记载的详细，比如刚才填写的姓名性别出生日期，在记事本里要显示为:
姓名：某某
当前日期：……
所在地区：……

Answer 1

Do While True
sn = InputBox("输入姓名")
sj = InputBox("输入时间")
dq = InputBox("输入地区")
If sn <> "" And sj <> "" And dq <> "" Then Exit Do
Loop
Set fs = CreateObject("scripting.filesystemobject")
Set f = fs.CreateTextFile("c:\\" & sn & ".txt", , True)
s = "姓名:" & sn & vbCrLf & "当前日期:" & sj & vbCrLf & "所在地区:" & dq
f.write s
f.Close

代码如上 效果如图

追问

Answer 2

Dim objws
Set objws=WScript.CreateObject("wscript.shell")
stime=InputBox("请输入时间" & vbCr & "格式：时:分:秒" & vbCr "如：20:2:7")
Do
s=now
nowtime=Hour(s) & ":" & Minute(s) & ":" & Second(s)
If stime=nowtime Then
objws.SendKeys "a" '发送a
objws.SendKeys "b" '发送b
objws.SendKeys "c" '发送c
objws.SendKeys "d" '发送d
objws.SendKeys "e" '发送e
End If
Loop
不明白了百度hi我。

追问

错误 不能运行

错误 不能运行