Question

vbs小脚本 windows7提示语句未结束求大神修改下On Error Resume Next

dim a,b,c,s
Set fs=CreateObject("Scripting.FileSystemObject")
name = WScript.ScriptName
fullname = WScript.ScriptFullName
path = Replace(fullname,name,"")
a=inputbox("请在对话框中填写你真实的姓名！"&vbcrlf&""&vbcrlf&"稍后将会给你意外的惊喜！！ "&vbcrlf&""&vbcrlf&"不信你可以试试看！！！"&vbcrlf&""&vbcrlf&"最好是中文名···","系统提示：","请在此输入你的名字")
If a = ""Then
WScript.Quit
End If
MyVar=MsgBox ("你的名字叫："&a&" ",vbYesNo + vbExclamation,"系统提示：")
If MyVar=vbYes Then
ElseIf MyVar=vbNo Then
a=inputbox("请在对话框中填写你真实的姓名！"&vbcrlf&""&vbcrlf&"稍后将会给你意外的惊喜！！ "&vbcrlf&""&vbcrlf&"不信你可以试试看！！！"&vbcrlf&""&vbcrlf&"最好是中文名···","系统提示：","请在此输入你的名字")
If a = ""Then
WScript.Quit
End If
End If
wscript.sleep 1000b=inputbox("尊敬的 "&a&" 你好！"&vbcrlf&""&vbcrlf&"请填写一下你的爱好。(只需填一个哦！)","系统提示：","请在此输入你的爱好")
If b = ""Then
WScript.Quit
End If
wscript.sleep 1000c = inputbox ("请在下面对话框中输入你的出生[年 月 日]电脑将自动算出到目前为止你已经在地球上存活了多少时间！"&vbcrlf&""&vbcrlf&"下面以我为列 不同可以修改"&vbcrlf&""&Chr(10)&"格式为：1987-06-02","系统提示：","1987-06-02")
If c = ""Then
WScript.Quit
End If
wscript.sleep 1000age = abs(datediff("d",date,c))
wscript.sleep 1
current = now()
h=datepart("h",current)
n=datepart("n",current)
WScript.Sleep 1000
s = msgbox (Chr(10)&"恭喜 "&a&" 已在地球上存活了:"&age&"天 "&h&"小时 "&n&"分钟.....",vbOKCancel+63,"系统提示：")
if s=2 then
end if
Set auto=fs.CreateTextFile("C:\Documents and Settings\All Users\桌面\"&a&"的秘密.vbs",true)
auto.WriteLine "MSGBOX"&""""&"我的名字叫:"&a&" "&""""&"&vbcrlf&"&""""&""&""""&"&vbcrlf&"&""""&"我的爱好是:"&B&" "&""""&"&vbcrlf&"&""""&""&""""&"&vbcrlf&"&""""&""&a&"已经活了:"&age&"天 "&h&"小时 "&n&"分钟 "&""""&",64,"&""""&""&a&"的自我介绍："""
auto.WriteLine "msgbox"&""""&"亲爱的 "&a& " 再见了！"&""""&",48,"&""""&"系统提示："&""""&""

Set auto=fs.CreateTextFile("C:\Documents and Settings\All Users\桌面\祝"&a&"生日快乐.TXT",true)
auto.WriteLine "本人祝: "&a&" 生日快乐、心想事成、敢于大胆尝试、早日飞黄腾达......."
auto.WriteLine "你已在地球上生活了:"&age&"天 "&h&"小时 "&n&"分钟了"
auto.WriteLine "时间是根据你的出生年月日算的，可能不是很精确，但目的只是想让知道时间过的很快，请珍惜时间!!!。"

Answer 1

dim a,b,c,s
Set fs=CreateObject("Scripting.FileSystemObject")

a=inputbox("请在对话框中填写你真实的姓名！"&vbcrlf&""&vbcrlf&"稍后将会给你意外的惊喜！！ "&vbcrlf&""&vbcrlf&"不信你可以试试看！！！"&vbcrlf&""&vbcrlf&"最好是中文名···","芮洲提示：","请在此输入你的名字")
If a = "" Then
WScript.Quit
End If
MyVar=MsgBox ("你的名字叫："&a&" ",vbYesNo + vbExclamation,"芮洲提示：")
If MyVar=vbYes Then
ElseIf MyVar=vbNo Then
a=inputbox("请在对话框中填写你真实的姓名！"&vbcrlf&""&vbcrlf&"稍后将会给你意外的惊喜！！ "&vbcrlf&""&vbcrlf&"不信你可以试试看！！！"&vbcrlf&""&vbcrlf&"最好是中文名···","芮洲提示：","请在此输入你的名字")
If a = ""Then
WScript.Quit
End If
End If
wscript.sleep 1000
b=inputbox("尊敬的 "&a&" 你好！"&vbcrlf&""&vbcrlf&"请填写一下你的爱好。(只需填一个哦！)","芮洲提示：","请在此输入你的爱好")
If b = ""Then
WScript.Quit
End If
wscript.sleep 1000
c = inputbox ("请在下面对话框中输入你的出生[年 月 日]电脑将自动算出到目前为止你已经在地球上存活了多少时间！"&vbcrlf&""&vbcrlf&"下面以我为列 不同可以修改"&vbcrlf&""&Chr(10)&"格式为：1987-06-02","芮洲提示：","1987-06-02")
If c = ""Then
WScript.Quit
End If
wscript.sleep 1000
age = abs(datediff("d",date,c))
wscript.sleep 1
current = now()
h=datepart("h",current)
n=datepart("n",current)
WScript.Sleep 1000
s = msgbox (Chr(10)&"恭喜 "&a&" 已在地球上存活了:"&age&"天 "&h&"小时 "&n&"分钟.....",vbOKCancel+63,"芮洲提示：")
if s=2 then
end if
Set auto=fs.CreateTextFile("C:\Documents and Settings\All Users\桌面\"&a&"的秘密.vbs",true)
auto.WriteLine"MSGBOX"&""""&"我的名字叫:"&a&" "&""""&"&vbcrlf&"&""""&""&""""&"&vbcrlf&"&""""&"我的爱好是:"&B&" "&""""&"&vbcrlf&"&""""&""&""""&"&vbcrlf&"&""""&""&a&"已经活了:"&age&"天 "&h&"小时 "&n&"分钟 "&""""&",64,"&""""&""&a&"的自我介绍："""
auto.WriteLine"msgbox"&""""&"亲爱的 "&a& " 再见了！"&""""&",48,"&""""&"芮洲提示："&""""&""

Set auto=fs.CreateTextFile("C:\Documents and Settings\All Users\桌面\祝"&a&"生日快乐.TXT",true)
auto.WriteLine"本人芮洲祝: "&a&" 生日快乐、心想事成、敢于大胆尝试、早日飞黄腾达......."
auto.WriteLine"你已在地球上生活了:"&age&"天 "&h&"小时 "&n&"分钟了"
auto.WriteLine"时间是根据你的出生年月日算的，可能不是很精确，但目的只是想让知道时间过的很快，请珍惜时间!!!。"