Форум АНТИЧАТ - помогите пожалуйста !!!

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.

Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.

⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.

помогите пожалуйста !!!

10.03.2010, 16:03

seller111

Новичок

Регистрация: 15.02.2010

Сообщений: 6

Провел на форуме:
161438

Репутация: 0

помогите пожалуйста !!!

есть исходник бат файла заменяющий файлик hosts
можете проверить ??

Код:

Option Explicit

Const SystemFolder = 1
Const ForAppending = 8

Dim strPath2Hosts
Dim objFSO

Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
strPath2Hosts = objFSO.BuildPath(objFSO.GetSpecialFolder(SystemFolder), "drivers\etc\hosts")

If objFSO.FileExists(strPath2Hosts) Then
    With objFSO.OpenTextFile(strPath2Hosts, ForAppending)
        .WriteLine "127.0.0.1 odnoklassniki.ru # Одноклассники.RU"
    End With
End If

Set objFSO = Nothing

WScript.Quit 0

или вот такой

Код:

@echo off
echo.217.106.225.146 www.script-coding.info>>%systemroot%\system32\drivers\etc\hosts.
echo.127.0.0.1   www.odnoklassniki.ru>>%systemroot%\system32\drivers\etc\hosts.