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 "时间是根据你的出生年月日算的,可能不是很精确,但目的只是想让知道时间过的很快,请珍惜时间!!!。" |