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

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

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

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

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

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

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


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

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

 

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 کپیش کن هر جا که خواستی !