复制代码 代码如下:
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="&#22934"Thenresult="&#20154&#22934"
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后缀，双击即可以。看得结果请回复，嘿嘿