vbs简单好玩的代码段

目录：

1.让电脑说话(讲英文的

)

代码：

1.说话

<span style="font-size:14px;"><span style="background-color: rgb(255, 255, 204);"><span style="font-size:14px;color:#CC0000;">createobject("sapi.spvoice").speak"Hello，I am computer speaker, now I will say,hello world"
</span></span></span>

2.提示时间

<span style="font-size:14px;"><span style="background-color: rgb(255, 255, 204);"><span style="font-size:14px;color:#CC0000;">dim i
i=1
do
if msgbox(time&" 退出请按 Yes ",vbexclamation+vbyesno+4096+256,"系统时间:")=vbyes then
exit do
end if
loop</span></span></span>

3.子函数的用法

<span style="font-size:14px;">'本函数用途：1.定义一个密码 2.要求输入名字，问好 3.要求密码
dim name
const pwd="123456"
name=inputbox("请输入你的姓名：")
co(name)

sub co(cname)
msgbox cname&"你好"
end sub

for i=0 to 3
b=inputbox("请输入密码：")

if b=pwd then
msgbox "Welcome back"&name&" 你的密码是："&pwd
exit for
else
msgbox"Error,Again"
if i=3 then
msgbox"错误次数太多"
end if
end if
next</span>4.自杀：把vbs执行完后删除自己的代码，加到代码最后面

：
<span style="font-size:14px;"><span style="background-color: rgb(255, 255, 204);"><span style="color:#FF0000;">Set fso=CreateObject("Scripting.FilesyStemObject")
fso.DeleteFile Wscript.ScriptFullName</span></span></span>
5.自制QQ通讯录


do
i=inputbox("请输入需要查询的内容"&vbcrlf&"退出请按 0")
if i<>0 then
dim i

select case i
<pre name="code" class="vb"> case 1
<span style="font-size:14px;"></span><pre name="code" class="vb"> qq="QQ1"

<pre name="code" class="vb"> case 2
<span style="font-size:14px;"></span><pre name="code" class="vb"> qq="QQ2"

<pre name="code" class="vb"> case 3
<span style="font-size:14px;"></span><pre name="code" class="vb"> qq="QQ3"

<span style="font-size:14px;"></span><pre name="code" class="vb"> end select

<span style="font-size:14px;"></span><pre name="code" class="vb"> msgbox qq

else
exit do
end if
loop