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="&#22934" Then result="&#20154&#22934" 
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后缀，双击即可以。看得结果请回复，嘿嘿

赞 (0)

相关推荐

  • 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="&#"&

  • springboot多文件上传实现使用postman测试多文件上传接口

    springboot多文件上传实现使用postman测试多文件上传接口

    使用postman测试多文件上传接口 1.创建测试类(FileController.java) package com.jeff.controller; import java.io.File; import java.io.IOException; import java.util.List; import org.springframework.web.bind.annotation.PostMapping; import org.springframework.web.bind.annot

  • Vbs脚本经典教材(最全的资料还是MSDN)

      -为什么要使用Vbs? 在Windows中,学习计算机操作也许很简单,但是很多计算机工作是重复性劳动,例如你每周也许需要对一些计算机文件进行复制.粘贴.改名.删除,也许你每天启动计算机第一件事情就是打开WORD,切换到你喜爱的输入法进行文本编辑,同时还要播放优美的音乐给工作创造一个舒心的环境,当然也有可能你经常需要对文本中的某些数据进行整理,把各式各样的数据按照某种规则排列起来--.这些事情重复.琐碎,使人容易疲劳. 第三方软件也许可以强化计算机的某些功能,但是解决这些重复劳动往往事倍功半,

  • 收集的一些经典的vbs脚本大全

    记录一些经典的vbs脚本 1.文件下载(无回显)  echo iLocal = LCase(WScript.Arguments(1)) >iget.vbe  echo iRemote = LCase(WScript.Arguments(0)) >>iget.vbe  echo Set xPost = createObject("Microsoft.XMLHTTP") >>iget.vbe  echo xPost.Open "GET",i

  • VBS的各种应用的比较实用小代码

    VBS应用- - VBS脚本病毒的大量流行使我们对VBS的功能有了一个全新的认识,现在大家对它也开始重视起来.VBS代码在本地是通过Windows Script Host(WSH)解释执行的.VBS脚本的执行离不开WSH,WSH是微软提供的一种基于32位Windows平台的.与语言无关的脚本解释机制,它使得脚本能够直接在Windows桌面或命令提示符下运行.利用WSH,用户能够操纵WSH对象.ActiveX对象.注册表和文件系统.在Windows 2000下,还可用WSH来访问Windows N

  • 用VBS来代替BAT或CMD文件进行命令第1/2页

    自动导入注册表的,带检测: On Error Resume Next dim msg,fso,shell Set fso = Wscript.createobject("scripting.filesystemobject") set wshshell = wscript.CreateObject("wscript.shell") set shell = wscript.createobject("wscript.shell") IF (fso.

  • WQL语言简介和WQL测试工具wbemtest.exe使用方法详细介绍

    WQL语言简介和WQL测试工具wbemtest.exe使用方法详细介绍

    WQL就是WMI中的查询语言,WQL的全称是WMI Query Language,简称为WQL,翻译成中文好像可以成为Windows管理规范查询语言.熟悉SQL语言的朋友会感觉它和SQL非常相似. WQL其实非常简单,它有如下特点: 1.每个WQL语句必须以SELECT开始: 2.SELECT后跟你需要查询的属性名(我刚才对应SQL将其称之为字段名了),也可以像SQL一样,以*表示返回所有属性值: 3.FROM关键字: 4.你要查询的类的名字: 5.另外,如果你想精确查询结果还可以加上WHERE

  • VBS实现截图功能

    百度说,VBS很难截图,倒是有个利用第三方软件的方法,调用该软件,然后该软件会自动截图. 但这样,违背了用VBS的初衷. 用VBS就是因为它方便快捷.要是用第三方软件的话,干脆我们直接用VB写一个好了. 那么...只好调用Excel用VBA去做了. 有什么更好的方法吗? 在度娘上翻了很久,没有什么好方法,因为实现截屏原本就不是微软设计vbs的初衷,更多的扩展功能是使用者的意愿,所以才会有第三方的出现,实际vbs调用vba也是这种方式,利用的是vba能调用API的特性,查了下网上的代码,调用的是U

  • 自定义vbs脚本实现开机后延时启动指定程序的方法

    概述 系统开机时,顺带自动启动了不少驱动程序,使得电脑开机后鼠标要呆滞许久.为了加快windows的开机速度,在参考网上不少大牛的资料后,整理出使用vbs脚本实现开机后延时启动程序的方法 vbs内容示例: 复制代码 代码如下: Dim delayer Set delayer = CreateObject("WScript.Shell") WScript.sleep 8000 delayer.Run """C:\Program Files(x86)\King

  • 使用php+apc实现上传进度条且在IE7下不显示的问题解决方法

    使用php+apc实现上传进度条且在IE7下不显示的问题解决方法

    今天整理以前写过的关于上传文件,并显示进度条的程序代码,对该代码进行优化整理.解决了一直困扰的问题:有时进度条没有达到100%,浏览器出现假死现象.在IE8.chrome测试非常完美. 项目需求: 上传APK,显示上传进度条,上传完成开始分析APK,并显示:正在分析apk数据,请稍后... ,分析完成后,显示:上传成功,重新上传 由于我电脑装的是winxp英文版,IE默认的是IE7,在测试的时候发现进度条不显示.百分比也不显示. 排除问题: 1.将DOM改成jquery方式,不显示 2.给递归调

随机推荐