none
MsgBox RRS feed

  • Pergunta

  • Pessoal, preciso novamente a ajuda de vocês...

    Preciso colocar no login script uma msgbox de aviso ao pessoal que logar no computador...

    Quando logar aparece a msg box com uma mensagem...

    Clicando em "Sim" - Ele abre o navegador com determinado endereço, ou um arquivo em HTML
    Clicando em "Não" - Ele fecha a msgbox

    Acredito que é simples, se puderem me ajudar, agradeço

    Muito obrigado.
    segunda-feira, 11 de janeiro de 2010 21:26

Respostas

  • Pessoal, preciso novamente a ajuda de vocês...

    Preciso colocar no login script uma msgbox de aviso ao pessoal que logar no computador...

    Quando logar aparece a msg box com uma mensagem...

    Clicando em "Sim" - Ele abre o navegador com determinado endereço, ou um arquivo em HTML
    Clicando em "Não" - Ele fecha a msgbox

    Acredito que é simples, se puderem me ajudar, agradeço

    Muito obrigado.



    Seria isso?


    strCondicao = MsgBox("Abrir Google?",4, "Meu Script de logon")

    if strCondicao = 6 then '(6 = Sim 7 = Não)
     Set objIE = CreateObject("InternetExplorer.Application")
        objIE.Visible = 1
        objIE.Navigate "http://www.google.com.br"
    Else
         '<Executa condição caso Não>
    End if

    Poste os resultados!Se útil classifique!
    []s,


    " Qm tem boca vai a roma, meu fogão tem 6 e não saiu da cozinha ainda"
    terça-feira, 12 de janeiro de 2010 13:33

Todas as Respostas

  • Pessoal, preciso novamente a ajuda de vocês...

    Preciso colocar no login script uma msgbox de aviso ao pessoal que logar no computador...

    Quando logar aparece a msg box com uma mensagem...

    Clicando em "Sim" - Ele abre o navegador com determinado endereço, ou um arquivo em HTML
    Clicando em "Não" - Ele fecha a msgbox

    Acredito que é simples, se puderem me ajudar, agradeço

    Muito obrigado.



    Seria isso?


    strCondicao = MsgBox("Abrir Google?",4, "Meu Script de logon")

    if strCondicao = 6 then '(6 = Sim 7 = Não)
     Set objIE = CreateObject("InternetExplorer.Application")
        objIE.Visible = 1
        objIE.Navigate "http://www.google.com.br"
    Else
         '<Executa condição caso Não>
    End if

    Poste os resultados!Se útil classifique!
    []s,


    " Qm tem boca vai a roma, meu fogão tem 6 e não saiu da cozinha ainda"
    terça-feira, 12 de janeiro de 2010 13:33
  • Marcellus,

    Perfeito! exatamente este!

    Muito obrigado pela ajuda!!
    terça-feira, 12 de janeiro de 2010 16:11