VBNet - Форум - Скрытность.

Вопрос: Скрытность. Добавлено: 04.01.03 12:03

Автор вопроса: AlexLam

Как мне добавить прогу в автозагрузку, но не в пуск\программы\автозагрузка.
Ответить

Ответы Всего ответов: 3

Номер ответа: 1
Автор ответа:

-=Gork=-

ICQ: 9993198

Вопросов: 8
Ответов: 229

Web-сайт: olegm.wz.cz/
Профиль | | #1

Добавлено: 04.01.03 12:31

Знаешь как работать с Регистри? Вот и запихай свой вирь в какой-нить ключ для запуска - HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run. Например.

Ответить

Номер ответа: 2 Автор ответа: AlexLam Вопросов: 3 Ответов: 5	Профиль \| \| #2	Добавлено: 04.01.03 14:51
	Вот в чем дело, я так пробовал, но когда наченаешь компилировать антивирусник ругается. Ответить

Номер ответа: 3
Автор ответа:

AlexLam

Вопросов: 3
Ответов: 5

Профиль | | #3

Добавлено: 04.01.03 14:53

Вот как я ето делал.

Private Const HKEY_LOCAL_MACHINE = &H80000002
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Private Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String) As Long
Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult 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, lpData As Any, ByVal cbData As Long) As Long
Private Sub AddToStartup(ByVal sDesc As String, ByVal sFile As String)
Dim lRegKey As Long
RegOpenKey HKEY_LOCAL_MACHINE, "Software\Microsoft\Windows\CurrentVersion\Run", lRegKey
If lRegKey Then
RegSetValueEx lRegKey, sDesc, 0, 1, ByVal sFile, Len(sApp)
RegCloseKey lRegKey
End If
End Sub
Private Function DeleteAtStartup(ByVal strValue As String)
Dim keyhand As Long
r = RegOpenKey(HKEY_LOCAL_MACHINE, "Software\Microsoft\Windows\CurrentVersion\Run", keyhand)
r = RegDeleteValue(keyhand, strValue)
r = RegCloseKey(keyhand)
End Function

Private Sub Command1_Click()
AddToStartup "Моя программа", "C:\soft\MyProg.exe"
End Sub
и при компиляции антивирусник ругается

Ответить

Страница: 1 |