七夕节将至，没有对象就自己New一个吧！

paddi懒

于 2024-08-07 16:28:58 发布

阅读量116

点赞数 3

分类专栏： vbs脚本浪漫七夕文章标签：前端

本文链接：https://blog.csdn.net/m0_46224501/article/details/140994384

版权

vbs脚本同时被 2 个专栏收录

1 篇文章 0 订阅

订阅专栏

浪漫七夕

1 篇文章 0 订阅

订阅专栏

创建一个friend.vbs脚本，内容如下：

' 创建一个WScript对象
Set WshShell = WScript.CreateObject("WScript.Shell")

' 获取当前时间的小时部分
Dim hour
hour = DatePart("h",Now)	' 获取当前小时


' 根据当前时间的小时数判断是早上、中午还是晚上
Dim partOfDay
If hour >= 6 And hour < 12 Then
    partOfDay = "早上"
ElseIf hour >= 12 And hour < 18 Then
    partOfDay = "中午"
Else
    partOfDay = "晚上"
End If

' 构建消息内容
Dim message
message = partOfDay & "好呀，宝宝！" & Now

' 显示消息框
WshShell.Popup message, 0, "星宝宝", 0

双击运行就可以啦！