vbe与vbs整人代码大全,包括强制自动关机.打开无数计算器.无限循环等vbs整人代码,感兴趣的朋友参考下.vbe与vbs整人代码例子:set s=createobject("wscript.shell")set bag=getobject("winmgmts:\\.\root\cimv2")set pipe=bag.execquery("select * from win32_process where name='wscript.exe'")…
在网上查找资料的时候发现好多经典的vbs代码收集起来也为了以后学习. VBS播放音乐 Dim wmp Set wmp = CreateObject("WMPlayer.OCX") wmp.openState wmp.URL = "想象之中.mp3" Do Until wmp.playState = 1 WScript.Sleep 1000 Loop 比较流行的VBS整人脚本(保存为“礼物.VBE”这样就可以通过QQ发送了) Set shell=CreateObje…
恶作剧的vbs代码,这里提供的都是一些死循环或导致系统死机的vbs对机器没坏处,最多关机重启一下就可以了,将下面的任意一段代码保存为*.vbs即可 循环弹窗: do msgbox "hi" loop 英文报数: Set s = CreateObject("sapi.spvoice") i= do s.speak i i=i+ loop 打开计算器: Set ws = CreateObject("Wscript.Shell") ws.run 删除e…