PC可直接运行的VBS脚本之周期性最小化所有窗口并弹窗

周期性最小化所有窗口并弹窗提示,防止久坐。
set Ws=createobject("Wscript.Shell")

Do    
    hour_now=Hour(Now)
    min_now=Minute(Now)
    sec_now=Second(Now)    

    if hour_now>8 and hour_now<18 and min_now=0 and sec_now =0 then

        DisplayDeskForSeconds()
    end if
    if min_now=30 and sec_now =0 then
        DisplayDeskForSeconds()
    end if
    Wscript.sleep 400
Loop

Function popnotice(sec)
    vbs = Ws.Popup( "起身喝水,活动一下吧!" , 1,"Notice " ,vbOKCancel+vbQuestion+vbMsgBoxSetForeground)
    if vbs=vbCancel then
        Wscript.quit
    end if
End Function


Function DisplayDeskForSeconds()
    CreateObject("shell.Application").MinimizeAll
    for i=1 to 3 
        popnotice(i)
    next
End Function

  • 11
    点赞
  • 8
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
当然!以下是一个使用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、付费专栏及课程。

余额充值