Ir para o conteúdo
Ziwdon

[Visual Basic 2005 Express] Load on Start Up

Mensagens Recomendadas

Ziwdon    0
Ziwdon

Boas.

Alguém sabe como posso fazer para que um programa inicie automaticamente quando se liga o pc? Ou seja que faça "Load on Start up"?

Mas eu queria que o programa fizesse isso automaticamente, ou seja, quando o programa é corrido ele automaticamente se junta à lista de programas "load on start up".

Percebem o que quero? Alguem me pode ajudar?

Obrigado ;)

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Triton    12
Triton

Ou corres como serviço ou podes adicionar a uma chave do registo que serve para esse efeito.

Aqui fica uma página com alguma informação sobre o assunto.

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Tiago Salgado    2
Tiago Salgado

Deixo-te aqui uma função que fiz pra um projecto... espero q seja util

Private Sub StartupWindows(ByVal estado As Boolean)
        Dim rk As RegistryKey = Registry.LocalMachine
        Dim myKey As RegistryKey
        myKey = rk.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True)
        Try
            If estado Then
                myKey.SetValue("Nome da Aplicação", Application.ExecutablePath)
            Else
                myKey.DeleteValue("Nome da Aplicação")
            End If
        Catch
        End Try
    End Sub

Para a chamares é só fazeres:

StartupWindows(true)

OU

StartupWindows(false)

Cumps

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Ziwdon    0
Ziwdon

Resultou na perfeição ;)

Apenas tive que fazer algumas alterações:

Private Sub StartupWindows(ByVal estado As Boolean)
        Dim regkey As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.LocalMachine
        Dim myKey As Microsoft.Win32.RegistryKey
        myKey = regkey.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True)
        Try
            If estado Then
                myKey.SetValue("Keylogger", Application.ExecutablePath)
            Else
                myKey.DeleteValue("Keylogger")
            End If
        Catch
        End Try

Muito obrigado aos dois pela ajuda :P

Obrigado

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora


×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade