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算命测试一下你上辈子是男是女】相关文章:
★ VBScript:Join 函数一个不太常用,却很有用的函数
上一篇:
N年前的两个脚本%5c暴库
下一篇:
vbs版的解密base64加密的脚本