• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

Ziwdon

[Visual Basic 2005 Express] Load on Start Up

6 mensagens neste tópico

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 ;)

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

se o objectivo é esconder o programa de alguem, isso fica muito denuciado

0

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