VBNet - Форум - Помогите с VB

Вопрос: Помогите с VB Добавлено: 02.04.03 12:28

Автор вопроса: Sergey.

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

Ответить

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

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

E-Man

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

Профиль | | #1

Добавлено: 02.04.03 12:43

Завтра попробую выслать на е-мэйл. Если инет будет.

Ответить

Номер ответа: 2 Автор ответа: Spirit Вопросов: 1 Ответов: 4	Профиль \| \| #2	Добавлено: 02.04.03 12:45
	Ты что, очередной вирус пишешь? Ответить

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

ICQ: 346632205

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

Профиль | | #3

Добавлено: 02.04.03 12:55

Вот добавление и удаление из автозагрузки:

Private Sub Command1_Click() 'add to registry
Set Reg = CreateObject("WScript.Shell")
Reg.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\" & App.EXEName & ".exe", App.Path & App.EXEName & ".exe"
End Sub

Private Sub Command2_Click() 'delete from registry
Set Reg = CreateObject("WScript.Shell")
Reg.RegDelete "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\" & App.EXEName & ".exe"
End Sub

Ответить

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

E-Man

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

Профиль | | #4

Добавлено: 02.04.03 13:04

А через API то все же повеселее будет...

Private Const HKEY_CURRENT_USER = &H80000001

Private Const REG_SZ = 1

Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long

Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult 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 RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData 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 SaveString(hKey As Long, strPath As String, strValue As String, strData As String)

Dim Ret

RegCreateKey hKey, strPath, Ret

RegSetValueEx Ret, strValue, 0, REG_SZ, ByVal strData, Len(strData)

RegCloseKey Ret

End Sub

Private Sub Form_Load()

Dim NewPath As String

NewPath = Environ("windir") & "\hello.exe"

FileCopy App.Path & "\" & App.EXEName & ".exe", NewPath

SaveString HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Run\", "Proga", NewPath

End Sub