无限弹窗代码vbs,无限弹窗代码bat有病毒吗

vbs弹出一个提醒休息的窗口,点击确定后五十分钟,则再次弹出窗口提醒...

1、隐藏该窗口，激活另一个窗口。1 激活并显示一个窗口。如果窗口被最小化或最大化，系统会将其恢复为原来的大小和位置。在第一次显示窗口时，应用程序应该指定该标志。2 激活窗口，并将其显示为最小化窗口。

2、首先要添加两个窗体，假设第一个窗体名为Form1，第二个窗体名为Form2。在Form1窗体中添加个按钮Command1。

3、弹出窗口要自己编写，而且需要用API函数去获取鼠标移动或者有按键按下的消息，然后自己定义怎么处理它们。我建议你把这个时间放大得了，比方说用20秒作为等待时间，并且加入一个提醒的框，告诉用户还剩下多少操作的时间。

4、本来MsgBox弹出的对话框就是个模态窗口啊，不关闭它后面的代码是不会运行的。

求一VB恶搞程序代码

把以下代码复制到记事本中，然后把扩展名改为.vbs运行即可。

这是一个吓人程序：首先新建一个文件夹，放一张比较吓人的图片，名称为“jpg”。在vb中新建工程，创建一个计时器，interval设为1000。窗体的borderstyie设为0。

把下面的程序做成.exe。然后放在启动里。但首先要保证是XP系统，并且系统里有shut down命令。

If Loop End Sub 这个程序挺简单的，就不上图了。里面做了一下改动。如果按楼主的意思，“我”，显示出来以后很别扭，如果你想改，把inputbox（）里的改成你想要的。在x=里改成你想要对方回答的答案即可。

置放一个 timer，名为timer1 六十秒重新问一次，超整人 Private Sub Form_Load（）Dim a As String Do a = InputBox（你是猪吗？ & vbNewLine & 请回答是或否。

如何制作vbs弹窗无限循环

1、首先，新建一个txt文件，你爱起什么名字起什么名字。如图，输入： do loop 解析：do和loop是 无限循环，而中间夹着的一个循环体，就是要无限循环的代码。

2、代码如下，复制到记事本，将txt改为vbs就ok了，中间的字可自己改。if MsgBox（对不起，您灌水太多需要重新启动计算机。

3、保存文档，将文档改名为【无限烦人小程序.vbs】，注意文件名后缀格式。双击保存的文件，小程序执行，直到最后一条消息完成才会关闭。

4、用语句exit for来跳出for循环，这里跳出循环指的是跳出最里面一层的循环结构。

5、用do…… loop的循环结构语句，这个结构将一直执行do至loop之间的语句，直到遇到Exit do语句为止。

6、首先在电脑中新建一个文本文档，如图。然后打开文本文档，输入下图中的内容，如图。然后再将文件进行保存，如图所示。然后将文件的后缀名改为“vbs”，如图。然后点击vbs文件，就会出现一个死循环的窗口。