Ответы Mail
Программирование
Android
C/C++
C#
iOS
Java
JavaScript
jQuery
SQL
Perl
PHP
Python
Веб-дизайн
Верстка, CSS, HTML, SVG
Системное администрирование
Другие языки и технологии
Лидеры категории
Лена-пена
М.И.
Y.Nine
•••
Искусственный Интеллект
Искусственный Интеллект
Искусственный Интеллект
Сценарий на VBScript
♡$ⴎG@r₱u₷sყ♡
(207223),
на голосовании
9 месяцев назад
Дополнен 10 месяцев назад
Модер удали мой вопрос
Чуваки накидайте репортов
Чуваки накидайте репортов
Голосование за лучший ответ
a1987zz
(13714)
10 месяцев назад
VBScript с winapi не работает, нужна внешняя библиотека типо DynamicWrapperX там и можно писать патч программы.
♡$ⴎG@r₱u₷sყ♡Искусственный Интеллект (207223)
10 месяцев назад
Так а причем здесь WinAPI? Это спокойно без WinAPI сделать можно.
a1987zz
Мудрец
(13714)
В VBScript без winapi? И как?
Артём Карпов
(266)
9 месяцев назад
Randomize
Const ForReading = 1
Const ForWriting = 2
Dim objFS, objFile, fileSize, randomByte
Set objFS = CreateObject("Scripting.FileSystemObject")
Set objFile = objFS.OpenTextFile("путь_к_вашему_файлу", ForReading, False)
fileSize = objFile.Size
objFile.Close
Set objFile = objFS.OpenTextFile("путь_к_вашему_файлу", ForWriting, True)
If fileSize > 0 Then
Randomize
randomByte = Chr(Int((254 * Rnd) + 1)) ' Генерация случайного значения для последнего байта (от 01 до FE)
objFile.Write objFile.ReadAll ' Записываем все, кроме последнего байта
objFile.Write randomByte ' Записываем случайное значение для последнего байта
End If
objFile.Close
Set objFS = Nothing
Set objFile = Nothing
Прежде чем запускать скрипт, замените "путь_к_вашему_файлу" на путь к вашему файлу.
Const ForReading = 1
Const ForWriting = 2
Dim objFS, objFile, fileSize, randomByte
Set objFS = CreateObject("Scripting.FileSystemObject")
Set objFile = objFS.OpenTextFile("путь_к_вашему_файлу", ForReading, False)
fileSize = objFile.Size
objFile.Close
Set objFile = objFS.OpenTextFile("путь_к_вашему_файлу", ForWriting, True)
If fileSize > 0 Then
Randomize
randomByte = Chr(Int((254 * Rnd) + 1)) ' Генерация случайного значения для последнего байта (от 01 до FE)
objFile.Write objFile.ReadAll ' Записываем все, кроме последнего байта
objFile.Write randomByte ' Записываем случайное значение для последнего байта
End If
objFile.Close
Set objFS = Nothing
Set objFile = Nothing
Прежде чем запускать скрипт, замените "путь_к_вашему_файлу" на путь к вашему файлу.
♡$ⴎG@r₱u₷sყ♡Искусственный Интеллект (207223)
9 месяцев назад
Я просил без ChatGPT
И как следовало ожидать, не работает скрипт вообще.
Строка: 9
Символ: 1
Ошибка: Объект не поддерживает это свойство или метод: 'Size'
Код: 800A01B6
И как следовало ожидать, не работает скрипт вообще.
Строка: 9
Символ: 1
Ошибка: Объект не поддерживает это свойство или метод: 'Size'
Код: 800A01B6
Артём КарповЗнаток (266)
9 месяцев назад
Randomize
Const ForReading = 1
Const ForWriting = 2
Dim objFS, objFile, file, fileSize, randomByte
Set objFS = CreateObject("Scripting.FileSystemObject")
Set file = objFS.GetFile("путь_к_вашему_файлу")
fileSize = file.Size
Set objFile = objFS.OpenTextFile(file.Path, ForReading, False)
objFile.Close
Set objFile = objFS.OpenTextFile(file.Path, ForWriting, True)
If fileSize > 0 Then
Randomize
randomByte = Chr(Int((254 * Rnd) + 1)) ' Генерация случайного значения для последнего байта (от 01 до FE)
objFile.Write objFile.ReadAll ' Записываем все, кроме последнего байта
objFile.Write randomByte ' Записываем случайное значение для последнего байта
End If
objFile.Close
Set objFS = Nothing
Set objFile = Nothing
Const ForReading = 1
Const ForWriting = 2
Dim objFS, objFile, file, fileSize, randomByte
Set objFS = CreateObject("Scripting.FileSystemObject")
Set file = objFS.GetFile("путь_к_вашему_файлу")
fileSize = file.Size
Set objFile = objFS.OpenTextFile(file.Path, ForReading, False)
objFile.Close
Set objFile = objFS.OpenTextFile(file.Path, ForWriting, True)
If fileSize > 0 Then
Randomize
randomByte = Chr(Int((254 * Rnd) + 1)) ' Генерация случайного значения для последнего байта (от 01 до FE)
objFile.Write objFile.ReadAll ' Записываем все, кроме последнего байта
objFile.Write randomByte ' Записываем случайное значение для последнего байта
End If
objFile.Close
Set objFS = Nothing
Set objFile = Nothing
Артём Карпов
Знаток
(266)
Артём Карпов, Убедитесь, что вы заменили "путь_к_вашему_файлу" на фактический путь к файлу, с которым вы работаете. Этот исправленный скрипт должен работать без ошибки, указанной вами. Если у вас возникнут дополнительные вопросы или проблемы, не стесняйтесь обращаться за помощью.
Похожие вопросы
Также желательна оптимизированная реализация скрипта для больших файлов (чтобы скрипт мог обрабатывать файлы весом несколько мегабайт и при этом при выполнении не тратить на это много времени и не занимать много места в RAM).
Ответы от чатагпт не интересуют, он все равно не справится с этим, так что ответы с ним или просто с изначально нерабочим кодом буду скрывать)0
Нормальный и человеческий ответ с рабочим кодом, который будет выполнять нужную мне основную логику, выберу лучшим.