恶搞一下 简单的vbs代码 大学生必了解的一些

恶搞一下 简单的vbs代码 大学生必了解的一些

2019-03-30 18:37:49 作者:啊哈   |   浏览(800)   |   评论(0)   |   得分(1)

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

download.png


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

do  loop  是vbs的一个无限循环体

download (1).png

那么到底要如何才能关闭呢?打开任务管理器结束进程“wscript.exe”即可  快捷键windows  然后输任务  找到任务管理器 找到wscript.exe  结束进程 就行了

download (3).png

无限弹出光驱:

------------------------------------------------

set wmp=createobject("wmplayer.ocx") 

set cd=wmp.cdromcollection.item(0) 

do 

cd.eject 

loop 

------------------------------------------------

QQ信息骚扰恶搞:

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

------------------------------------------------

On Error Resume Next 

Dim wsh,ye 

set wsh=createobject("wscript.shell") 

for i=1 to 10                                                   //发送次数从1到10

wscript.sleep 700                                           //发送快慢   以毫秒为单位   1秒=1000毫秒

wsh.AppActivate("乐乐网") 

wsh.sendKeys "^v" 

wsh.sendKeys i 

wsh.sendKeys "%s" 

next 

wscript.quit

------------------------------------------------

直接关机:   可以写一个 以后一键关电脑  

dim WSHshell 

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

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


0 分
分享到合作网站并加15分:
获奖规则 全部评论(0
啊哈

作者昵称:啊哈

当前排名:6

当前得分:1

征文比赛 有奖征文
下期专题
原生js jquery
已投稿 2       获奖规则
有奖征文
倾听世界
清纯唯美写真合集
也许我就是一块老墨
证件照
享笑网2015-5-30#325806#
爱情就是一百多年的孤寂
中国书法家【郝天明】书法新作(妙笔生辉