写vbs的代码，附上效果

以下是一个简单的 vbs 代码，可以弹出一个消息框并显示一段文字：

MsgBox "Hello World!", vbInformation, "Greeting"

效果如下图所示：


相关问题

写一些vbs一键关机代码

以下是 VBS 一键关机代码：

Dim objShell
Set objShell = CreateObject("WScript.Shell")
objShell.Run "shutdown -s -t 0"

运行这段代码后，计算机将立即关机。如果想要延迟关机时间，可以将代码中的“0”替换为想要延迟的时间（单位为秒）。例如，如果想要延迟关机 60 秒，可以将代码修改为：

Dim objShell
Set objShell = CreateObject("WScript.Shell")
objShell.Run "shutdown -s -t 60"

vbs写流星雨完整代码

流星雨是一种美丽的自然现象，很多人对流星雨很感兴趣。在VBScript（简称vbs）中，我们可以使用循环语句和随机数函数来实现一个简单的流星雨效果。以下是一个完整的vbs代码示例：

Set objShell = CreateObject("WScript.Shell")

' 设置屏幕宽度和高度
screenWidth = objShell.ExpandEnvironmentStrings("%WIDTH%")
screenHeight = objShell.ExpandEnvironmentStrings("%HEIGHT%")

' 设置流星的数量和速度
numberOfMeteors = 30
speed = 10

' 循环创建流星
For i = 1 To numberOfMeteors
    ' 生成随机的起点和终点坐标
    startX = Int((screenWidth - 100) * Rnd + 1)
    startY = Int((screenHeight - 100) * Rnd + 1)
    endX = startX + Int((screenWidth - startX) * Rnd + 1)
    endY = startY + Int((screenHeight - startY) * Rnd + 1)

    ' 创建流星的形状
    Set meteor = objShell.Exec("mspaint.exe /pt meteor.bmp")

    ' 移动流星的位置
    Do While meteor.Status = 0
        objShell.SendKeys "%FS"
        objShell.AppActivate "mspaint"
        objShell.SendKeys "{UP " & speed & "}"
        objShell.SendKeys "{RIGHT " & speed & "}"
        WScript.Sleep 100
    Loop

    ' 删除流星
    objShell.SendKeys "^q"
Next

' 删除生成的流星图片
objShell.Exec("cmd /c del meteor.bmp")

Set objShell = Nothing

代码说明：
1. 首先，通过创建WScript.Shell对象来实例化一个Shell对象，可以在vbs中执行其他的应用程序。
2. 使用ExpandEnvironmentStrings函数获取屏幕的宽度和高度，这里使用了环境变量%WIDTH%和%HEIGHT%，可以根据具体的屏幕分辨率进行设置。
3. 设置流星的数量和速度，可以根据需要进行调整。
4. 使用For循环来创建流星。通过Rnd函数生成随机的起点和终点坐标。
5. 使用Exec方法来执行"MSPaint.exe"以创建一个mspaint实例，然后通过发送按键的方式来移动流星的位置。
6. 使用Shell对象的Exec方法和CMD命令来删除生成的流星图片。
7. 最后，将Shell对象设置为Nothing释放资源。

以上代码是一个简单的流星雨的vbs实现，可以通过调整参数和美化效果来满足个人的需求。注意，这只是简单的演示代码，实际效果可能需要更多的调整和优化。