用vbs脚本写一个随机抽签的命令

时间: 2023-05-23 13:03:01 浏览: 88
这是一段用VBScript实现的随机抽签的脚本代码: ``` Dim arr, num arr = Array("大吉", "中吉", "小吉", "吉", "末吉", "凶", "大凶") ' 定义抽签结果 num = Int((UBound(arr) - LBound(arr) + 1) * Rnd + LBound(arr)) ' 随机生成数组下标 WScript.Echo "您抽到的签是:" & arr(num) ' 输出结果 ``` 你可以将此代码保存成扩展名为 `.vbs` 的文件,然后双击运行即可看到抽签结果。 注意,由于 VBScript 本身的限制,该脚本只能在 Windows 系统中运行。
相关问题

用vbs脚本写一个局域网扫描

我可以回答这个问题。您可以使用以下vbs脚本来扫描局域网: ``` strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set IPConfigSet = objWMIService.ExecQuery _ ("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled = True") For Each IPConfig in IPConfigSet If Not IsNull(IPConfig.IPAddress) Then For i=LBound(IPConfig.IPAddress) to UBound(IPConfig.IPAddress) strIP = IPConfig.IPAddress(i) If InStr(strIP, ".") > Then strPrefix = Left(strIP, InStrRev(strIP, ".")) For j=1 To 254 strTestIP = strPrefix & j Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery _ ("select * from Win32_PingStatus where address='" & strTestIP & "'") For Each objStatus in objPing If objStatus.StatusCode = Then WScript.Echo "IP Address: " & strTestIP & " is online." End If Next Next End If Next End If Next ``` 这个脚本将扫描您的局域网,并显示在线的IP地址。请注意,您需要以管理员身份运行此脚本。

用vbs脚本写一个每次打开都弹窗显随机内容

可以参考以下的代码: ``` Set objFSO=CreateObject("Scripting.FileSystemObject") Set objFile=objFSO.OpenTextFile("content.txt",1) arrContent=Split(objFile.ReadAll, vbCrLf) objFile.Close Randomize intIndex=Int(Rnd*UBound(arrContent)) strContent=arrContent(intIndex) Set objShell=CreateObject("WScript.Shell") objShell.Popup strContent, 0, "随机内容", 0 ``` 这段代码会从文件 "content.txt" 中读取内容,然后随机选择一条内容显示在弹窗中。弹窗的标题为 "随机内容",显示时间为 0 毫秒(也就是一直显示直到用户手动关闭)。其中 content.txt 的格式为每行一个内容。

相关推荐

最新推荐

recommend-type

wincc用vbs脚本写入sqlserver数据库.docx

在WinCC项目中,我们添加一个按钮组件,并在按钮的单击事件中编写VBS代码。以下是一段示例代码: ```vbscript Dim data1, data2, data3, data4, data5, data6, data7, data8 ' 数据赋值 data1 = 5004 data2 = 1234 ...
recommend-type

wincc 趋势曲线VBS脚本

博途V15 wincc使用VBS脚本添加删除趋势曲线,文件为添加删除曲线脚本
recommend-type

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

一个典型的VBScript程序可以从一个简单的“Hello World!”示例开始。以下是一个例子: ```vbscript MsgBox "Hello World!" ``` 在这个例子中,`MsgBox`是VBScript的内置函数,用于弹出一个对话框显示指定的文本。`...
recommend-type

简单用VBS调用企业微信机器人发定时消息的方法

VBS脚本可以创建一个计划任务,在固定时间执行这个脚本,就可以实现一个简单的群里自动提醒功能了。VBS脚本脚本很简单,但足以实现一个定时提醒的企业微信群机器人了。 在编写VBS脚本时需要注意的是,params字符串...
recommend-type

wincc使用VBS操作趋势曲线.docx

这个文件提供了两个示例,第一个示例演示如何使用 VBS 脚本来操作趋势曲线,包括删除和添加趋势曲线,并且更改曲线名称和颜色。第二个示例演示如何使用 VBS 脚本来实现个人需求,例如根据用户选择的参数来创建多个...
recommend-type

基于嵌入式ARMLinux的播放器的设计与实现 word格式.doc

本文主要探讨了基于嵌入式ARM-Linux的播放器的设计与实现。在当前PC时代,随着嵌入式技术的快速发展,对高效、便携的多媒体设备的需求日益增长。作者首先深入剖析了ARM体系结构,特别是针对ARM9微处理器的特性,探讨了如何构建适用于嵌入式系统的嵌入式Linux操作系统。这个过程包括设置交叉编译环境,优化引导装载程序,成功移植了嵌入式Linux内核,并创建了适合S3C2410开发板的根文件系统。 在考虑到嵌入式系统硬件资源有限的特点,通常的PC机图形用户界面(GUI)无法直接应用。因此,作者选择了轻量级的Minigui作为研究对象,对其实体架构进行了研究,并将其移植到S3C2410开发板上,实现了嵌入式图形用户界面,使得系统具有简洁而易用的操作界面,提升了用户体验。 文章的核心部分是将通用媒体播放器Mplayer移植到S3C2410开发板上。针对嵌入式环境中的音频输出问题,作者针对性地解决了Mplayer播放音频时可能出现的不稳定性,实现了音乐和视频的无缝播放,打造了一个完整的嵌入式多媒体播放解决方案。 论文最后部分对整个项目进行了总结,强调了在嵌入式ARM-Linux平台上设计播放器所取得的成果,同时也指出了一些待改进和完善的方面,如系统性能优化、兼容性提升以及可能的扩展功能等。关键词包括嵌入式ARM-Linux、S3C2410芯片、Mplayer多媒体播放器、图形用户界面(GUI)以及Minigui等,这些都反映出本文研究的重点和领域。 通过这篇论文,读者不仅能了解到嵌入式系统与Linux平台结合的具体实践,还能学到如何在资源受限的环境中设计和优化多媒体播放器,为嵌入式技术在多媒体应用领域的进一步发展提供了有价值的经验和参考。
recommend-type

管理建模和仿真的文件

管理Boualem Benatallah引用此版本:布阿利姆·贝纳塔拉。管理建模和仿真。约瑟夫-傅立叶大学-格勒诺布尔第一大学,1996年。法语。NNT:电话:00345357HAL ID:电话:00345357https://theses.hal.science/tel-003453572008年12月9日提交HAL是一个多学科的开放存取档案馆,用于存放和传播科学研究论文,无论它们是否被公开。论文可以来自法国或国外的教学和研究机构,也可以来自公共或私人研究中心。L’archive ouverte pluridisciplinaire
recommend-type

Python字符串为空判断的动手实践:通过示例掌握技巧

![Python字符串为空判断的动手实践:通过示例掌握技巧](https://img-blog.csdnimg.cn/72f88d4fc1164d6c8b9c29d8ab5ed75c.png?x-oss-process=image/watermark,type_d3F5LXplbmhlaQ,shadow_50,text_Q1NETiBASGFyYm9yIExhdQ==,size_20,color_FFFFFF,t_70,g_se,x_16) # 1. Python字符串为空判断的基础理论 字符串为空判断是Python编程中一项基本且重要的任务。它涉及检查字符串是否为空(不包含任何字符),这在
recommend-type

box-sizing: border-box;作用是?

`box-sizing: border-box;` 是 CSS 中的一个样式属性,它改变了元素的盒模型行为。默认情况下,浏览器会计算元素内容区域(content)、内边距(padding)和边框(border)的总尺寸,也就是所谓的"标准盒模型"。而当设置为 `box-sizing: border-box;` 后,元素的总宽度和高度会包括内容、内边距和边框的总空间,这样就使得开发者更容易控制元素的实际布局大小。 具体来说,这意味着: 1. 内容区域的宽度和高度不会因为添加内边距或边框而自动扩展。 2. 边框和内边距会从元素的总尺寸中减去,而不是从内容区域开始计算。
recommend-type

经典:大学答辩通过_基于ARM微处理器的嵌入式指纹识别系统设计.pdf

本文主要探讨的是"经典:大学答辩通过_基于ARM微处理器的嵌入式指纹识别系统设计.pdf",该研究专注于嵌入式指纹识别技术在实际应用中的设计和实现。嵌入式指纹识别系统因其独特的优势——无需外部设备支持,便能独立完成指纹识别任务,正逐渐成为现代安全领域的重要组成部分。 在技术背景部分,文章指出指纹的独特性(图案、断点和交叉点的独一无二性)使其在生物特征认证中具有很高的可靠性。指纹识别技术发展迅速,不仅应用于小型设备如手机或门禁系统,也扩展到大型数据库系统,如连接个人电脑的桌面应用。然而,桌面应用受限于必须连接到计算机的条件,嵌入式系统的出现则提供了更为灵活和便捷的解决方案。 为了实现嵌入式指纹识别,研究者首先构建了一个专门的开发平台。硬件方面,详细讨论了电源电路、复位电路以及JTAG调试接口电路的设计和实现,这些都是确保系统稳定运行的基础。在软件层面,重点研究了如何在ARM芯片上移植嵌入式操作系统uC/OS-II,这是一种实时操作系统,能够有效地处理指纹识别系统的实时任务。此外,还涉及到了嵌入式TCP/IP协议栈的开发,这是实现系统间通信的关键,使得系统能够将采集的指纹数据传输到远程服务器进行比对。 关键词包括:指纹识别、嵌入式系统、实时操作系统uC/OS-II、TCP/IP协议栈。这些关键词表明了论文的核心内容和研究焦点,即围绕着如何在嵌入式环境中高效、准确地实现指纹识别功能,以及与外部网络的无缝连接。 这篇论文不仅深入解析了嵌入式指纹识别系统的硬件架构和软件策略,而且还展示了如何通过结合嵌入式技术和先进操作系统来提升系统的性能和安全性,为未来嵌入式指纹识别技术的实际应用提供了有价值的研究成果。