Aplicativo Administrador

Cria o executavel do projeto e coloque na pasta

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

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

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

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

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

Boa noite Rafael Mitsunaka

Como faço isto.

Pois este metohodo ainda não conheço.

Você pode me passa um exemplo.

Agradeço.

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.

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