使用VBScript脚本的快乐体验-Toy模板网

这篇具有很好参考价值的文章主要介绍了使用VBScript脚本的快乐体验。希望对大家有所帮助。如果存在错误或未考虑完全的地方，请大家不吝赐教，您也可以点击"举报违法"按钮提交疑问。

借鉴这位博主http://t.csdn.cn/y9NKS

第一部分：初次体验vbs

1.关于vbs的创建，这个脚本是微软自带的，所以直接用txt文件修改后缀为vbs即可，注意，利用shift+ctrl+s另存为的时候将编码改为ANSI,不然运行的时候会出问题

2.之后就是直接在这个文件中写代码了，可以弹窗还是很好玩的:

（1）msgbox和WScript.Echo两种函数分别实现hello world

msgbox "hello world"

WScript.Echo("hello world")

（2）利用inputbox和msgbox函数实现基本的交互功能

dim name
name=inputbox("请输入您的名字","姓名")
msgbox name, , "您的名字"

第二部分：大体介绍基本的语法知识，稍微了解就行

1.if语句的用法：

dim var
dim num1
dim num2
var = inputbox("please input:","inputbox")
num1 = 666
num2 = 888
if var <99 then
    msgbox num1
else 
    msgbox num2
end if

2.case语句用法：

dim a
a = inputbox("please input a number")
select case a
  case 1 msgbox("111")
  case 2 msgbox("222")
  case else msgbox("a strange number")
end select

3.循环体，函数体等内容。。。用多了自然就会了，好吗，记忆的东西很容易劝退

第三部分:注册表相关

抱歉，本人由于没有弄明白具体的路径，所以这部分依然云里雾里

第四部分：超级好玩的实战部分哦！

1.关不掉的“死循环”窗口:

do
msgbox("everybody is good")
loop

2.置顶的关不掉的“死循环”窗口:

do
msgbox("everybody is good"),4096
loop

3.之后还有禁用任务管理器的版本和禁用注册表的版本，

因为路径的问题，我没能实现，很可惜

4.对了，死循环的关闭，可以shift+ctrl+esc打开任务管理器结束进程

或者运行这个脚本:

Set Objshell=CreateObject("wscript.shell")
Objshell.run"taskkill -f -t -im wscript.exe"

5.非常欢乐的搜狗刷字数,没下搜狗的就算了，微软输入似乎不能统计字数文章来源地址https://www.toymoban.com/news/detail-656871.html

Set wshShell=WScript.CreatObject("WScript.Shell")'创建对象
for 1 to 1000 '总共1000次循环
Wscript.Sleep 50 '每次休息50毫秒
wshshell.Sendkeys "love is love" '填写字符
wshshell.Sendkeys "1"  '输出字符
next '结束循环

到了这里，关于使用VBScript脚本的快乐体验的文章就介绍完了。如果您还想了解更多内容，请在右上角搜索TOY模板网以前的文章或继续浏览下面的相关文章，希望大家以后多多支持TOY模板网！