配置在 Windows 上啟動應用程式時發出警告

配置在 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

相關內容