vbs算命测试一下你上辈子是男是女
更新时间：2008年02月22日 15:48:49 作者：
用vbs算命测试，是男是女的脚本
复制代码 代码如下:
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后缀，双击即可以。看得结果请回复，嘿嘿
相关文章
vbscript本身没有include这样包含其他vbs文件的支持，在asp或html页面里可以用<script ...这样来包含一个vbs文件，如果是直接运行的vbs脚本，就只有用其他办法来代替这个功能了。2009-02-02
目前各类万能驱动程序包在网络上屡见发布，在使用这些程序包的同时，我们不仅会问：为什么这些程序包中的驱动程序可以在安装新硬件之后自动安装呢？2008-07-07
用来查询ANSI 代码的工具，需要的朋友可以试试。2009-12-12
昨天重新看了下《深入挖掘Windows脚本技术》(原文不知道是谁写的，网上到处都是)。里面提到了vbs多线程下载，今天尝试写了一下2013-05-05
演示如何通过脚本创建 Internet Explorer 的实例，并检索输入密码样式的文本框中的密码。需要带有适当的文本框的 Web 页（名为 password.htm）。2008-06-06
Author:Trajon.BWL今天在网上随便闲逛，逛到一个帖子，这位迷茫的朋友想知道该怎么使用SendKeys的vbs方法来输入中文字符2008-08-08
对于版本有点老，所以建议学习使用，不要随便直接运行。2009-08-08
VBS教程：VBscript属性-Pattern 属性...2006-11-11
有时候我们需要获取执行当前vbs的路径，那么就可以参考下面的代码，一般用来可以删除自身等操作2014-05-05
WORD软虽然可以将doc转为文本文档，但每次打开WORD都很慢。最好就是通过右键菜单来快速转换。2008-06-06
最新评论