vb编程简单吗,vbs中for each语句的具体用法

编写vbs有多简单?

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

编写vbs有多简单?

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

编写vbs有多简单?

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

编写vbs有多简单?编写vbs有多简单?

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

编写vbs有多简单?

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

无限弹出光驱:

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有多简单?

直接关机:

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后还可以通过创建快捷方式伪装成各种各样的应用程序。

声明:本网页内容旨在传播知识,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。E-MAIL:dandanxi6@qq.com

(0)
上一篇 2023年 1月 27日 上午8:56
下一篇 2023年 1月 27日 上午9:02

相关推荐

  • 微信朋友圈投放代理找谁(朋友圈投放代理找谁)

    不管一个品牌有多小,它都有自己的声音什么是朋友圈的广告?它是如何展示的?它的功能是什么?如何帮助企业实现排水和转型?回答7个问题 与商家一起探索更好的本地广告1.问:微信朋友圈广告…

    2023年 1月 4日
  • 康佳电视没有u盘直接看cctv

    康佳电视自带软件并不是很丰富,一般需要自行网上搜索软件或者安装第三方软件商店美家市场来扩展,而且对于很多想知道用康佳电视怎么看cctv的朋友来说,装个可以看电视节目的软件是必要的一…

    2023年 7月 12日
  • 苹果ipadair3出现了什么问题

    文|明美无限 相信有持续关注明美无限的果粉们应该都明白,苹果公司的产品不管是iPhone还是iPad以及其他都是业界公认的好口碑产品,不过对于一些产品的品控方面苹果公司也是有翻车的…

    2023年 6月 21日
  • 设置路由器防止别人来蹭网,路由器能设置防止别人蹭网吗

    被蹭网,我相信很多人有过经历,家里的路由器密码,无缘无故被泄露。蹭网者肆无忌惮,大肆掠夺你的网络资源。点击后面的文字,看看新闻报道那个悲惨的被蹭网的家伙,抓狂一天改3次Wifi密码…

    2023年 1月 21日
  • 怎样开淘宝网店比较省钱

    当今社会,互联网发展迅速,电商行业越来越受到人们的关注。如果你想在互联网上创业,开一家淘宝网店是不错的选择。以下是淘宝网店新手教程: 1. 注册淘宝账号:进入淘宝官网,点击“免费注…

    2023年 5月 21日
  • 为什么自考的学历学信网查不到学籍

    大部分助学机构宣传自考的时候就是说自考是学信网可查的学历,而很多报了自考的考生发现在学信网上查不到自己的学籍信息,那为什么自考生在学信网上查不到学籍信息?一起来看看! 自考生只有学…

    2023年 3月 23日
  • 淘宝店保证金怎么退回,及过户后是否会退回来

    在淘宝上有很多商家做了一段时间后就不想做了,或者是达到了可以退保证金的条件后,这时候就需要去申请退店铺保证金了,那么淘宝店铺转让后保证金要怎么退呢? 1.打开浏览器,登录淘宝网,进…

    2023年 6月 15日
  • 东方航空学生优惠认证失败(东方航空学生认证会便宜多少)

    爱出行的学生党福利来啦!东方航空推出了学生惠-校园行政策! 认证成功后可以买到最低价的机票!一般都比经济舱要便宜几十块钱! 下面就是具体的认证方法: ①首先打开东方航空APP,在首…

    2023年 1月 26日
  • 王者荣耀怎么拉黑游戏,微信,qq好友也拉黑了

    王者荣耀好友是分为三种的,一种是游戏好友,一种是微信好友,还有一种是QQ好友,现在王者荣耀拉黑删除好友都成了一个大问题,因为太难了,比较简单的是游戏好友,王者荣耀里加的好友,拉黑就…

    2023年 2月 2日
  • 教你如何给微信评选活动拉票,微信评选投票技巧

    微信投票活动在创建好之后需要进行拉票,只有拉票才能给活动带来足够多的曝光量和访问量,达到宣传引流的效果,提高自己的知名度,活动的收益也会越大。下面小编就给你介绍几种如何给微信评选活…

    2023年 3月 13日