第三章 vbs程序示例

VBS——记事本语言 低级教程

do

msgbox("你是笨蛋——快乐黑客")

loop

这个程序就好笑了，他可以给别人捣乱

从执行开始（点击图标），这个会一直显示出“你是笨蛋”的弹窗，关掉一个，出来一个，关掉一个出来一个，无穷无尽，这就可以给别人捣乱😃

但需要说的是，有些同学可能学过pascal或者java等等，他们已经养成了一个加上分号（；）的习惯，比如

writeln('你是一个笨蛋');

这其实是一个pascal代码，他的后面就加了分号

这种习惯养成以后是很难控制住的。比如我就学过pascal，学vbs的时候废了好大的劲才努力没有加上分号。

msgbox（“笨蛋”）；

这是不对的，应该是

msgbox（“笨蛋”）

没有分号，这就是一个难点

//////=====================//////

这里还有一个：

msgbox"将要出现一个记事本,当记事本出现时，请不要碰键盘以及鼠标任何一个键！！！"

Set Seven = WScript.CreateObject("WScript.Shell")

strDesktop = Seven.SpecialFolders("AllUsersDesktop")

set oShellLink = Seven.CreateShortcut(strDesktop & "\Seven.url")

oShellLink.Save

Sub ak47

Set oShellLink=Nothing

seven.Run "notepad",3

WScript.Sleep 500

seven.SendKeys " "

WScript.Sleep 500

seven.SendKeys " vbs"

WScript.Sleep 500

seven.SendKeys "{enter}"

WScript.Sleep 500

seven.SendKeys " "

WScript.Sleep 500

seven.SendKeys ""

WScript.Sleep 500

seven.SendKeys " "

WScript.Sleep 500

seven.SendKeys "jiao"

WScript.Sleep 500

seven.SendKeys "cheng"

WScript.Sleep 500

seven.SendKeys ""

WScript.Sleep 500

seven.SendKeys " "

WScript.Sleep 500

seven.SendKeys "{ENTER}"

WScript.Sleep 500

seven.SendKeys "vbs"

WScript.Sleep 500

seven.SendKeys "vbs"

WScript.Sleep 500

seven.SendKeys "{enter}"

WScript.Sleep 500

End Sub

Call ak47

//=========//

这是一段什么程序？

你肯定不知道。

那就让我告诉你，这是一个让记事本自动打字的程序！！！😝

执行结果：

vbs教程

vbsvbs

/=====/

这些当然是一个很深奥的程序了

//=============//

c=date()

CurrentTime=Hour(Now)&":"&Minute(Now)&":"&Second(Now)

m = " "& CurrentTime

msgbox("时间："&c&" "&m )

这个程序可以获取当前时间

执行结果：

XXXX年 X月X日

上一章 第二章 输入和输出 VBS——记事本语言 低级教程最新章节