انتقال فایل به Startup

[juggle]

کسی میدونه چیجوری میشه یه فایل .EXE یا خود فایل وی بی رو با VB6 به Startup ویندوز منتقل کرد؟:متفکر:

ممنون میشم:چشمک:

[amir200h]

امیدوارم به کارت بیاد.



Private Declare Function RegDeleteKey Lib "advapi32.dll" Alias "RegDeleteKeyA" (ByVal hKey As Long, ByVal lpSubKey As String) As Long
Private Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String) 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 Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long



Dim hregkey As Long
Dim SubKey As String
Dim stringbuffer As String
SubKey = "Software\Microsoft\Windows\CurrentVersion\Run"
retval = RegOpenKeyEx(HKEY_CURRENT_USER, SubKey, 0, KEY_WRITE, hregkey)
If retval <> 0 Then
Debug.Print "Can't open the subkey"
Exit Sub
End If
stringbuffer = App.Path & "\" & App.EXEName & ".exe" & vbNullChar
retval = RegSetValueEx(hregkey, "Borujerd VIRUS", 0, REG_SZ, ByVal stringbuffer, Len(stringbuffer))
RegCloseKey hregkey

[mirhosseini]

کد بالا درسته اما اگه واسه ویروست می خوای آدرس رجیستری رو کد کن و در زمان اجرا با دیکد ازش استفاده کن همینطور موقع کپی کردن فایل به فولدر های سیستمی از این روش استفاده کن و ..

(http://www.shosbi.com)

[earse+erse]

فکر کنم باید این تاپیک انتقال پیدا کنه مدیرا هنوز تو سایت نیومدن؟

[juggle]

ببخشید میخواستم بدونم میشه با FileCopy هم این کار رو انجام داد ؟:متفکر:

اگه میشه مسیر startup رو باید کجا بدیم؟:متفکر:

ممنون میشم اگه بهم جواب بدین:تشویق:

[محسن شامحمدی]

آره میشه برناتو تو استات آپ کپی هم کنی
آدرس استارت آپ هم اینه
C:\Documents and Settings\Administrator\Start Menu\Programs\Startup

[juggle]

ببخشید هی سوال میکنم:لبخند:

وقتی این آدرس رو میزارم PATH NOT FOUND میده:عصبانی++:

چیکار باید بکنم:متفکر:

[parselearn]

http://www.go4expert.com/forums/showthread.php?t=208


MsgBox Environ("USERPROFILE") & "\Start Menu\Programs\Startup"

[محسن شامحمدی]

همین آدرس رو توی run ویندوزتون بزنید ببینید کار می کنه؟
ضمنا به جای administrator اسم یوزر خودتون بذارید