制作vbs脚本,测试一下你上辈子是男是女or人妖

利用vbs制作算命测试,测试你上辈子是男是女or人妖,你也可以成为算命先生

制作vbs脚本,测试一下你上辈子是男是女or人妖

代码如下:

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.Document.Body.InnerHTML ="你上辈子是"&result

Response = MsgBox ("确认? ", vbYesNo)

loop

制作vbs脚本,测试一下你上辈子是男是女or人妖双击运行,会弹出网页,查看效果:

制作vbs脚本,测试一下你上辈子是男是女or人妖小编上辈子是女的/(ㄒoㄒ)/~~,你呢?

相关内容推荐