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

360 阅读 0 评论 238 点赞

我是靠谱客的博主贪玩保温杯，这篇文章主要介绍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 