Dim&nbs
p;MyValue, Response,data,thisd
data="30007|22899|22934"
thisd=Spl
IT(data, "|", -1, 1)
Randomize '初始化随机数生成器。
Do Until Response =
vbyes
 
;myValue = Int((3* Rnd) + 1)' 产生 1 到 3 之间的随机数。
result="&
amp;
#"&thisd(MyValue-1)
If result="妖" Then result="人妖"
Set objE
xplorer = WScript.CreateObject("
internetExplorer.Application")
objExplorer.
navigate "about:blank"
objExplorer.ToolBar = 0
objExplorer.
statusbar = 0
objExplorer.Visible = 1
objExplorer.h
eight=300
objExplorer.width=400
objExplorer.left=400
objExplorer.resizable=0
objExplorer.Document.Body.InnerHT
ML ="你上辈子是"&result
Response = MsgBox ("确认? ", vbYesNo)
Loop
把以上代码保存成vbs后缀,双击即可以。看得结果请回复,嘿嘿