一个【桌面水印便签】软件非常喜欢，但开机自启动后总是处在主显状态，很讨厌，求X掉

郭德纲于谦 · 发表于 2026-4-17 00:22

https://www.52pojie.cn/thread-2058726-1-1.html
这个【桌面水印便签】软件非常喜欢，但开机自启动后总是处在主显状态，很讨厌，求脚本X掉方案

因为，每次开机，都要手工点这个软件的右上角把 X掉，非常讨厌，非常麻烦。

求个什么 .vbs 脚本方案，能关掉这个软件界面【注意：不是杀掉这个软件的进程】

我自己问 ai 写了 vbs ，用 ALT + F4 关这个软件，但是这需要这个软件的窗口处在主显、焦点激活状态，才可以 send key alt + f4 关这个软件的窗体

因为自启动的时候，会失去这个软件主显、活着失去焦点状态，导致给别的程序发送了 alt + F4 热键，甚至变成了 win10/11 被推送了关机菜单选项

@huanjimie 我看作者的发布帖，也有多人提了这个建议，奈何开发者不愿意解决这个需求

所以，求助能力强大的版友，给一个解决方案。

注意，我们的系统是精简系统，阉割了 powershell 组件。

也不要用 WMIC 方案，后期 windows 阉割了这个模块，需要手工补回来，麻烦。

这是我最大的悬赏分了，求助坛友。谢谢~

老梁不说话 · 发表于 2026-4-17 00:22

先确认进程名
打开软件。
按 Ctrl + Shift + Esc 打开任务管理器。
在“详细信息”标签页找到该软件，查看映像名称。
把主脚本和安装器中所有这个名字替换成正确的。

1. 主脚本
新建文本文件，粘贴下面全部内容，保存为关闭桌面水印便签主窗口.vbs

[Asm] 纯文本查看 复制代码

' =============================================
' 桌面水印便签 · 自动关闭主窗口（最终稳定推荐版）
' 进程检查 + 标题激活 双重验证，极简可靠
' =============================================

Option Explicit

Dim WshShell, ret, i, output
Set WshShell = CreateObject("WScript.Shell")

WScript.Sleep 2500   ' 等待软件启动

For i = 1 To 12
    ' 先检查进程是否存在（快速过滤，避免误操作）
    On Error Resume Next
    output = WshShell.Exec("tasklist /fi ""imagename eq zhuomianshuiyin.exe"" /nh").StdOut.ReadAll
    On Error GoTo 0
    
    If InStr(output, "zhuomianshuiyin.exe") > 0 Then
        ret = WshShell.AppActivate("桌面水印便签")
        If ret = True Then
            WScript.Sleep 180
            WshShell.SendKeys "%{F4}"
            WScript.Sleep 450
            
            ' 确认是否关闭成功
            If Not WshShell.AppActivate("桌面水印便签") Then
                WScript.Quit 0
            End If
        End If
    End If
    
    WScript.Sleep 800
Next

WScript.Quit 0

2. 一键安装/卸载器
保存为安装自动关窗.vbs

[Asm] 纯文本查看 复制代码

' =============================================
' 桌面水印便签自动关窗 · 一键安装/卸载器
' =============================================

Option Explicit

Dim WshShell, FSO, startupPath, scriptPath, scriptName, answer
Set WshShell = CreateObject("WScript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")

scriptName = "关闭桌面水印便签主窗口.vbs"
startupPath = WshShell.SpecialFolders("Startup") & "\" & scriptName
scriptPath = FSO.GetParentFolderName(WScript.ScriptFullName) & "\" & scriptName

If FSO.FileExists(startupPath) Then
    answer = MsgBox("脚本已安装。" & vbCrLf & vbCrLf & "【确定】= 卸载" & vbCrLf & "【取消】= 退出", vbOKCancel + vbQuestion, "卸载确认")
    If answer = vbOK Then
        FSO.DeleteFile startupPath, True
        MsgBox "已成功卸载！", vbInformation, "完成"
    End If
Else
    Dim content
    content = "' =============================================" & vbCrLf & _
              "' 桌面水印便签 · 自动关闭主窗口（最终稳定推荐版）" & vbCrLf & _
              "' =============================================" & vbCrLf & vbCrLf & _
              "Option Explicit" & vbCrLf & _
              "Dim WshShell, ret, i, output" & vbCrLf & _
              "Set WshShell = CreateObject(""WScript.Shell"")" & vbCrLf & vbCrLf & _
              "WScript.Sleep 2500" & vbCrLf & _
              "For i = 1 To 12" & vbCrLf & _
              "  On Error Resume Next" & vbCrLf & _
              "  output = WshShell.Exec(""tasklist /fi """"imagename eq zhuomianshuiyin.exe"""" /nh"").StdOut.ReadAll" & vbCrLf & _
              "  On Error GoTo 0" & vbCrLf & _
              "  If InStr(output, ""zhuomianshuiyin.exe"") > 0 Then" & vbCrLf & _
              "    ret = WshShell.AppActivate(""桌面水印便签"")" & vbCrLf & _
              "    If ret = True Then" & vbCrLf & _
              "      WScript.Sleep 180" & vbCrLf & _
              "      WshShell.SendKeys ""%{F4}""" & vbCrLf & _
              "      WScript.Sleep 450" & vbCrLf & _
              "      If Not WshShell.AppActivate(""桌面水印便签"") Then WScript.Quit 0" & vbCrLf & _
              "    End If" & vbCrLf & _
              "  End If" & vbCrLf & _
              "  WScript.Sleep 800" & vbCrLf & _
              "Next" & vbCrLf & _
              "WScript.Quit 0"
    
    FSO.CreateTextFile(scriptPath, True).Write content
    FSO.CopyFile scriptPath, startupPath, True
    MsgBox "安装成功！" & vbCrLf & vbCrLf & "重启后主窗口将自动关闭。", vbInformation, "完成"
End If

Set FSO = Nothing
Set WshShell = Nothing
WScript.Quit 0

3、如果觉得以上两个脚本用起来麻烦，再补一个单脚本的

新建一个文本文档，把下面全部内容复制进去，然后保存为：
桌面水印便签自动关闭.vbs

[Asm] 纯文本查看 复制代码

' =============================================
' 桌面水印便签 · 单个合体版自动关闭主窗口
' 安装/卸载 + 开机自动关闭 合二为一
' =============================================

Option Explicit

Dim WshShell, FSO, startupPath, currentPath, scriptName, answer
Set WshShell = CreateObject("WScript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")

scriptName = "桌面水印便签自动关闭.vbs"
startupPath = WshShell.SpecialFolders("Startup") & "\" & scriptName
currentPath = WScript.ScriptFullName

' ==================== 判断运行环境 ====================
' 如果是从开机启动文件夹运行的 → 执行关闭窗口功能（静默模式）
If LCase(currentPath) = LCase(startupPath) Then
    Call CloseMainWindow
    WScript.Quit 0
End If

' ==================== 双击运行 → 安装/卸载界面 ====================
If FSO.FileExists(startupPath) Then
    answer = MsgBox("脚本已安装在开机启动项中。" & vbCrLf & vbCrLf & _
                    "【确定】 = 卸载（以后不再自动关闭窗口）" & vbCrLf & _
                    "【取消】 = 什么都不做", vbOKCancel + vbQuestion, "桌面水印便签自动关闭")
    
    If answer = vbOK Then
        FSO.DeleteFile startupPath, True
        MsgBox "已成功卸载！", vbInformation, "完成"
    End If
Else
    ' 复制自身到启动文件夹
    FSO.CopyFile currentPath, startupPath, True
    MsgBox "安装成功！" & vbCrLf & vbCrLf & _
           "下次重启电脑后，桌面水印便签的主窗口将自动关闭。" & vbCrLf & _
           "水印功能和托盘图标不受影响。", vbInformation, "安装完成"
End If

Set FSO = Nothing
Set WshShell = Nothing
WScript.Quit 0


' =============================================
' 核心功能：自动关闭主窗口（仅在开机启动时执行）
' =============================================
Sub CloseMainWindow()
    Dim WshShell, ret, i, output
    Set WshShell = CreateObject("WScript.Shell")
    
    WScript.Sleep 2500   ' 等待软件启动
    
    For i = 1 To 12
        ' 双重验证：先检查进程是否存在
        On Error Resume Next
        output = WshShell.Exec("tasklist /fi ""imagename eq zhuomianshuiyin.exe"" /nh").StdOut.ReadAll
        On Error GoTo 0
        
        If InStr(output, "zhuomianshuiyin.exe") > 0 Then
            ret = WshShell.AppActivate("桌面水印便签")
            If ret = True Then
                WScript.Sleep 180
                WshShell.SendKeys "%{F4}"
                WScript.Sleep 450
                
                ' 确认是否关闭成功
                If Not WshShell.AppActivate("桌面水印便签") Then
                    Exit Sub
                End If
            End If
        End If
        
        WScript.Sleep 800
    Next
End Sub

使用方法：
把上面代码保存为桌面水印便签自动关闭.vbs
双击这个文件，它会自动复制自己到开机启动文件夹并提示“安装成功”
重启电脑测试

以后如果想卸载 → 再次双击这个文件 → 选择确定卸载

郭德纲于谦 · 发表于 2026-4-17 00:32

https://bbs.wuyou.net/forum.php?mod=viewthread&tid=429994

就为了能在桌面水印主显：禁止双面打印，否者打印机必罢工

郭德纲于谦 · 发表于 2026-4-17 00:36

这个软件，我等了 4年，终于等到了。但现在被 自启动处在主显状态，而困惑。

https://h30471.www3.hp.com/t5/da-yin-ji-shi-yong-xiang-guan-wen-ti/tui-xiu-zhi-hou-mei-ge-yue-tui-xiu-jin-chou-yan-he-jiu-bu-gou-zai-xian-cheng-zao-tang-mou-le-ge16tai-dian-nao-yang-hu-gong-zuo-zhong-jiu-bei4tai/td-p/1158507

郭德纲于谦 · 发表于 2026-4-17 21:22

老梁不说话发表于 2026-4-17 09:46
先确认进程名
打开软件。
按 Ctrl + Shift + Esc 打开任务管理器。

谢谢您~等我验证后，给您满上~再次谢谢。

老梁不说话 · 发表于 2026-4-17 21:23

郭德纲于谦发表于 2026-4-17 21:22
谢谢您~等我验证后，给您满上~再次谢谢。

不客气，祝您成功

ppszxc · 发表于 2026-4-18 00:57

https://wwayb.lanzouw.com/i1XkK3nif4aj
密码:52pj
增加最小化功能

郭德纲于谦 · 发表于 2026-4-18 13:37

ppszxc 发表于 2026-4-18 00:57
https://wwayb.lanzouw.com/i1XkK3nif4aj
密码:52pj
增加最小化功能

每次第二次加载软件，xy坐标都是 20,20

解决了开机隐藏主显界面，但是固化好xy坐标都会被重置到20,20坐标。

我是在 vmware虚拟机里面测试的。

郭德纲于谦 · 发表于 2026-4-18 13:50

您提交的积分充值请求已完成，相应数额的积分已存入您的积分账户

订单号：20260418134519NEoVVIcgk2QCScXd03

支出：人民币 250.00 元

收入：吾爱币 2000 CB

充了点吾爱币,，想给帮助的朋友加点分，可是系统却不给加分，但是，正确答案，第一个方案，我还在测试中，第二个方案不行。

郭德纲于谦 · 发表于 2026-4-18 14:53

老梁不说话发表于 2026-4-17 00:22
先确认进程名
打开软件。
按 Ctrl + Shift + Esc 打开任务管理器。

方案可行，但是，会屏闪3~4次，可能会吓到小朋友。

要是可以一招致命就好了，不要多次屏闪尝试关闭，如果此时电脑上坐着一个第一次来此电脑坐着的用户，屏幕闪4~5次，他会被吓到的。

帐号		自动登录	找回密码
密码			注册[Register]

[其他求助] 一个【桌面水印便签】软件非常喜欢，但开机自启动后总是处在主显状态，很讨厌，求X掉

最佳答案

免费评分