Как контролировать прокси если ты мультиаккер?

Привет, гангстер. По - любому, если ты умеешь говорить по-русски, у тебя завалялся где - то не один десяток прокси для мультиаккинга или загона каких - то форм на раффлы. Кстати, вступай в мой легендарный Телеграм - канал, ему полтора года и он никак не вырастет, потому что все криптаны ненавидят меня за слив инсайдов.

У меня поднята приличная ферма аккаунтов социальных сетей и недавно один из провайдеров прокси решил положить 25% всех моих проксей. Я не знаю, что это было, надеюсь не ботнет, а может и он. Короче, я начал чекать прокси в лучшем в мире антике используя встроенный и удобный чекер, он выдал мне 40% невалида (хз на какой - то другой сайт чекает видать). Я понял, что что - то не так и меня дико забомбило от того, что система моя неорганизованна. Да, я писал там всякие чекеры на питоне для говнопроксей, но они были чем - то вроде грубой силы, предназначенной исключительно для выброса на парашу мертвых проксей.

Короче я написал чекер на VBA и интегрировал его в мою книгу Exel, в которой веду учет всех имеющихся проксей. Ты можешь сам придумать, каким образом их менеджить. Например, можно просто вписывать прокси напротив твоих твиттер акков. Можно присваивать проксе имя аккаунта в AdsPower, а можно просто дать каждой проксе индекс и напротив прокси припысывать место, где она используется (например "Аккаунт фермы 1", "Минтер бот", "Скам подписчиков").

"Продуманная система управления всех твоих мультов должна включать методы контроля состояния проксей. Прокси - твой главный инструмент для лута лайфченджа" - Аристотель.

Если ты умеешь рисовать превью профессионально за 5$- напиши мне

Погнали строить!

Для начала определись, где в твоей табличке будут находиться прокси и перечисли их в столбик. Формат прокси должен соответствовать моему, он же является наиболее популярным: "http://username:password@ip:port". Если хочешь использовать прокси в формате AdsPower - тебе следует освоить VBA и вряд ли он тебе пригодится в жизни. Кстати, подпишись на мой Twitter, пендосы зарабатывают кучу денег на рекламе в твиттере, надо продвигать своих ребят.

Сохрани свою книгу Excel как "macro enabled workbook". Твоя экселька должна получить расширение .xlsm.

Далее, тебе необходимо включить Devtools в Excel. File -> Options -> Customize Ribbon -> врубай в правом столбце опцию Developer. Смотри рис. 1.

Рис. 1 - это скриншот из Excel на случай если ты не шаришь за мои стрелочки

Далее открывай вкладку Developer и запускай редактор Visual Basic. Смотри рис. 2.

Рис. 2 - это скриншот для моих подписчиков

Нажимай Insert -> Module. Сделай так 2 раза и увидишь пустые модули в левом поле редактора, открывай их. В первый модуль вставляй вот этот код и сохраняй его.

Option Explicit

Function IsProxyWorking(proxyWithAuth As String) As Boolean
    On Error GoTo ErrorHandler

    Dim objHTTP As Object
    Dim respText As String
    Dim proxyInfo As Variant
    Dim proxy As String
    Dim auth As String
    
    proxyInfo = Split(proxyWithAuth, "@")
    auth = Replace(proxyInfo(0), "http://", "")
    proxy = proxyInfo(1)

    Set objHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")
    
    With objHTTP
        .Open "GET", "https://api.ipify.org", False
        .SetProxy 2, proxy, ""
        .SetRequestHeader "Proxy-Authorization", "Basic " & EncodeBase64(auth)
        .Send
        respText = .ResponseText
    End With

    If InStr(respText, "error") = 0 Then
        IsProxyWorking = True
    Else
        IsProxyWorking = False
    End If

    Exit Function
    
ErrorHandler:
    IsProxyWorking = False
End Function

Function EncodeBase64(text As String) As String
    Dim arrData() As Byte
    arrData = StrConv(text, vbFromUnicode)

    Dim objXML As Object
    Dim objNode As Object

    Set objXML = CreateObject("MSXML2.DOMDocument")
    Set objNode = objXML.createElement("b64")

    objNode.DataType = "bin.base64"
    objNode.nodeTypedValue = arrData
    EncodeBase64 = objNode.text
End Function

Этот код будет сердцем нашего чекера. Кстати, если ты шаристый - можешь заменить ссылку, на которую отсылается запрос для проверки прокси. В моем случае это https://api.ipify.org. Это полезно если ты, например, хочешь проверить прокси на Discord, Twitter или другие сервисы.

Далее, открывай второй модуль и вставляй в него следующий код, после чего сохраняй модуль.

Sub Button1_Click()
    Dim ws As Worksheet
    Dim i As Long
    Dim startRow As Long
    Dim proxyCell As Range
    Dim resultCell As Range

    Set ws = Worksheets("proxies")

    startRow = 5 '5 - список прокси начинается с 5 строки
    
    For i = startRow To startRow + 9 '9 - продолжительность цикла
        Set proxyCell = ws.Cells(i, 2) '2 - прокси находятся в столбце B
        Set resultCell = ws.Cells(i, 8) '8 - результат проверки в столбец H

        If proxyCell.Value <> "" Then
            resultCell.Value = IsProxyWorking(proxyCell.Value)
        Else
            resultCell.Value = ""
        End If
        
        waitTime = 1 '1 - задержка между проверками
        Application.Wait (Now + TimeValue("00:00:" & CStr(waitTime)))
        
    Next i
End Sub

Этот код - наша шестерка, мы его прикрепим к кнопке и он будет пробегаться по всем нашим проксям и проверять их при помощи первого модуля. Обрати внимание, что тут есть переменные, которые следует подбить под свой кейс.

startRow = 5: тут указывай, с какой строки начинается список твоих проксей, у меня это строка под номером 5, ты можешь начать перечисление проксей с первой строки
For i = startRow To startRow + 9: тут 9 - это количество твоих проксей минус 1. В данном случае цикл рассчитан на проверку 10 прокси.
Set proxyCell = ws.Cells(i, 2): тут 2 - это столбец, в котором перечислены прокси. В данном случае прокси расположены в столбце B.
Set resultCell = ws.Cells(i, 8): тут 8 - это столбец, в который скрипт положит результат проверки прокси. В данном случае результат записывается в столбец H.
waitTime = 1: тут 1 - это задержка между циклами в секундах. Без нее может быть проблемка. 1 секунда.

Далее, идем снова во вкладку Developer и вставляем кнопку как показано на рис. 3. После нажатия на эту кнопку ее необходимо где-нибудь нарисовать.

Рис. 3 - как вставить кнопку

Откроется окно, в котором тебе просто нужно выбрать приготовленный ранее маркос и нажать OK. Готово! Теперь ты можешь чекать свои прокси прямо в Excel.

Для красоты можешь добавить conditional formatting, но проще тебе будет это нагуглить.

Рис. 4 - результат работы

Удачи тебе в луте и помни, что система делает из лоубанка большого человека, не распыляйся и организуй уже наконец свое рабочее пространство.