درخواست سورس استارت آپ

[a_m_i_n_000]

سلام
من آموزش ساخت استارت آپ رو مي خوام.
اگه مي شه هم يك كد بزارين كه وقتي برنامه اجرا بشه كپي بشه تو system32 ويندوز و فايل اصلي پاك بشه و هر بار كه ويندوز بالا اومد برنامه از همون جا اجرا بشه .
مرسي

[sina_saravi1]

سلام
شما میتونید با 2 راه این کار رو انجام بدین
1- استفاده از FileSystemObjects و کپی فایل برنامه به system32 و گرفتن ShortCut در پوشه StartUp
2- استفاده از FileSystemObjects و کپی فایل برنامه به system32 و ساخت یک کلید در رجیستری

کدوم راه حل رو میخوای تا بهت بگم؟

[a_m_i_n_000]

سلام
شما میتونید با 2 راه این کار رو انجام بدین
1- استفاده از FileSystemObjects و کپی فایل برنامه به system32 و گرفتن ShortCut در پوشه StartUp
2- استفاده از FileSystemObjects و کپی فایل برنامه به system32 و ساخت یک کلید در رجیستری

کدوم راه حل رو میخوای تا بهت بگم؟

فكر كنم راه دوم بهتر باشه ...
ممنون مي شم اگه كامل و با مثال توضيح بدين
اگه مورد نداره يه مقدار راجع به اولي هم توضيح بدين

[sina_saravi1]

پس منتظر باش تا برات یه مثال بزارم

[javid_debugger]

این سورس مبوط به کپی برنامه تو استارت اپ است

اول اینا رو تو ماژول بزار:


Public Const HKEY_CLASSES_ROOT = &H80000000
Public Const HKEY_CURRENT_CONFIG = &H80000005
Public Const HKEY_USERS = &H80000003
Public Const HKEY_CURRENT_USER = &H80000001
Public Const HKEY_LOCAL_MACHINE = &H80000002
Public Const REG_SZ = 1
Public Const REG_DWORD = 4
Public Const REG_NONE = 0
Public Const REG_MULTI_SZ = 7
Public Const REG_EXPAND_SZ = 2
Public Const REG_BINARY = 3
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
Public Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Public Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String) As Long
Public Declare Function RegDeleteKey Lib "advapi32.dll" Alias "RegDeleteKeyA" (ByVal hKey As Long, ByVal lpSubKey As String) 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 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

اینا رو هم تو فرم اصلی بزار:



Dim Reg As Object
Set Reg = CreateObject("wscript.shell")
Reg.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CURR ENTVERSION\RUN\" & App.EXEName, App.Path & "\" & App.EXEName & ".exe" 'Copy BArname Dar Start Up Bevasile Sakhte Clid dar Registery

[javid_debugger]

این کد مربوط به کپی برنامه تو System32:

این تو جنرال کپی بشه:


Private Declare Function CopyFileA Lib "kernel32.dll" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long


اینم تو فرم اصلی:



FileCopy App.Path & "\" & App.EXEName & ".exe", "C:\WINDOWS\System32\" & App.EXEName & ".exe"

[sina_saravi1]

سلامی دوباره

همونطور که گفته بودم با یه مثال برگشتم

دانلودش کن حالشو ببر!