VPF::Добавить App в автозагрузку - Форум программистов

Logan

Дата 20.11.2006, 12:56 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 20.11.2006

Репутация: нет
Всего: нет

Мне нужен код который скопирует мою App в windows/system32 а потом добавит её в автозагрузку с той папки в которую скопирует.

Код


Option Explicit

Private Const HKEY_LOCAL_MACHINE As Long = &H80000002
Private Const KEY_ALL_ACCESS As Long = &H3F
Private Const REG_SZ As Long = 1

Private Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, ByRef phkResult As Long) As Long
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, ByRef lpData As Any, ByVal cbData As Long) As Long
Private Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String) As Long

'Добавить в автозагрузку
Public Sub AddToStartup(ByVal strKey As String, ByVal strValue As String)
    Dim lResult As Long
    Call RegOpenKeyEx(HKEY_LOCAL_MACHINE, "Software\Microsoft\Windows\CurrentVersion\Run", _
        0, KEY_ALL_ACCESS, lResult)
    Call RegSetValueEx(lResult, strKey, 0, REG_SZ, ByVal strValue, Len(strValue))
    Call RegCloseKey(lResult)
End Sub

'Убрать из автозагрузки
Public Sub DeleteFromStartup(ByVal strKey As String)
    Dim lResult As Long
    Call RegOpenKeyEx(HKEY_LOCAL_MACHINE, _
        "Software\Microsoft\Windows\CurrentVersion\Run", 0, KEY_ALL_ACCESS, lResult)
    Call RegDeleteValue(lResult, strKey)
    Call RegCloseKey(lResult)
End Sub

Такой например толька добавит в реестр ключь на автозагрузку в текущей папке например C:\docs\blablabla.exe а надо чтобы добавил ключь C:\windows\system32\blablabla.exe

BorisVorontsov

Дата 20.11.2006, 13:27 (ссылка)

(нет голосов)

Загрузка ...

Thinker

Профиль
Группа: Комодератор
Сообщений: 714
Регистрация: 3.11.2005
Где: Молдавия, г. Киши нёв

Репутация: 5
Всего: 10

Предупреждаю: автор уже отметился в моем разделе на Исходниках, по его же признанию - он пишет "кейлогер".

--------------------

[code=cpp]
const char *out = "|*0>78-,+<|"; size_t cc = char_traits<char>::length(out);
for (size_t i=0;i<cc;i++){cout<<static_cast<char>((out[i]^89));}cout<<endl;
[/code]

Logan

Дата 20.11.2006, 13:52 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 20.11.2006

Репутация: нет
Всего: нет

Вобщето не пишу а использую с ваших же соурсов

~FoX~

Дата 28.11.2006, 09:44 (ссылка)

(нет голосов)

Загрузка ...

НЕ рыжий!!!

Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 10
Всего: 68

Logan, Ты покажи как ты вызываешь функцию добавления в реестр. Потому как она тебе любой путь который ты ей скажешь и добавит.

--------------------

…множественность никогда не следует полагать без необходимости…

Akina

Дата 28.11.2006, 14:28 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454

Цитата(Logan @ 20.11.2006, 13:56

)

Программа делает то что ты просишь, а не то что ты хочешь. Вот исходя из этого и вноси коррективы.

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »