Configure um aviso ao iniciar um aplicativo no Windows

Question

Eu tenho alguns softwares que são licenciados para serem usados em um computador de cada vez. Ele se conecta a um serviço e recupera dados desse serviço. Se eu iniciar o aplicativo em um segundo computador, a conexão de dados do primeiro computador será encerrada.

Há momentos em que irei rodar o software no Computer1 e ele está fazendo um trabalho vital com sua coleta de dados, etc. Eu esquecerei que ele está rodando lá e o inicie no Computer2, fazendo com que a conexão de dados do Computer1 termine etc.

O que eu quero fazer é configurar um aviso no Computer2 para que toda vez que eu iniciar este aplicativo ele apareça em uma caixa de diálogo e diga "Ei, este software pode estar rodando em outro computador, você tem certeza que quer iniciá-lo? aqui? "

Estou usando o Windows 7 no Computer2. Existe alguma maneira para eu realizar essa tarefa?

    

Answer 1

Você pode usar um script vbs. Isto irá lançar o bloco de notas se você disser que sim e notificá-lo que você bateu cancelar (se você clicar em cancelar).

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

Basta copiar / colar em um arquivo de texto e alterar o texto para um vbs.

    

Answer 2

Isso não é perfeito, mas é simples e faz o que você quer. Eu configurei isso para abrir o Word 2010 como um exemplo, mas você adicionaria seu programa. Crie um arquivo em lote .bat para abrir seu programa com o seguinte código e use-o para iniciar seu programa:

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