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

作者: 我的逗比中带着高冷
来源: 51数据库
2021-08-03

复制代码代码如下:

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 