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

经测试可用,不懂的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

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我。