使用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.非常欢乐的搜狗刷字数,没下搜狗的就算了，微软输入似乎不能统计字数

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