用vbs脚本写一个每次打开都弹窗显随机内容

可以参考以下的代码：

Set objFSO=CreateObject("Scripting.FileSystemObject")
Set objFile=objFSO.OpenTextFile("content.txt",1)
arrContent=Split(objFile.ReadAll, vbCrLf)
objFile.Close
Randomize
intIndex=Int(Rnd*UBound(arrContent))
strContent=arrContent(intIndex)
Set objShell=CreateObject("WScript.Shell")
objShell.Popup strContent, 0, "随机内容", 0

这段代码会从文件 "content.txt" 中读取内容，然后随机选择一条内容显示在弹窗中。弹窗的标题为 "随机内容"，显示时间为 0 毫秒（也就是一直显示直到用户手动关闭）。其中 content.txt 的格式为每行一个内容。