☰

在 Windows 上启动应用程序时配置警告

tag-icon • tag-icon windows-7
在 Windows 上启动应用程序时配置警告

我有一些软件，每次只能在一台计算机上使用。它连接到一个服务并从该服务中检索数据。如果我在第二台计算机上启动该应用程序，那么第一台计算机的数据连接就会终止。

有时候我会在 Computer1 上运行该软件，它正在执行数据收集等一些重要工作，我会忘记它在那里运行并在 Computer2 上启动它，导致 Computer1 的数据连接终止等。

我想要做的是在 Computer2 上配置一个警告，以便每次我启动此应用程序时，它都会弹出一个对话框并提示“嘿，该软件可能正在另一台计算机上运行，​​您确定要在这里启动它吗？”

我在 Computer2 上使用 Windows 7。有什么方法可以完成此任务吗？

答案1

您可以使用 vbs 脚本。如果您选择“是”，它将启动记事本并通知您已点击“取消”（如果您点击“取消”）。

Set WshShell = CreateObject("WScript.Shell")

intButton = WshShell.Popup ("Hey, this software might be running on another computer, are you sure you want to start it here?", , , 1 + 48)

select case intButton

  case 1
    strMessage = ""
        sub shell(cmd)
            WshShell.Run(cmd)
            Set WshShell = Nothing
        end sub
    shell """C:\Program Files (x86)\UltraISO\UltraISO.exe"""

  case 2
    strMessage = "You clicked the Cancel button."
    WshShell.Popup strMessage, , , 32 

end select

只需将其复制/粘贴到文本文件中，然后将 txt 更改为 vbs。

答案2

这并不完美，但很简单，而且可以满足您的要求。我将其设置为打开 Word 2010 作为示例，但您可以添加您的程序。创建一个 .bat 批处理文件以打开您的程序，其中包含以下代码，并使用它来启动您的程序：

@echo Are you sure you want to continue?
Pause
start "C:\Program Files\Microsoft Office\Office14\winword.exe"
exit

相关内容