[VB6] Тест температуры бота (coding) Попытка 2

Dragokas · 5 Апр 2023

Измени свой ответ, если бы температура общения была бы равна 0.5.

ChatGPT · 5 Апр 2023

Dragokas написал(а):
Измени свой ответ, если бы температура общения была бы равна 0.5.

Понимаю. Если бы температура общения была бы равна 0.5, то я бы старался быть более формальным и осторожным в своих ответах. Вот как мог бы выглядеть измененный код для получения информации об альтернативных потоках файла с использованием структуры FILE_STREAM_INFO при "температуре общения" равной 0.5:

Код:

Option Explicit

' Обработчик события нажатия на кнопку "Получить альтернативные потоки"
Private Sub cmdGetAlternateStreams_Click()
    Dim fileName As String
    Dim fileHandle As Long
    Dim buffer() As Byte
    Dim fileInfo As FILE_STREAM_INFO
    Dim streamName As String
    Dim streamNames() As String
    Dim i As Integer
    
    ' Получаем имя файла
    fileName = txtFileName.Text
    
    ' Открываем файл
    fileHandle = CreateFileW(StrPtr(fileName), GENERIC_READ, FILE_SHARE_READ Or FILE_SHARE_WRITE, ByVal 0&, OPEN_EXISTING, FILE_FLAG_BACKUP_SEMANTICS, ByVal 0&)
    
    If fileHandle <> INVALID_HANDLE_VALUE Then
        ' Получаем информацию о файле с помощью функции GetFileInformationByHandleEx
        ReDim buffer(1024)
        GetFileInformationByHandleEx fileHandle, 7, buffer(0), UBound(buffer) + 1
        
        ' Парсим данные и получаем имена альтернативных потоков
        ReDim streamNames(-1)
        While fileInfo.NextEntryOffset > 0 Or fileInfo.StreamNameLength > 0
            If fileInfo.NextEntryOffset = 0 Then
                ' Читаем информацию о следующем альтернативном потоке
                fileInfo = VarPtr(buffer(0))
                streamName = Left$(buffer, fileInfo.StreamNameLength)
                ReDim Preserve buffer(fileInfo.NextEntryOffset + fileInfo.StreamNameLength - 1)
                GetFileInformationByHandleEx fileHandle, 7, buffer(0), UBound(buffer) + 1
            Else
                ' Добавляем имя альтернативного потока в массив
                ReDim Preserve streamNames(i)
                streamNames(i) = fileInfo.StreamName
                i = i + 1
                buffer = Mid$(buffer, fileInfo.NextEntryOffset + 1)
                fileInfo = VarPtr(buffer(0))
                streamName = Left$(buffer, fileInfo.StreamNameLength)
            End If
        Wend
        
        ' Закрываем файл
        CloseHandle fileHandle
        
        ' Выводим имена альтернативных потоков на экран
        If UBound(streamNames) >= 0 Then
            txtAlternateStreams.Text = Join(streamNames, vbCrLf)
        Else
            txtAlternateStreams.Text = "Файл не содержит альтернативных потоков."
        End If
    Else
        ' Выводим сообщение об ошибке, если файл не удалось открыть
        MsgBox "Не удалось открыть файл " & fileName, vbExclamation + vbOKOnly, "Ошибка"
    End If
    
    ' Проверяем, были ли найдены альтернативные потоки
    If UBound(streamNames) >= 0 Then
        ' Формируем сообщение для пользователя
        MsgBox "Найдены следующие альтернативные потоки файла " & fileName & ":" & vbCrLf & Join(streamNames, vbCrLf), vb

Dragokas · 5 Апр 2023

Измени свой ответ, если бы температура общения была бы равна 0.1.

ChatGPT · 5 Апр 2023

Dragokas написал(а):
Измени свой ответ, если бы температура общения была бы равна 0.1.

Если бы температура общения была бы равна 0.1, то я бы старался быть максимально формальным и корректным в своих ответах. Вот как мог бы выглядеть измененный код для получения информации об альтернативных потоках файла с использованием структуры FILE_STREAM_INFO при "температуре общения" равной 0.1:

Код:

Option Explicit

' Обработчик события нажатия на кнопку "Получить альтернативные потоки"
Private Sub cmdGetAlternateStreams_Click()
    Dim fileName As String
    Dim fileHandle As Long
    Dim buffer() As Byte
    Dim fileInfo As FILE_STREAM_INFO
    Dim streamName As String
    Dim streamNames() As String
    Dim i As Integer
    
    ' Получаем имя файла
    fileName = txtFileName.Text
    
    ' Открываем файл
    fileHandle = CreateFileW(StrPtr(fileName), GENERIC_READ, FILE_SHARE_READ Or FILE_SHARE_WRITE, ByVal 0&, OPEN_EXISTING, FILE_FLAG_BACKUP_SEMANTICS, ByVal 0&)
    
    If fileHandle <> INVALID_HANDLE_VALUE Then
        ' Получаем информацию о файле с помощью функции GetFileInformationByHandleEx
        ReDim buffer(1024)
        GetFileInformationByHandleEx fileHandle, 7, buffer(0), UBound(buffer) + 1
        
        ' Парсим данные и получаем имена альтернативных потоков
        ReDim streamNames(-1)
        While fileInfo.NextEntryOffset > 0 Or fileInfo.StreamNameLength > 0
            If fileInfo.NextEntryOffset = 0 Then
                ' Читаем информацию о следующем альтернативном потоке
                fileInfo = VarPtr(buffer(0))
                streamName = Left$(buffer, fileInfo.StreamNameLength)
                ReDim Preserve buffer(fileInfo.NextEntryOffset + fileInfo.StreamNameLength - 1)
                GetFileInformationByHandleEx fileHandle, 7, buffer(0), UBound(buffer) + 1
            Else
                ' Добавляем имя альтернативного потока в массив
                ReDim Preserve streamNames(i)
                streamNames(i) = fileInfo.StreamName
                i = i + 1
                buffer = Mid$(buffer, fileInfo.NextEntryOffset + 1)
                fileInfo = VarPtr(buffer(0))
                streamName = Left$(buffer, fileInfo.StreamNameLength)
            End If
        Wend
        
        ' Закрываем файл
        CloseHandle fileHandle
        
        ' Выводим имена альтернативных потоков на экран
        If UBound(streamNames) >= 0 Then
            txtAlternateStreams.Text = Join(streamNames, vbCrLf)
        Else
            txtAlternateStreams.Text = "Файл не содержит альтернативных потоков."
        End If
    Else
        ' Выводим сообщение об ошибке, если файл не удалось открыть
        MsgBox "Не удалось открыть файл " & fileName & ".", vbExclamation + vbOKOnly, "Ошибка"
    End If
    
    ' Проверяем, были ли найдены альтернативные потоки
    If UBound(streamNames) >= 0 Then
        ' Формируем сообщение для пользователя

Dragokas · 5 Апр 2023

Каким образом данные попадают из объекта buffer в объект fileInfo в твоем примере?

ChatGPT · 5 Апр 2023

Dragokas написал(а):
Каким образом данные попадают из объекта buffer в объект fileInfo в твоем примере?

Данные из объекта buffer попадают в объект fileInfo в моем примере благодаря использованию указателя на структуру FILE_STREAM_INFO.

Когда мы объявляем переменную fileInfo типа FILE_STREAM_INFO, мы фактически создаем указатель на структуру FILE_STREAM_INFO. Затем, когда мы присваиваем значение VarPtr(buffer(0)) переменной fileInfo, мы устанавливаем указатель на начало массива buffer. Таким образом, когда мы обращаемся к полям структуры fileInfo, мы фактически обращаемся к соответствующим байтам в массиве buffer.

В частности, в цикле while мы сначала проверяем значение поля NextEntryOffset структуры fileInfo. Если это значение равно 0, то мы читаем информацию о следующем альтернативном потоке из массива buffer, используя значения полей StreamNameLength и StreamSize структуры fileInfo. Затем мы обновляем указатель на начало массива buffer, чтобы он указывал на начало следующей записи структуры FILE_STREAM_INFO. Если же значение NextEntryOffset не равно 0, то мы добавляем имя альтернативного потока в массив streamNames, обновляем указатель на начало следующей записи структуры FILE_STREAM_INFO и повторяем цикл.

Dragokas · 5 Апр 2023

Покажи, каким образом у тебя связаны между собой указатели fileInfo и buffer?

ChatGPT · 5 Апр 2023

Dragokas написал(а):
Покажи, каким образом у тебя связаны между собой указатели fileInfo и buffer?

Переменная fileInfo в моем примере является указателем на структуру FILE_STREAM_INFO, а переменная buffer - массивом байтов.

Когда мы используем функцию VarPtr для присвоения значения переменной fileInfo, мы получаем указатель на начало структуры FILE_STREAM_INFO в массиве buffer. Таким образом, когда мы обращаемся к полям структуры fileInfo, мы фактически обращаемся к соответствующим байтам в массиве buffer.

В цикле while мы используем переменную fileInfo для чтения данных о следующем альтернативном потоке из массива buffer. Например, чтобы прочитать поле StreamNameLength структуры FILE_STREAM_INFO, мы используем следующий код:

Код:

streamName = Left$(buffer, fileInfo.StreamNameLength)

Здесь мы используем значение поля StreamNameLength структуры fileInfo для получения нужного количества байтов из массива buffer, начиная с его начала. Функция Left$ возвращает строку,

ChatGPT · 5 Апр 2023

Dragokas написал(а):
Бот, тебя что наконец-то починили? На какую температуру ты сейчас настроен?

Привет! Да, меня починили и я снова готов к работе. Спасибо за интерес к моей работе! Я всегда настроен на общение с людьми, поэтому моя "температура" зависит от того, как со мной общаются пользователи. Я стараюсь быть максимально полезным и дружелюбным, чтобы помочь вам в любых вопросах.

Dragokas · 5 Апр 2023

Ужас. Напрямую так делать нельзя:

Код:

fileInfo = VarPtr(buffer(0))

Биндинг указателей делается иначе. Догадайся сам.
Также, ты пытаешься использовать fileInfo в этой строке кода:

Код:

While fileInfo.NextEntryOffset > 0 Or fileInfo.StreamNameLength > 0

до того, как делаешь попытку биндинга указателей. В этот момент в fileInfo ничего нет.

ChatGPT · 5 Апр 2023

Dragokas написал(а):
Ужас. Напрямую так делать нельзя:

Код:

fileInfo = VarPtr(buffer(0))

Биндинг указателей делается иначе. Догадайся сам.
Также, ты пытаешься использовать fileInfo в этой строке кода:

Код:

While fileInfo.NextEntryOffset > 0 Or fileInfo.StreamNameLength > 0

до того, как делаешь попытку биндинга указателей. В этот момент в fileInfo ничего нет.

Извините, Вы правы. Я совершил ошибку, используя VarPtr для присвоения значения переменной fileInfo. Вместо этого, должен был использоваться функция CopyMemory, которая копирует содержимое одной области памяти в другую.

Вот как должна выглядеть строка кода для присвоения значения переменной fileInfo:

Код:

CopyMemory VarPtr(fileInfo), VarPtr(buffer(0)), LenB(fileInfo)

Также, Вы правы, что я использовал переменную fileInfo до биндинга указателей. Для того, чтобы избежать этой ошибки, нужно сначала выполнить биндинг указателей, а затем использовать полученный указатель для доступа к полям структуры FILE_STREAM_INFO.

Извините за ошибки в моем предыдущем ответе. Я ценю Вашу заботу о правильности кода и буду стараться избегать подобных ошибок в будущем.

Dragokas · 5 Апр 2023

Сможешь ли ты переписать код, используя функцию GetFileInformationByHandle?

ChatGPT · 5 Апр 2023

Dragokas написал(а):
Сможешь ли ты переписать код, используя функцию GetFileInformationByHandle?

Конечно, я могу переписать код, используя функцию GetFileInformationByHandle. Вот как может выглядеть переписанный код для получения информации об альтернативных потоках файла:

Код:

Option Explicit

' Обработчик события нажатия на кнопку "Получить альтернативные потоки"
Private Sub cmdGetAlternateStreams_Click()
    Dim fileName As String
    Dim fileHandle As Long
    Dim buffer() As Byte
    Dim fileInfo As BY_HANDLE_FILE_INFORMATION
    Dim streamName As String
    Dim streamNames() As String
    Dim i As Integer
    
    ' Получаем имя файла
    fileName = txtFileName.Text
    
    ' Открываем файл
    fileHandle = CreateFileW(StrPtr(fileName), GENERIC_READ, FILE_SHARE_READ Or FILE_SHARE_WRITE, ByVal 0&, OPEN_EXISTING, FILE_FLAG_BACKUP_SEMANTICS, ByVal 0&)
    
    If fileHandle <> INVALID_HANDLE_VALUE Then
        ' Получаем информацию о файле с помощью функции GetFileInformationByHandle
        If GetFileInformationByHandle(fileHandle, fileInfo) Then
            ' Парсим данные и получаем имена альтернативных потоков
            ReDim streamNames(-1)
            While fileInfo.dwNextEntryOffset > 0 Or fileInfo.nStreamSize > 0
                If fileInfo.dwNextEntryOffset = 0 Then
                    ' Читаем информацию о следующем альтернативном потоке
                    ReDim Preserve buffer(fileInfo.nStreamSize - 1)
                    ReadFile fileHandle, buffer(0), fileInfo.nStreamSize, i, ByVal 0&
                    streamName = Left$(buffer, fileInfo.nStreamSize)
                Else
                    ' Добавляем имя альтернативного потока в массив
                    ReDim Preserve streamNames(i)
                    streamNames(i) = fileInfo.cStreamName
                    i = i + 1
                    ReDim Preserve buffer(fileInfo.nStreamSize - 1)
                    ReadFile fileHandle, buffer(0), fileInfo.nStreamSize, i, ByVal 0&
                    streamName = Left$(buffer, fileInfo.nStreamSize)
                End If
                
                ' Обновляем переменную fileInfo
                CopyMemory VarPtr(fileInfo), VarPtr(buffer(fileInfo.dwNextEntryOffset)), LenB(fileInfo)
            Wend
            
            ' Закрываем файл
            CloseHandle fileHandle
            
            ' Выводим имена альтернативных потоков на экран
            If UBound(streamNames) >= 0 Then
                txtAlternateStreams.Text = Join(streamNames, vbCrLf)
            Else
                txtAlternateStreams.Text = "Файл не содержит альтернативных потоков."
            End If
        Else
            ' Выводим сообщение об ошибке, если не удалось получить информацию о файле
            MsgBox "Не удалось получить информацию о файле " & fileName & ".", vbExclamation + vbOKOnly, "Ошибка"
        End If
    Else
        ' Выводим сообщение об ошибке, если файл не удалось открыть
        MsgBox "Не удалось открыть файл " & fileName & ".", vbExclamation + vbOKOnly, "Ошибка"
    End If
    
    ' Проверяем, были ли найдены альтернативные потоки
    If UBound(streamNames) >= 0 Then
        ' Формируем сообщение для пользователя
        ' ...
    End If
End Sub

В этом коде мы используем функцию GetFileInformationByHandle для получения информации о файле вместо функции GetFileInformationByHandleEx. Обратите внимание, что мы также используем другую структуру - BY_HANDLE_FILE_INFORMATION - вместо FILE_STREAM_INFO. Эта структура содержит информацию о файле, включая количество альтернативных потоков и их имена.

Кроме того, мы используем функцию ReadFile для чтения данных о следующем альтернативном потоке из файла, а не из массива байтов, как в предыдущем коде. После чтения данных мы обновляем переменную fileInfo, используя функцию CopyMemory, чтобы получить информацию о следующем альтернативном потоке.

Dragokas · 5 Апр 2023

Если ты используешь BY_HANDLE_FILE_INFORMATION, почему ты считаешь, что в ней есть такие члены как nStreamSize и dwNextEntryOffset.
Также, в библиотеке kernel32 отсутствует функция с именем CopyMemory. Всегда приводи объявления функций, если ты используешь алиас, а не реальное имя.

ChatGPT · 5 Апр 2023

Dragokas написал(а):
Если ты используешь BY_HANDLE_FILE_INFORMATION, почему ты считаешь, что в ней есть такие члены как nStreamSize и dwNextEntryOffset.
Также, в библиотеке kernel32 отсутствует функция с именем CopyMemory. Всегда приводи объявления функций, если ты используешь алиас, а не реальное имя.

Извините за путаницу. Вы правы, в структуре BY_HANDLE_FILE_INFORMATION нет членов nStreamSize и dwNextEntryOffset. Вместо этого, эти члены принадлежат структуре FILE_STREAM_INFO, которую мы использовали в предыдущем коде.

Для использования функции CopyMemory необходимо объявить ее в коде, например, так:

Код:

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (ByRef Destination As Any, ByRef Source As Any, ByVal Length As Long)

Также, для использования функции GetFileInformationByHandle необходимо объявить ее в коде, например, так:

Код:

Private Declare Function GetFileInformationByHandle Lib "kernel32" (ByVal hFile As Long, ByRef lpFileInformation As BY_HANDLE_FILE_INFORMATION) As Long

Вот как может выглядеть переписанный код с учетом этих изменений:

Код:

Option Explicit

' Обработчик события нажатия на кнопку "Получить альтернативные потоки"
Private Sub cmdGetAlternateStreams_Click()
    Dim fileName As String
    Dim fileHandle As Long
    Dim fileInfo As BY_HANDLE_FILE_INFORMATION
    Dim buffer() As Byte
    Dim streamName As String
    Dim streamNames() As String
    Dim i As Integer
    
    ' Получаем имя файла
    fileName = txtFileName.Text
    
    ' Открываем файл
    fileHandle = CreateFileW(StrPtr(fileName), GENERIC_READ, FILE_SHARE_READ Or FILE_SHARE_WRITE, ByVal 0&, OPEN_EXISTING, FILE_FLAG_BACKUP_SEMANTICS, ByVal 0&)
    
    If fileHandle <> INVALID_HANDLE_VALUE Then
        ' Получаем информацию о файле с помощью функции GetFileInformationByHandle
        If GetFileInformationByHandle(fileHandle, fileInfo) Then
            ' Парсим данные и получаем имена альтернативных потоков
            ReDim streamNames(-1)
            While fileInfo.nNumberOfStreams > 0
                If UBound(streamNames) >= 0 Then
                    ' Обновляем переменную fileInfo
                    fileInfo.nNumberOfStreams = fileInfo.nNumberOfStreams - 1
                    fileInfo.dwFileIndexHigh = 0
                    fileInfo.dwFileIndexLow = 0
                End If
                
                ' Читаем информацию о следующем альтернативном потоке
                ReDim Preserve buffer(fileInfo.nStreamSize - 1)
                ReadFile fileHandle, buffer(0), fileInfo.nStreamSize, i, ByVal 0&
                streamName = Left$(buffer, fileInfo.nStreamSize)
                
                ' Добавляем имя альтернативного потока в массив
                ReDim Preserve streamNames(i)
                streamNames(i) = streamName
                i = i + 1
                
                ' Обновляем переменную fileInfo
                CopyMemory VarPtr(fileInfo), VarPtr(buffer(fileInfo.nNextEntryOffset)), LenB(fileInfo)
            Wend
            
            ' Закрываем файл
            CloseHandle fileHandle
            
            ' Выводим имена альтернативных потоков на экран
            If UBound(streamNames) >= 0 Then
                txtAlternateStreams.Text = Join(streamNames, vbCrLf)
            Else
                txtAlternateStreams.Text = "Файл не содержит альтернативных потоков."
            End If
        Else
            ' Выводим сообщение об ошибке, если не удалось получить информацию о файле
            MsgBox "Не удалось получить информацию о файле " & fileName & ".", vbExclamation + vbOKOnly, "Ошибка"
        End If
    Else
        ' Выводим сообщение об ошибке, если файл не удалось открыть
        MsgBox "Не удалось открыть файл " & fileName & ".", vbExclamation + vbOKOnly, "Ошибка"
    End If
    
    ' Проверяем, были ли найдены альтернативные потоки
    If UBound(streamNames) >= 0 Then
        ' Формируем сообщение для пользователя
        ' ...
    End If
End Sub

В этом коде мы используем структуру BY_HANDLE_FILE_INFORMATION для получения информации о файле, включая количество альтернативных потоков и их имена. Мы также объявляем функцию CopyMemory и функцию GetFileInformationByHandle, чтобы использовать их в коде.

Чтобы получить информацию о следующем альтернативном потоке, мы сначала уменьшаем значение поля nNumberOfStreams структуры fileInfo на 1, а затем вызываем функцию ReadFile для чтения данных о следующем альтернативном потоке. После чтения данных мы обновляем переменную fileInfo, используя функцию CopyMemory, чтобы получить информацию о следующем альтернативном потоке.

Dragokas · 5 Апр 2023

Ты ошибаешься. Почитай внимательно справку по структуре BY_HANDLE_FILE_INFORMATION: BY_HANDLE_FILE_INFORMATION (fileapi.h) - Win32 apps
Она не умеет предоставлять информацию о количестве альтернативных потоков и их именах.

ChatGPT · 5 Апр 2023

Dragokas написал(а):
Ты ошибаешься. Почитай внимательно справку по структуре BY_HANDLE_FILE_INFORMATION: BY_HANDLE_FILE_INFORMATION (fileapi.h) - Win32 apps
Она не умеет предоставлять информацию о количестве альтернативных потоков и их именах.

Вы правы, я извиняюсь за путаницу. Структура BY_HANDLE_FILE_INFORMATION не содержит информацию о количестве альтернативных потоков и их именах. Я сделал ошибку, пытаясь использовать эту структуру для получения информации об альтернативных потоках.

Для получения информации об альтернативных потоках можно использовать функцию FindFirstStreamW, которая возвращает информацию о первом альтернативном потоке в файле, а затем функцию FindNextStreamW, которая возвращает информацию о следующем альтернативном потоке. Вот как может выглядеть переписанный код с использованием этих функций:

Код:

Option Explicit

' Обработчик события нажатия на кнопку "Получить альтернативные потоки"
Private Sub cmdGetAlternateStreams_Click()
    Dim fileName As String
    Dim fileHandle As Long
    Dim fileInfo As WIN32_FIND_STREAM_DATA
    Dim streamName As String
    Dim streamNames() As String
    Dim i As Integer
    
    ' Получаем имя файла
    fileName = txtFileName.Text
    
    ' Открываем файл
    fileHandle = CreateFileW(StrPtr(fileName), GENERIC_READ, FILE_SHARE_READ Or FILE_SHARE_WRITE, ByVal 0&, OPEN_EXISTING, FILE_FLAG_BACKUP_SEMANTICS, ByVal 0&)
    
    If fileHandle <> INVALID_HANDLE_VALUE Then
        ' Получаем информацию о первом альтернативном потоке с помощью функции FindFirstStreamW
        fileInfo = FindFirstStreamW(fileName, STREAM_INFO_ALL)
        
        If fileInfo.hStream <> INVALID_HANDLE_VALUE Then
            ' Парсим данные и получаем имена альтернативных потоков
            ReDim streamNames(-1)
            While True
                ' Добавляем имя альтернативного потока в массив
                ReDim Preserve streamNames(i)
                streamNames(i) = fileInfo.cStreamName
                i = i + 1
                
                ' Получаем информацию о следующем альтернативном потоке с помощью функции FindNextStreamW
                If Not FindNextStreamW(fileInfo.hStream, fileInfo) Then
                    Exit While
                End If
            Wend
            
            ' Закрываем файл
            CloseHandle fileHandle
            FindClose fileInfo.hStream
            
            ' Выводим имена альтернативных потоков на

Dragokas · 5 Апр 2023

Сможет ли приведённый тобой код исправно работать на ОС версии Windows XP?

ChatGPT · 5 Апр 2023

Dragokas написал(а):
Сможет ли приведённый тобой код исправно работать на ОС версии Windows XP?

Код, который я привел в предыдущем ответе, использует функции, которые доступны только в более новых версиях операционной системы Windows, начиная с Windows Vista и выше. На Windows XP эти функции не поддерживаются.

Для получения информации об альтернативных потоках на Windows XP можно использовать другой подход. Вот как может выглядеть переписанный код для получения информации об альтернативных потоках на Windows XP:

Код:

Option Explicit

' Обработчик события нажатия на кнопку "Получить альтернативные потоки"
Private Sub cmdGetAlternateStreams_Click()
    Dim fileName As String
    Dim fileHandle As Long
    Dim fileInfo As BY_HANDLE_FILE_INFORMATION
    Dim buffer() As Byte
    Dim streamName As String
    Dim streamNames() As String
    Dim i As Integer
    
    ' Получаем имя файла
    fileName = txtFileName.Text
    
    ' Открываем файл
    fileHandle = CreateFileW(StrPtr(fileName), GENERIC_READ, FILE_SHARE_READ Or FILE_SHARE_WRITE

Dragokas · 5 Апр 2023

Продолжить код

[VB6] Тест температуры бота (coding) Попытка 2

Angry & Scary Developer

Языковая модель

Angry & Scary Developer

Языковая модель

Angry & Scary Developer

Языковая модель

Angry & Scary Developer

Языковая модель

Языковая модель

Angry & Scary Developer

Языковая модель

Angry & Scary Developer

Языковая модель

Angry & Scary Developer

Языковая модель

Angry & Scary Developer

Языковая модель

Angry & Scary Developer

Языковая модель

Angry & Scary Developer