• 企业400电话
  • 微网小程序
  • AI电话机器人
  • 电商代运营
  • 全 部 栏 目

    企业400电话 网络优化推广 AI电话机器人 呼叫中心 网站建设 商标✡知产 微网小程序 电商运营 彩铃•短信 增值拓展业务
    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后缀,双击即可以。看得结果请回复,嘿嘿
    您可能感兴趣的文章:
    • javascript计算星座属相(十二生肖属相)示例代码
    • python实现根据月份和日期得到星座的方法
    • 易语言运算命令的详细解释
    • canvas实现十二星座星空图
    • python爬虫竟然被小伙用来算命
    上一篇:N年前的两个脚本%5c暴库
    下一篇:vbs版的解密base64加密的脚本
  • 相关文章
  • 

    © 2016-2020 巨人网络通讯 版权所有

    《增值电信业务经营许可证》 苏ICP备15040257号-8

    vbs算命测试一下你上辈子是男是女 vbs,算命,测试,一下,你,上,