Вписать текст в блокнот

@LabAvast4.8 · Регистрация: 12.03.2010

Студворк — интернет-сервис помощи студентам

Добрый день,кто-нибудь знает, как с помощью VBS в уже созданный блокнот вписать какой-нибудь текст или данные в определенную стоку и столбец. Например, в блокноте уже есть текст и нужно вписать свои данные после какого-то слова. Что-то типа

Visual Basic
1
2
3
4
Set fso = CreateObject("Scripting.FileSystemObject") 
Set Text = fso.OpenTextFile ("c:\1.txt")
Text.WriteLines(6)  column(45) "...текст..."
Text.Close

и еще подскажите код для придания файлу и папке атрибут скрытый. Заранее благодарен!

@figaro · 13.03.2010, 01:11

Сообщение от LabAvast4.8

и еще подскажите код для придания файлу и папке атрибут скрытый. Заранее благодарен!

Visual Basic
1
2
set fso = CreateObject("Scripting.FileSystemObject")
fso.getFile("c:\1.txt").attributes = 18

Добавлено через 1 час 9 минут

Сообщение от LabAvast4.8

Например, в блокноте уже есть текст и нужно вписать свои данные после какого-то слова.

Скорее всего так просто отделаться как с установкой атрибутов файлу тебе не удасться

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
sub editTextFile(filename, row, column, text)
 dim i, file_containts(): redim file_containts(0)
  set textfile = fso.openTextFile(filename)
  i = 0
  do while textfile.atEndOfStream <> true
    redim Preserve file_containts(ubound(file_containts) + 1)
    file_containts(i) = textfile.readLine
    i = i + 1
  loop
  if len(text) > 0 then
    file_containts(row - 1) = left(file_containts(row - 1), column) & text & mid(file_containts(row - 1), column + 1)
  end if
  textfile.Close
  set textfile = fso.openTextFile(filename, 2)
  for each fc in file_containts
    textfile.writeLine(fc)
  next
  textfile.close
end sub
 
set fso = CreateObject("Scripting.FileSystemObject")
call editTextFile("c:\1.txt", 1, 10, "Текст")

Как-то вот так. Я думаю разобраться будет не сложно, так как вся основная работа внесена в оператор editTextFile

@LabAvast4.8 · 14.03.2010, 17:53 **[ТС]**

Большое спасибо, разобрался все работает.

Как я понял в коде для скрытия файла 18 это команда чтобы скрыть файл, а есть другие команды, например чтобы сделать файл только для чтения или наоборот скрытый файл сделать видимым?

@figaro · 14.03.2010, 17:58

Сообщение от LabAvast4.8

Большое спасибо, разобрался все работает.

Как я понял в коде для скрытия файла 18 это команда чтобы скрыть файл, а есть другие команды, например чтобы сделать файл только для чтения или наоборот скрытый файл сделать видимым?

Это свойство объекта fso.
Подробно о всех атрибутах передающимся этим свойством, на английском правда, написано в MSDN:
http://msdn.microsoft.com/en-u... S.60).aspx

@LabAvast4.8 · 15.03.2010, 13:35 **[ТС]**

Спасибо! С атрибутами разобрался. Я вижу, ты VB скриптах не плохо разбираешься, думаю, в следующем вопросе у тебя не возникнет трудностей, можешь подсказать, как в реестре создать двоичный параметр(REG_BINARY), и есть ли возможность переименования ключей в реестре? Все в VBS коде.
Буду очень благодарен!

@figaro · 15.03.2010, 13:57

Запросто!

Visual Basic
1
2
3
4
set wsh_shell = CreateObject("WScript.Shell")
key_name = "hkfjfljdljndfbjnfdjfbkdfnjb"
key_val = "462547538268478"
wsh_shell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\RunMRU\" & key_name, key_val, "REG_BINARY"

методы и свойства объекта WshShell, который возвратила функция CreateObject("WScript.Shell") доступны по адресу: http://msdn.microsoft.com/en-u... S.85).aspx

Вот тебе список методов при работе с реестром:
RegDelete - метод удаляет ключ реестра
RegWrite - метод добавляет или модифицирует ключ реестра
RegRead - метод возвращает заданное значение ключа реестра

@LabAvast4.8 · 15.03.2010, 15:21 **[ТС]**

figaro что-то я туплю, не могу разобраться с твоим кодом, выходит ошибка несоответствие типа, можешь пояснить поподробнее, вот что мне нужно конкретно:
в реестре по адресу: HKEY_LOCAL_MACHINE\SOFTWARE\EverStrike\L F30\ надо переименовать ключ Password (93,17,a5,c9,09,86,c7,bf,48,8c,ca,eb,2b, 0e,26,bd REG_BINARY) в Password2
затем создать новый REG_BINARY с именем Password и значением (de,4d,61,86,36,f1,77,22,71,26,8c,cb,00, 10,ea,e7)

далее уже мой код, не относящийся к реестру

и в конце нужно удалить ключ Password
затем переименовать ключ Password2 в Password.

Надеюсь, объяснил понятно.

@figaro · 16.03.2010, 00:37

Такое большое бинарное значение ключа с помощью метода RegWrite записать не получится... Там нужно подключать WMI класы... Извини, но сейчас у меня полно работы. Я домой прискакаю и отпишу как делать надо. ОК?

Добавлено через 7 часов 5 минут

Сообщение от LabAvast4.8

в реестре по адресу: HKEY_LOCAL_MACHINE\SOFTWARE\EverStrike\L F30\ надо переименовать ключ Password (93,17,a5,c9,09,86,c7,bf,48,8c,ca,eb,2b, 0e,26,bd REG_BINARY) в Password2
затем создать новый REG_BINARY с именем Password и значением (de,4d,61,86,36,f1,77,22,71,26,8c,cb,00, 10,ea,e7)
далее уже мой код, не относящийся к реестру
и в конце нужно удалить ключ Password
затем переименовать ключ Password2 в Password.
Надеюсь, объяснил понятно.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
const HKLM = &H80000002
const REG_KEY = "SOFTWARE\EverStrike\LF30\"
set registry = getObject("winmgmts:\\.\root\default:StdRegProv")
' Переименование (копирование Password в Password2)
registry.getBinaryValue HKLM, REG_KEY, "password", arr
registry.setBinaryValue HKLM, REG_KEY, "password2", arr
' создать новый REG_BINARY с именем Password
registry.setBinaryValue HKLM, REG_KEY, "password", array(&hde, &h4d, &h61, &h86, &h36, &hf1, &h77, &h22, &h71, &h26, &h8c, &hcb, &h00, &h10, &hea, &he7)
msgbox("ОПА!")
' нужно удалить ключ Password затем переименовать ключ Password2 в Password (Здесь я сделал все наоборот) 
registry.getBinaryValue HKLM, REG_KEY, "password2", arr
registry.setBinaryValue HKLM, REG_KEY, "password", arr
registry.deleteValue HKLM, REG_KEY, "password2"

Вместо msgbox("ОПА!") пишеш свой код. На всякий случай экспортни этот раздел реестра.

@LabAvast4.8 · 16.03.2010, 13:09 **[ТС]**

Огромное спасибо за объяснения! Все работает, как я понял нет такого кода который переименовывает ключ, только копирует с другим именем, ну это уже фигня главное разобрался, что к чему, и наконец-то собрал то, что давно хотел, еще раз огромное спасибо!

11.08.2010, 03:06

Доброго времени.

слепил по подобию, но не компилится - "ошибка компиляции microsoft VBscript предполагается наличие ')' , код:800A03EE, ругается сюда - "array(&3c", то есть после &3с ожидается скобка.
Подскажите, пожалуйста, в чем затык?

Visual Basic
1
2
3
4
5
6
7
const HKCU = &H80000001
const REG_KEY = "SOFTWARE\..\"
set registry = getObject("winmgmts:\\.\root\default:StdRegProv")
 
' создать новый REG_BINARY с именем "DefaultConnectionSettings"
registry.setBinaryValue HKCU, REG_KEY, "DefaultConnectionSettings", array(&3c, &00, &00, &00, &08, &00, &00, &00, &05, &00, &00, &00, &11, &00, &00, &00, &72, &75, &6d, &6f, &73, &65, &6d, &69, &73, &61, &30, &31, &3a, &38, &30, &38, &30, &00, &00, &00, &00, &22, &00, &00, &00, &68, &74, &74, &70, &3a, &2f, &2f, &72, &75, &6d, &6f, &73, &65, &6d, &76, &6d, &30, &33, &2e, &65, &6d, &65, &61, &2e, &61, &64, &73, &69, &6e, &74, &2e, &62, &69, &7a, &00, &00, &00, &00, &00, &00, &00, &00, &50, &2b, &ba, &0e, &d2, &f0, &c9, &01, &01, &00, &00, &00, &0a, &6f, &10, &87, &00, &00, &00, &00, &00, &00, &00, &00)
'msgbox("ОПА!")

Добавлено через 1 час 46 минут
агась, допер! если нужно передать шестнадцатеричное значение, то перед ним ставятся символы (&H)
ps: ушел дальше курить мануалы

@FreeZ444 · 22.10.2010, 22:31

Люди подскажите пожалуйста через что можно открыть прогу чтобы вписать в нее что нибудь?

@andik · 22.10.2010, 22:44

FreeZ444, я правильно понимаю, что ты хочешь скрипт отредактировать? Тогда через обычный блокнот =)
Кстати, очень удобно использовать notepad++ (продвинутый блокнот) - там есть подсветка синтаксиса для разных языков программирования.

@FreeZ444 · 22.10.2010, 23:02

Короче есть одна прога,ее один чел сам написал,там нужно ввести ключ,речь идет о приложении вконтакте "вмогиле" этот чел сам написал программу-бот,и продает ее сейчас,я хочу ее взломать,там нужно вписать Auth key,у меня есть этот ключ,у каждого человека он свой,и нужно этот ключ как то вписать в программу,т.е привязать прогу к компу и своему аккаунту вконтакте,но через что открыть и куда вписывать я не знаю,если кто шарит помогите

@tanzor69 · 25.06.2011, 10:53

figaro,или кто еще,подскажите,а как сделать запись в файл,не заменяя того что там уже записано. Что то типо функции еоf есть?

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

@LabAvast4.8 0 / 0 / 0 Регистрация: 12.03.2010 Сообщений: 34
	14.03.2010, 17:53 [ТС]
	Большое спасибо, разобрался все работает. Как я понял в коде для скрытия файла 18 это команда чтобы скрыть файл, а есть другие команды, например чтобы сделать файл только для чтения или наоборот скрытый файл сделать видимым? 0

@LabAvast4.8 0 / 0 / 0 Регистрация: 12.03.2010 Сообщений: 34
	15.03.2010, 13:35 [ТС]
	Спасибо! С атрибутами разобрался. Я вижу, ты VB скриптах не плохо разбираешься, думаю, в следующем вопросе у тебя не возникнет трудностей, можешь подсказать, как в реестре создать двоичный параметр(REG_BINARY), и есть ли возможность переименования ключей в реестре? Все в VBS коде. Буду очень благодарен! 0

@LabAvast4.8 0 / 0 / 0 Регистрация: 12.03.2010 Сообщений: 34
	15.03.2010, 15:21 [ТС]
	figaro что-то я туплю, не могу разобраться с твоим кодом, выходит ошибка несоответствие типа, можешь пояснить поподробнее, вот что мне нужно конкретно: в реестре по адресу: HKEY_LOCAL_MACHINE\SOFTWARE\EverStrike\L F30\ надо переименовать ключ Password (93,17,a5,c9,09,86,c7,bf,48,8c,ca,eb,2b, 0e,26,bd REG_BINARY) в Password2 затем создать новый REG_BINARY с именем Password и значением (de,4d,61,86,36,f1,77,22,71,26,8c,cb,00, 10,ea,e7) далее уже мой код, не относящийся к реестру и в конце нужно удалить ключ Password затем переименовать ключ Password2 в Password. Надеюсь, объяснил понятно. 0

@LabAvast4.8 0 / 0 / 0 Регистрация: 12.03.2010 Сообщений: 34
	16.03.2010, 13:09 [ТС]
	Огромное спасибо за объяснения! Все работает, как я понял нет такого кода который переименовывает ключ, только копирует с другим именем, ну это уже фигня главное разобрался, что к чему, и наконец-то собрал то, что давно хотел, еще раз огромное спасибо! 0

@FreeZ444 0 / 0 / 0 Регистрация: 22.10.2010 Сообщений: 4
	22.10.2010, 22:31
	Люди подскажите пожалуйста через что можно открыть прогу чтобы вписать в нее что нибудь? 0

@andik 14 / 14 / 7 Регистрация: 17.10.2010 Сообщений: 40
	22.10.2010, 22:44
	FreeZ444, я правильно понимаю, что ты хочешь скрипт отредактировать? Тогда через обычный блокнот =) Кстати, очень удобно использовать notepad++ (продвинутый блокнот) - там есть подсветка синтаксиса для разных языков программирования. 0

@FreeZ444 0 / 0 / 0 Регистрация: 22.10.2010 Сообщений: 4
	22.10.2010, 23:02
	Короче есть одна прога,ее один чел сам написал,там нужно ввести ключ,речь идет о приложении вконтакте "вмогиле" этот чел сам написал программу-бот,и продает ее сейчас,я хочу ее взломать,там нужно вписать Auth key,у меня есть этот ключ,у каждого человека он свой,и нужно этот ключ как то вписать в программу,т.е привязать прогу к компу и своему аккаунту вконтакте,но через что открыть и куда вписывать я не знаю,если кто шарит помогите 0

@tanzor69 16 / 16 / 0 Регистрация: 19.03.2011 Сообщений: 137
	25.06.2011, 10:53
	figaro,или кто еще,подскажите,а как сделать запись в файл,не заменяя того что там уже записано. Что то типо функции еоf есть? 0