vbs教程(1):弹窗

目录

〇、前言

一、创建vbs文件

1.首先,在桌面上新建一个文本文档(txt文件),使用记事本打开

2.在新建的文本文档中输入以下内容

3.文件->另存为

4.改变编码

5.改变后缀

6.运行!

7.如何关闭?

三、彩蛋


〇、前言

最近刷B站,发现很多视频开头点了关注之后,就有很多弹窗,其实这就是vbs脚本,下面,让我教大家怎么做吧!

VBScript简介

VBScript是Visual Basic Script的简称,即 Visual Basic 脚本语言,有时也被缩写为VBS。它是一种微软环境下的轻量级解释型语言,它使用COM组件WMIWSHADSI访问系统中的元素,对系统进行管理。同时它又是asp动态网页默认的编程语言,配合asp内建对象和ADO对象,用户很快就能掌握访问数据库的asp动态网页开发技术。

一、创建vbs文件

1.首先,在桌面上新建一个文本文档(txt文件),使用记事本打开

 

 

2.在新建的文本文档中输入以下内容

msgbox("这里填你想填的内容")

3.文件->另存为

4.改变编码

不要改名字和路径,把编码改为ANSI,然后保存,如果出现弹窗,点“是”

5.改变后缀

先保存并退出记事本,然后把你刚才编辑的txt文本文档的后缀名改为.vbs

6.运行!

双击打开它: 

7.如何关闭?

这个文本框点叉或确定就关掉了,那怎么让它关不掉呢,把就它重命名成txt文本文档打开,在msgbox这一行的上一行加上do,下一行加上loop,保存并退出,再重命名成vbs文件,双击打开,你就会发现这个文本框关不掉了。

不过这个玩意也得关掉啊,观点他有两种办法,第一种办法简单粗暴,直接重启(或关机)就行了,第二种办法是任务管理器的”详细信息“选项卡中找到wscript.exe,结束进程就可以了。

 

好,以上就是VBScript的基本操作就完成了,下面,我们学习VBS的语法

二、彩蛋

最后附一个小彩蛋:

使用vbs弹窗的无限报数小程序

代码:

i = 0
do
i = i + 1
msgbox(i)
loop

同样的关掉这个重启(或关机)或结束进程就可以了

我们下期再见!

  • 4
    点赞
  • 16
    收藏
    觉得还不错? 一键收藏
  • 3
    评论
当然!以下是一个使用VBScript编写的问题弹窗,并包含了一些弹窗样式的示例代码: ```vbscript Option Explicit ' 创建一个问题弹窗 Function CreateQuestionPopup(question, choices) Dim objQuestionPopup, i, response Set objQuestionPopup = CreateObject("WScript.Shell") ' 弹窗样式 response = objQuestionPopup.Popup(question, 10, "问题弹窗", vbQuestion + vbSystemModal + vbYesNoCancel + vbDefaultButton3, 48) ' 根据用户的选择返回相应的结果 Select Case response Case vbYes CreateQuestionPopup = "是" Case vbNo CreateQuestionPopup = "否" Case vbCancel ' 显示答案选项 For i = 0 To UBound(choices) objQuestionPopup.Popup choices(i), 10, "问题选项", vbInformation + vbSystemModal + vbDefaultButton1, 32 Next ' 返回用户选择的答案 response = objQuestionPopup.Popup("请选择答案:", 10, "问题弹窗", vbQuestion + vbSystemModal + vbDefaultButton1 + vbMsgBoxSetForeground, 32) If response >= 1 And response <= UBound(choices) + 1 Then CreateQuestionPopup = choices(response - 1) Else CreateQuestionPopup = "未知" End If End Select Set objQuestionPopup = Nothing End Function ' 示例使用 Dim question, choices, answer question = "你喜欢编程吗?" choices = Array("非常喜欢", "一般般", "不喜欢") answer = CreateQuestionPopup(question, choices) MsgBox "你的回答是:" & answer, vbInformation + vbSystemModal + vbOKOnly, "答案" ``` 这段代码使用 `WScript.Shell` 对象创建了一个问题弹窗,并通过设置不同的参数来实现不同的弹窗样式。在弹窗中,您可以输入问题和选项,并根据用户的选择返回相应的结果。根据您的具体需求,您可以修改弹窗样式以及选项的数量和内容。 希望能对您有所帮助!如有任何疑问,请随时追问。

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论 3
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值