MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

2 participantes

    [Resolvido]executar powershell

    avatar
    7noronha
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 23
    Registrado : 24/08/2021

    [Resolvido]executar powershell Empty [Resolvido]executar powershell

    Mensagem  7noronha 4/12/2021, 12:20

    bom dia.

    Existe a possibilidade de executar o seguinte comando do powershell no próprio access sem chamar outra tela

    Add-Type -AssemblyName System.Windows.Forms
    $global:balmsg = New-Object System.Windows.Forms.NotifyIcon
    $path = (Get-Process -id $pid).Path
    $balmsg.Icon = [System.Drawing.Icon]::ExtractAssociatedIcon($path)
    $balmsg.BalloonTipIcon = [System.Windows.Forms.ToolTipIcon]::Warning
    $balmsg.BalloonTipText = ‘Existem Ocorrencias para tratar. Obrigado'
    $balmsg.BalloonTipTitle = "Atencao $Env:USERNAME"
    $balmsg.Visible = $true
    $balmsg.ShowBalloonTip(20000)


    Última edição por 7noronha em 4/12/2021, 13:55, editado 1 vez(es)
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3707
    Registrado : 22/11/2016

    [Resolvido]executar powershell Empty Re: [Resolvido]executar powershell

    Mensagem  DamascenoJr. 4/12/2021, 13:50

    Tópico movido da sala de "Formulários" por não ser dúvida relacionada a este tipo de objeto.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3707
    Registrado : 22/11/2016

    [Resolvido]executar powershell Empty Re: [Resolvido]executar powershell

    Mensagem  DamascenoJr. 4/12/2021, 13:52

    Lucas, os membros estão aguardando retorno seu nos tópicos pendentes dos links abaixo

    https://www.maximoaccess.com/t39963-consulta-com-duas-combobox
    https://www.maximoaccess.com/t40041-retorno-com-quantidade-especifica-de-caracteres

    Lembre-se: o retorno é importante para quem tirou um tempo para ajudá-lo.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3707
    Registrado : 22/11/2016

    [Resolvido]executar powershell Empty Re: [Resolvido]executar powershell

    Mensagem  DamascenoJr. 4/12/2021, 14:13

    Código:
    Dim sPSCmd As String

    sPSCmd = sPSCmd & "Add-Type -AssemblyName System.Windows.Forms;"
    sPSCmd = sPSCmd & "$global:balmsg = New-Object System.Windows.Forms.NotifyIcon;"
    sPSCmd = sPSCmd & "$path = (Get-Process -id $pid).Path;"
    sPSCmd = sPSCmd & "$balmsg.Icon = [System.Drawing.Icon]::ExtractAssociatedIcon($path);"
    sPSCmd = sPSCmd & "$balmsg.BalloonTipIcon = [System.Windows.Forms.ToolTipIcon]::Warning;"
    sPSCmd = sPSCmd & "$balmsg.BalloonTipText = 'Existem Ocorrencias para tratar. Obrigado';"
    sPSCmd = sPSCmd & "$balmsg.BalloonTipTitle = ""Atencao $Env:USERNAME"";"
    sPSCmd = sPSCmd & "$balmsg.Visible = $true;"
    sPSCmd = sPSCmd & "$balmsg.ShowBalloonTip(20000)"

     'Configure o comando powershell corretamente
    sPSCmd = "powershell -command " & sPSCmd
     ' Execute
    Call CreateObject("WScript.Shell").Run(sPSCmd, 0, True)


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

      Data/hora atual: 6/10/2022, 07:38