Aplicativo Administrador

[Nilson Cl. 0]

Boa tarde Pessoal

 

estou desenvolvendo um aplicativo e vb.net, e o mesmo deve ser executado como administrador e ao iniciar com o windows.

 

E sem dar a mensagem de seguransa do windows.

 

 

como devo proceder?

 

 

 

agradeço a atenção

[Rafael Mitsunaka 11]

Cria o executavel do projeto e coloque na pasta

 

C:\Users\<meu_usuario>\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup

[Nilson Cl. 0]

Boa noite Rafael

 

Ja fiz isto previamente

 

 

so que o sistema não pode rodar esta form.

 

Pois o mesmo pede a confirmação de segurança do windows.

 

e se o usuario clicar em não, o memos não é executado.

 

o mesmo deve ser executado diretamente sem interferencia do usuario.

 

 

agradeço a atenção

[Nilson Cl. 0]

Bom dia passoal

 

Ainda não consegui resolver o meu problema com a mensaguem de segurança do windows.

 

algue ai tem uma luz.

 

gostaria de que a mensade segurança não aparecese somente neste programa.

 

Não tem como fazer?

 

Manipulando o registro do windows?

 

isto via codigo vb.net

 

Tem ????

 

Agradeço a atenção

[Rafael Mitsunaka 11]

você não consegue executar com o "quiet"?

 

Ele obriga a executar o programa em background sem avisos nenhum.

[Nilson Cl. 0]

Boa noite Rafael Mitsunaka

 

Como faço isto.

 

Pois este metohodo ainda não conheço.

 

Você pode me passa um exemplo.

 

Agradeço.

[Rafael Mitsunaka 11]

na verdade não é um metodo.

 

e não tenho certeza se da para fazer isso diretamente do visual studio.

 

por exemplo eu consigo abrir locam na minha máquina um arquivo assim, no executar do windows:

 

msiexec.exe /i "\\pacotes\software$\Desktop\Microsoft\Communicator\R2\CommunicatorMUI.msi" /QUIET/norestart

 

ele roda em background, talvez exista um jeito de fazer pelo visual studio

 

Você consegue executar o programa ou não?

 

posta seu código também fica mais fácil de tentarmos uma solução.

[Nilson Cl. 0]

Bom dia Rafael

 

Seguem codigo

 

Imports System.Data.SqlClient


Public Class Form1

   Dim DataProg As Date
   Dim iWidth As Integer = Screen.PrimaryScreen.Bounds.Width
   Dim iHeight As Integer = Screen.PrimaryScreen.Bounds.Height
   Dim Data As Date
   'variavel usada para ajustar ao sincronismo se der difenrencia 3 vese
   Dim DataDiferente As Long = 0

   Dim StringConexao As String = "Data Source=IP;Initial Catalog=ncmd;Persist Security Info=True;User ID=User;password=password;"

   Sub Posiciona()

       Left = iWidth - 235
       Top = iHeight - 190
       '221; 136

   End Sub

   Private Sub btMuda_Click(sender As System.Object, e As System.EventArgs) Handles btMuda.Click
       'TimeOfDay = "10:45:10"
       'Today = "27/04/12"
   End Sub



   Function DataDoServ() As Date
       Try


       Dim Count As Long
       Using connection As New SqlConnection(StringConexao)

           Dim commando As New SqlCommand("SELECT GetDate()", connection)
           connection.Open()

           Dim rs As SqlDataReader = commando.ExecuteReader()
           While rs.Read()
                   Data = Trim(IIf(IsDBNull(rs.Item(0)), "", rs.Item(0)))

                   If IsDate(Data) Then
                       If Data <> Date.Now Then

                           TimeOfDay = Data.ToString("HH:mm:ss")
                           Today = Data.ToString("dd/MM/yyyy")
                           DataDoServ = Data.ToString("dd/MM/yyyy")
                           DataProg = DataDoServ

                           lblDateHora.Text = Data.ToString("HH:mm:ss") & vbCrLf & Data.ToString("dd/MM/yyyy")


                       End If
                   End If

               End While
           rs.Close()
       End Using
       Exit Function
       Catch ex As Exception
           'MsgBox("Não foi possível alterar a data e hora do sistema", MsgBoxStyle.Critical)
       End Try
   End Function


   Private Sub Form1_Shown(sender As Object, e As System.EventArgs) Handles Me.Shown
       DataDoServ()
       DataProg = Data
       Posiciona()
   End Sub


   Private Sub btPosiciona_Click(sender As System.Object, e As System.EventArgs) Handles btPosiciona.Click
       Posiciona()
   End Sub




   Private Sub Timer2_Tick(sender As System.Object, e As System.EventArgs) Handles Timer2.Tick

       DataProg = DateAdd(DateInterval.Second, 1, DataProg)

       lbldatapc.Text = DataProg.ToString("HH:mm:ss") & vbCrLf & DataProg.ToString("dd/MM/yyyy")

       lblWin.Text = Date.Now.ToString("HH:mm:ss") & vbCrLf & Date.Now.ToString("dd/MM/yyyy")

       If DataProg.ToString("dd/MM/yyyy HH:mm") <> Date.Now.ToString("dd/MM/yyyy HH:mm") Then

           If DataDiferente = 3 Then
               DataDoServ()
               DataDiferente = 0
           Else
               DataDiferente += 1

           End If
       Else

           DataDiferente = 0

       End If

   End Sub
End Class