| Вопрос: Новое сообщение без темы | Добавлено: 29.07.02 19:13 |
Автор вопроса:  ANARCHY | Web-сайт: www.ishine.h1.ru
|
Я тебе исходник на инглише по мылу вышлю (он проверен: вирусяк нет, но если хочеш - проверь!). 
|
| Ответы | Всего ответов: 8 |
|
Номер ответа: 1 Автор ответа:  Gork Вопросов: 2 Ответов: 8 |
Web-сайт: Профиль | | #1 | Добавлено: 28.07.02 12:08 |
|
Posmotri na svoj mil'nik ! |
||
|
Номер ответа: 2 Автор ответа: paul_sn Вопросов: 16 Ответов: 164 |
Web-сайт: Профиль | | #2 | Добавлено: 28.07.02 14:50 |
| Могу прислать пример. | ||
|
Номер ответа: 3 Автор ответа: ЯнICQ: 816105 Вопросов: 38 Ответов: 198 |
Web-сайт: Профиль | | #3 | Добавлено: 28.07.02 21:57 |
|
В VB существуют функции: SetSetting - записать данные |
||
|
Номер ответа: 4 Автор ответа: ANARCHY Вопросов: 16 Ответов: 21 |
Web-сайт: Профиль | | #4 | Добавлено: 29.07.02 19:13 |
|
Я тебе исходник на инглише по мылу вышлю (он проверен: вирусяк нет, но если хочеш - проверь!).
|
||
|
Номер ответа: 5 Автор ответа:  HitmanВопросов: 0 Ответов: 3 |
Профиль | | #5 | Добавлено: 01.08.02 11:16 |
|
Если надо могу на твой e-mail выслать DLL. Тебе останится только подклбчить ёё к программе Dim x as new Hitman public sub command_click() x.read Hkey_local_machine //и так дале, пиши если надо на hitman74@mail.ru end sub |
||
|
Номер ответа: 6 Автор ответа: BarsikРазработчик Offline Client ICQ: 343368641 Вопросов: 17 Ответов: 686 |
Web-сайт: Профиль | | #6 | Добавлено: 01.06.04 16:34 |
|
Покопайся на сайте... там есть эта тема |
||
|
Номер ответа: 7 Автор ответа: HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #7 | Добавлено: 04.06.04 01:25 |
| во! давно мучался с чтением значения HEX, вот попробуйте всякими Хитманами и другими примерами прочитать HEX значения и чтобы получилось, что то вроде "HH FF 00 CC CF..." (это я так, отфонаря). Вообщем многие примеры вообще это неумеют! А те которые умеют, если сравнить их с экспортированными данными из RegEdit'a то выходит чаще всего несоответствие. А мне тогда надо было ещё это значение (HEX) так в файл записать, как это делает RegEdit, ну короче, что один в один было. Мучался, мучался... и написал модуль который для получения значений из реестра делает с помошью этого же RegEdit'a, правдо он тупо в файл сохраняят, но доделать чтоб он значения в переменный пихал, нефиг делать, прочитать файл - много ума ненадо. Такой способ хоть и довольно медленный, за то полученный результат будет с 100% точностью. | ||
|
Номер ответа: 8 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #8 | Добавлено: 04.06.04 01:33 |
|
Кому интерестно, вот: это всё в модуле...
Public Sub ExprortReg(Path$, File$) WinTemp$ = "C:\" If Right$(Path$, 1) = "\" Then Path$ = Left$(Path$, Len(Path$) - 1) run$ = WinPath$ & "Regedit.exe /e " & WinTemp$ & Spliting(File$, "\"  & " " & Path$
Shell run$ n = FreeFile On Error Resume Next Open WinTemp$ & Spliting(File$, "\" For Input As #n: Size = LOF(n): Close #n
If Size < 5 Then begin: If VsegoSlesh = 0 Then For i% = 1 To Len(Path$) If Mid(Path$, i%, 1) = "\" Then VsegoSlesh = VsegoSlesh + 1 Next i% End If VsegoSlesh = VsegoSlesh - 1 SubPath$ = Znak_to_Left(Path$, "\", Val(VsegoSlesh)) If Right$(SubPath$, 1) = "\" Then SubPath$ = Left$(SubPath$, Len(SubPath$) - 1) run$ = WinPath$ & "Regedit.exe /e " & WinTemp$ & Spliting(File$, "\" & " " & SubPath$
Shell run$ Close #n Open WinTemp$ & Spliting(File$, "\" For Input As #n: Size = LOF(n): Close #n
If Size < 5 Then GoTo begin: Path$ = "[" & Path$ Close #n Open WinTemp$ & Spliting(File$, "\" For Input As #n
Do While Not EOF(n) Line Input #n, Stroka$ If Left$(Stroka$, Len(Path$)) = Path$ Or Left$(strPast, Len(Path$)) = Path$ Then If Left(Stroka$, 1) = "[" Then strPast = Stroka$ r$ = r$ & Stroka$ & vbNewLine End If Loop Close #n Kill WinTemp$ & Spliting(File$, "\"
Open File$ For Output As #n Print #n, "REGEDIT 4" Print #n, r$ Close #n Else FileCopy WinTemp$ & Spliting(File$, "\" , File$
Kill WinTemp$ & Spliting(File$, "\"
End If End Sub Public Function Znak_to_Left(Stroka$, Znak$, numSlesh As Byte) For i% = 1 To Len(Stroka$) If Mid(Stroka$, i%, 1) = Znak$ Then s = s + 1 If s = numSlesh Then Znak_to_Left = Left$(Stroka$, i% - 1) Exit For End If Next i% End Function Private Function Spliting(sFullPath As String, point As String) If sFullPath = "" Then Exit Function Dim str1() As String str1 = Split(sFullPath, point) Spliting = str1(UBound(str1)) End Function --------------------------------- Ну а вызывать, так: ExprortReg "HKEY_CURRENT_USER\Software", App.Path & "\1.reg" --------------------------------- P/S! Некоторые ключи регэдит нехочет экспортировать, ну под умного канает, мол если там какие-то вроде пароли, то он не экспортирует их, но если взять экспортировать на одну ветвь выше, чтоб та ветвь с паролями входила в состав той что мы экспортируем, то регедит вроде и ту с паролями тоже экспортирует и в файл пишет. Ну короче тут в модуле я это старался реализовать, вроде получилось, но это на 99%... 
|
||
Страница: 1 |