vbs算命测试一下你上辈子是男是女
程序员文章站
2022-07-04 20:54:43
复制代码 代码如下:dim myvalue, response,data,thisd data="30007|22899|22934"&nb...
复制代码 代码如下:
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
把以上代码保存成vbs后缀，双击即可以。看得结果请回复，嘿嘿