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

相关推荐

  • 目前傲游浏览器哪款好用

    一年一度的浏览器横评又来了,本次横评我们依旧选择了11款常用PC浏览器, 本次测试我们选择了11款浏览器,既包括主流的Chrome、Edge、火狐等,也包括一些冷门浏览器,同时也有…

    2023年 9月 30日
  • 分享个ps快速替换背景颜色的方法是什么

    不知道小伙伴们都用过PS吗?PS作为国外Adobe公司推出的专业图像处理软件,长期以来一直是所有图像处理工作者的首选。PS很专业,可以满足大部分人的处理需求,比如需要换背景,用PS…

    2023年 6月 11日
  • 让你越来越富有的存钱方法

    #暑期创作大赛# 写在前面: 有人说,赚到多少钱,并不重要,重要的是能存下多少。 深以为然。 赚得多,但花得却很多,也没存钱的概念,那到头来也是一场空。 赚得少,但懂得存钱,那随着…

    2023年 8月 30日
  • 天猫精灵智能插座评测(插座插在天猫精灵智能插座上)

    近年来有越来越多的智能家居产品问世,希望通过科技让人们的家庭生活变得更智能更方便。 而最近阿里巴巴人工智能实验室为天猫双11推出的智联套装,在预售阶段截止目前预定量已超过15万,成…

    2023年 9月 19日
  • outlook 快捷键大全(microsoftoutlook工具栏在哪)

    Microsoft Outlook 是市场上使用最广泛的电子邮件客户端之一,除基本的邮件收发外,它包括许多生产力工具,如日历、任务和便签等。其与 Microsoft Exchang…

    2023年 2月 5日
  • 抖音短怎么变现赚钱

    相信接触过抖音短视频的人都知道,抖音有着自己的一套推荐机制,如果掌握不好抖音的创作技巧,那么就很容易导致推荐量低、作品没人看的情况。今天就给大家安利几招,抖音的创作技巧,带你玩转抖…

    2023年 3月 14日
  • 速看杭州地铁电子旅游票将上线

    杭州地铁已开发完成了依托于“杭州地铁APP”的电子旅游票、电子单程票功能,将于今日(12月19日)正式与大家见面。 新功能1号 电子旅游票 杭州地铁已经完成了电子旅游票的功能,此次…

    2023年 2月 11日
  • 神武4手游新手封系怎么玩,神武4手游封系攻略

    无忧拌吉祥,神武乐逍遥!各位小伙伴们大家好,你们的小可爱吉祥又来了。 在《神武4》手游中,决定一件装备优良的因素除了属性以外,“红字”也是需要关注的重点。红字特效可以进一步提升属性…

    2023年 6月 10日
  • 情侣之间微信一般怎么聊天(情侣间的微信聊天话题)

    微信(WeChat)是腾讯公司在2011年推出的一个为智能终端提供即时通讯服务的应用程序。它作为我们日常生活中,必不可少的聊天工具。如果掌握微信聊天的一些小技巧会提高我们聊天效率。…

    2023年 2月 13日
  • 无法播放错误代码是9324

    您是否不断收到“此视频文件无法播放。 (错误代码:102630)”在网络浏览器中播放视频内容时出现消息?这可能是单个视频文件造成问题,也可能是影响多个视频的站点范围问题。 错误代码…

    2023年 9月 14日