反内卷vbs脚本,间隔时间弹窗

鉴于内卷风气严重,此脚本可以定时弹窗提醒你休息一下,间隔时间可自定义,可加入开机自启动,可获取电脑用户名
vbs脚本,可以在电脑中直接运行
下面是网盘链接
链接:https://pan.baidu.com/s/1Hphr4wgioBTpdF3VAEOwEQ
提取码:2002

当然!以下是一个使用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` 对象创建了一个问题弹窗,并通过设置不同的参数来实现不同的弹窗样式。在弹窗中,您可以输入问题和选项,并根据用户的选择返回相应的结果。根据您的具体需求,您可以修改弹窗样式以及选项的数量和内容。 希望能对您有所帮助!如有任何疑问,请随时追问。
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

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

抵扣说明:

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

余额充值