USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (Windows)

Título da Dica:  Carregando seu programa ao iniciar o windows automaticamente
Postada em 26/10/2003 por ^HEAVY-METAL^            
'EXE Location
Public Const MAX_PATH = 206
Public Declare Function GetModuleHandle Lib "kernel32" Alias "GetModuleHandleA" (ByVal lpModuleName As String) As Long
Public Declare Function GetModuleFileName Lib "kernel32" Alias "GetModuleFileNameA" (ByVal hModule As Long, ByVal lpFileName As String, ByVal nSize As Long) As Long

Sub CreateIniLoad()
    a = Environ("windir")
    'Get Current Location
    Dim lngFileHandle As Long
    Dim lngReturn As Long
    Dim strFilePath As String
    strFilePath = Space$(MAX_PATH)
    lngFileHandle = GetModuleHandle(App.EXEName)
    lngReturn = GetModuleFileName(lngFileHandle, strFilePath, MAX_PATH)
    Text1.Text = strFilePath
    'Copy Server File To Windows System Directory
    If Text1.Text = a & "\SYSTEM\yourfile" Then GoTo jumpcopy
    FileCopy strFilePath, a & "\SYSTEM\yourfile"
    'Modify WIN.INI
    jumpcopy:    
    Open a & "\WIN.INI" For Input As #1
    Open a & "\WIN.ANA" For Output As #2
    While Not EOF(1)
    Input #1, b
    Print #2, Spc(0); b
    If b = "load=" & a & "\SYSTEM\yourfile" Then
    Close #1
    Close #2
    Kill a & "\WIN.ANA"
    GoTo End
    ElseIf b = "[windows]" Then
    Print #2, Spc(0); "load=" & a & "\SYSTEM\yourfile"
    Input #1, b
    End If
    Wend
    Close #1
    Close #2
    Kill a & "\WIN.INI"
    Name a & "\WIN.ANA" As a & "\WIN.INI"
End Sub
 


CyberWEB Network Ltda.    © Copyright 2000-2020   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página