复制代码 代码如下:

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后缀，双击即可以。看得结果请回复，嘿嘿