以下是一个简单的VBScript代码，可以不断弹出窗口：
Set objShell = CreateObject("WScript.Shell")
Do
objShell.Run "cmd /c msg * Hello", 1, True
WScript.Sleep 1000
Loop
这个代码会不断使用Windows的命令提示符（cmd）来发送一个消息（Hello），并弹出一个窗口，`WScript.Sleep 1000`语句使代码在每次循环之间暂停1秒钟，以便您可以看到窗口不断弹出。
请注意，此代码可能会对您的计算机造成不必要的负担，并且可能会干扰您的工作或娱乐，请谨慎使用此代码，并确保您了解其后果。
