手机
当前位置:查字典教程网 >脚本专栏 >vbs >vbs算命测试一下你上辈子是男是女
vbs算命测试一下你上辈子是男是女
摘要:复制代码代码如下:DimMyValue,Response,data,thisddata="30007|22899|22934"thisd=S...

复制代码 代码如下:

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

【vbs算命测试一下你上辈子是男是女】相关文章:

vbs的字符串操作效率分析总结

VBS教程:函数-Array 函数

用VBScript写合并文本文件的脚本

用vbs针对一个 IP 地址范围运行脚本

用vbscript实现在消息框中显示一个超链接

VBScript教程 第十一课深入VBScript

VBScript:Join 函数一个不太常用,却很有用的函数

vbs在网页中显示服务

VBS文本文件操作实现代码

vbs实现的定时关机、重启的脚本和程序

精品推荐
分类导航