کسی میدونه چطور تو ویژوال میشه تو رجستری دستکاری کرد؟؟؟؟؟

[xman_dj]

1-کسی میدونه که چطور میشه تو رجستری در vb دستکاری کرد

برای مثال چطور میشه برنامه رو تو start up در مسیر
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\Curr entVersion\Run
انداخت که تو تمام یوزر ها قرار بگیره

2-کسی با کد های ویروس newfolder.exe آشنایی داره

مثلا چطور تو قسمت هایی که کاربر میره کپی میکنه خود برنامه رو

و یا اینکه کدی هست که بشه برنامه رو تو یک قسمتی کپی کرد.................

لطفا بزرگی کنین کد های مربوطه رو بنویسید چون تازه کاریم..................


لطفا جواب بدین خیلی لازم دارم.......................................... ...............

[__siavash__]

خوب این که کد قرار دادن برنامه در استارت آپ
این تابع رو هر جا که فراخوانی کنی برنامه در استارت آپ قرار میگیره !
اینا رو تو یه ماژول کپی کن


Public Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Public 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 ' Note that if you declare the lpData parameter as String, you must pass it By Value.
Public Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Public Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long

Public Const REG_SZ = 1 ' Unicode nul terminated String
Public Const HKEY_LOCAL_MACHINE = &H80000002



Public Sub StartUp()
Dim AppPath As String
strAppName = App.EXEName
AppPath = App.Path & "\" & App.EXEName & ".exe"
Dim keyhwnd As Long
Dim r As Long
r = RegCreateKey(HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows\CurrentVersion\Run", keyhwnd)
r = RegSetValueEx(keyhwnd, strAppName, 0, REG_SZ, ByVal AppPath, Len(AppPath))
r = RegCloseKey(keyhwnd)
End Sub


برای کپی کردن برنامه در دایرکتوری مورد نظر به کمک این دستور ها میتونی این کارو انجام بدی


App.Path
App.EXEName
FileCopy
Replace

به این صورت که اول مسیری که برنامه از اون جا اجرا میشه رو پیدا میکنی بعد اسم برنامه با پسوند exe. رو به آخرش اضافه میکنی بعد اگه یه وقت تو مسیر دو علامت "\" پشت سر هم افتاد یعنی این "\\" با Replace پیداش میکنی و با "\" جاگزینش میکنی بعد با FileCopy کپیش کن هر جا که خواستی !