用户注册



邮箱:

密码:

用户登录


邮箱:

密码:
记住登录一个月忘记密码?

发表随想


还能输入:200字
云代码 - vb代码库

vbs写的一个代码,填括号中的信息

2020-05-31 作者:陨落之弓举报

[vb]代码库

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


分享到:
更多

网友评论    (发表评论)


发表评论:

评论须知:

  • 1、评论每次加2分,每天上限为30;
  • 2、请文明用语,共同创建干净的技术交流环境;
  • 3、若被发现提交非法信息,评论将会被删除,并且给予扣分处理,严重者给予封号处理;
  • 4、请勿发布广告信息或其他无关评论,否则将会删除评论并扣分,严重者给予封号处理。