用vbs编写个程序，弹出可输入内容的对话框，并保存为记事本。

Question

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

Answer 1

经测试可用,不懂的hi我

Dim name,sex,birth
name=InputBox("请输入姓名")
sex=InputBox("请输入姓别")
birth=InputBox("请输入出生日期")
Set fso=CreateObject("scripting.filesystemobject")
Set file=fso.createtextfile("" & name & ".txt",True)
file.Close
MsgBox name
set fi=fso.opentextfile("" & name & ".txt",2)
s="姓名:"&name&vbCrLf&"姓别:"&sex&vbCrLf&"出生日期:"&birth
fi.write s
fi.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我。本回答被提问者和网友采纳