复制代码 代码如下:
DimMyValue,Response,data,thisd
data="30007|22899|22934"
thisd=Split(data,"|",-1,1)
Randomize'初始化随机数生成器。
DoUntilResponse=vbyes
MyValue=Int((3*Rnd)+1)'产生1到3之间的随机数。
result="&#"&thisd(MyValue-1)
Ifresult="妖"Thenresult="人妖"
SetobjExplorer=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后缀，双击即可以。看得结果请回复，嘿嘿
网站建设 IT知识 IT知识教程 vbs算命测试一下你上辈子是男是女 
最新文章
热门文章
猜你喜欢
