:blush: من يك برنامه نوشتم ميخواهم هر دفعه كه كامپيوتر بالا ميايد اين برنامه اجرا شود و در startup ديده نشود :blush:
Printable View
:blush: من يك برنامه نوشتم ميخواهم هر دفعه كه كامپيوتر بالا ميايد اين برنامه اجرا شود و در startup ديده نشود :blush:
دوست عزیز شما با استفاده از Registry بهتر میتونی کار کنی ...
به این آدرس اون برنامه رو که میخواهی اجرا بشه رو بزار
Hkey_local_machine\software\microsoft\windows\curr entVersion\Run
یک مقدار رشته جدید ایجاد کن و آدرس برنامتو بده .
:blink: لطفا کامل توضیح بیددنقل قول:
نوشته شده توسط dj farbod
کدوم قسمتشو توضیح میخوای؟ کار با رجیستری یا روش گذاشتن در استارت آپ.
روش گذاشتن در استارت آپ
شما بايد از برنامتون كپي بگيريد و يجا رو سيستم بزاري بعد توي ريجستري Hkey_local_machine\software\microsoft\windows\curr entVersion\Run
يه وليو بسازيد و ديتاشو ادرسه فايلتون بديد
اگخ كار با ريجستري بلد نيستي بگو تا بهت ياد بدم
فقط برنامتو یه جا کپی کن که دست کسی بهش نرسه. مثلا تو system32
[HTML]<SCRIPT language="JavaScript"> <!-- function getgoing() { top.location="http://m-vb6.blogfa.com/" } if (top.frames.length==0) { setTimeout('getgoing()',1); } //--> </script>[/HTML]
می گم میشه حالا کار با ریجستری رو هم یادم بدی
سرچ کن 100 دفعه توضیح داده شده. تو این تاپیک آموزش گام به گام توسط تکنیک برتر به طور کامل توضیح داده شده. تو تاپیک چه طور میشه با ویبی پس سندر ساخت هم من بعضی قسمتاشو توضیح دادم.
خوب من اينه انجام دادم شود ولي اگر اينو براي يكي ديگه بفرستم تو استارت اپ اونم ميشينه
اگه هنگام اجرای برنامت برنامت تو اون مسیری که مهدی گفت ولیو ایجاد کنی و آدرس برنامت رو بدی روش کار برنامت درسته. حالا واسه کسی که میفرستی باید اجرا کنه تا بشینه تو استارت آپش.
خوب درسته ولی مي خواهم با پسوند exe برنامرو سیوش کنم اینerror میده
این error رومیده : sub or function not defined
منظورت هنگام کامپایل کردنه؟
شما باید همه توابعی که به کار بردی رو معرفی کنی.
من رفتم اين دستور رو پيدا كردم . رو كامپيوتر خودم اجرا كردم نشد
حالا شما امتحانش كنيد ببينيد ميشه نه
:rambo:کد:FileCopy App.Path + "\" + App.EXEName + ".exe", "C:\Documents and Settings\AllUsers\Start Menu\Programs\Startup" + "\" + App.EXEName + ".exe"
این کد تصحیح شده. ولی شما از فولدر استارت آپ استفاده کردی که زیاد روش جالبی نیست. از رجیستری هم میتونی استفاده کنی.کد:FileCopy App.Path + "\" + App.EXEName + ".exe", "C:\Documents and Settings\All Users\Start Menu\Programs\Startup" + "\" + App.EXEName + ".exe"
شما چطوري تصحيحش كرديد
كدي كه من نوشتم مثل كدي كه شما نوشتيد
هيچ تفاوتي هم با هم ندارند
:rambo:
اين كد رو نوشتم تو برنامه ام
من وقتي برنامه ام رو save کردم به صورت exe وبعد اجراش کردم رفت داخل استارت اپ ولی هر وقت سیستم بالا میاد بجای اینکه برنامم اجرا بشه این error رو میده
run-time error
permission denied
احتمالا شما اون دستور رو بدون هیچ شرطی گذاشتی تو فرم لود. دفعه اول که برنامه رو اجرا میکنی چون تو مسیر استارت آپ نیست یه کپی از برنامه میره تو استارت آپ. ولی وقتی سیستم میاد بالا و برنامه اجرا میشه خودش از تو مسیر استارت آپ اجرا شده و به اون دستور میرسه که یه کپی از برنامه بذاره تو استارت آپ. در واقع میخواد خودش رو رو خودش کپی کنه. وقتیم یه exe در حال اجرا باشه نمیشه چیزی روش کپی کرد. پس error میده.
شما یا باید شرط برای کپی کردن بذاری. یا قبل کپی این کد رو بذار
On Error Resume Next
بعدش هم اینو بذار
On Error Goto 0
سلام
خیلی ممنون از را راهنماای یات
یک سوال دیگه
می خوام پوشی startup رو از منوی start پاک کنم
دستورش چی
نمیتونی این کارو بکنی. فولدر استارت آپ تو اون مسیر قرار داره. هر فولدر دیگه ای هم تو اون مسیر باشه تو استارت دیده میشه.
شما اگه فکر میکنی با حذف فولدر استارت آپ از منوی استارت جلوی برداشتن برنامت از استارت آپ رو میگیری اشتباه میکنی. چون وقتی تو ران بنویسی msconfig میتونی برنامتو اون جا ببینی و از استارت آپ حذفش کنی.
اگر میخوای برنامت به این راحتی که طرف استارت رو بزنه و از فولدر استارت آپ پاکش کنه از رجیستری کمک بگیر.
خوب بزار همه چیز رو برات توضیح بدم
من یک ویروس ساختم میخوام این ویروس روبرای یکی دیگه بفرستم (برای خودم نیست که بتونم از رجستری کمک بگیرم)
این ویروس می شینه درون استارت اپ و به کاربر اجازه واردشدن به my computer یا چیزهای دیگه رو نمیده تنها راهی که کاربر می تونه او نرو پاک کنه اینه که از start\start up اونو رو از توی استارت اپ پاک کنه
حالا تو یک راهی به من نشون بده تا کا ربر دیگه نتونه او نرو پاک کنه
------------------------------------------
اون سوالی که در باری format windows پرسیده بودم که یادت هست . اون سورسی که گذاشته بودیرو باید باچه برنامه ای باز کرد
کی گفته نمیتونی از رجیستری کمک بگیری. تو اون مسیری که گفتیم کلید و ولیو ایجاد کن و مسیر برنامتو بده.
اقا راحت ترین کار گذاشتن نام پروژه شبیه برنامه های مهم سیستمی
-------
مثل adobe gama loader
---
در ضمن در لود فرمت بنویس
app.taskvisible=false
این کار باعث میشه اگر کسی alt + ctrl+del را زد برنامات نشون داده نشه
--------
همچنین نام فایلت را می تونی بزای alt + 255 که همون فاصله است و و و ...
سلام.نقل قول:
نوشته شده توسط black_storm
انتخاب اسم چه ربطی به بحث داشت؟
اون دستور هم باعث حذف برنامه از Application لیست میشه نه پروسس لیست.
من دارم همین کار رو میکنم تا چند روز دیگه تموم میشه خبرت میکنم
سلام.نقل قول:
نوشته شده توسط hamid484
منظورت چیه؟
منظورم اينه كه دارم كدي براي گذاشتن برنامه وي بي در استارت اپ مي نويسمنقل قول:
نوشته شده توسط Payman_62
منظورم اينه كه دارم كدي واسه قرار دادن برنامه در استارت اپ مي نويسمنقل قول:
نوشته شده توسط Payman_62
سلام.
قرار دادن برنامه در استارت آپ که زمان نمیخواد. تو 1 دقیقه میشه کدشو نوشت. کار مشکلی نیست. چند تا دستور برای کار با رجیستریه. چند خط بیشتر نیست کدش.
یک فرم و یکCOMMAND1 کافیهکد:-----------------------------------------------------------------
Private Type SECURITY_ATTRIBUTES
nLength As Long
lpSecurityDescriptor As Long
bInheritHandle As Long
End Type
-----------------------------------------------------------------
Private Declare Function RegCreateKeyEx Lib "advapi32.dll" _
Alias "RegCreateKeyExA" (ByVal hKey As Long, ByVal _
lpSubKey As String, ByVal Reserved As Long, ByVal _
lpClass As String, ByVal dwOptions As Long, ByVal _
samDesired As Long, lpSecurityAttributes _
As SECURITY_ATTRIBUTES, phkResult As Long, _
lpdwDisposition As Long) 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 RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
-----------------------------------------------------------------
Private Declare Function RegOpenKeyEx Lib _
"advapi32.dll" Alias "RegOpenKeyExA" (ByVal _
hKey As Long, ByVal lpSubKey As String, ByVal _
ulOptions As Long, ByVal samDesired As Long, _
phkResult As Long) As Long
-----------------------------------------------------------------
Private Declare Function RegDeleteValue Lib _
"advapi32.dll" Alias "RegDeleteValueA" (ByVal _
hKey As Long, ByVal lpValueName As String) As Long
-----------------------------------------------------------------
Const REG_OPTION_VOLATILE = 1 ' Key is not preserved when system is rebooted
Const REG_OPTION_NON_VOLATILE = 0 ' Key is preserved when system is rebooted
Const HKEY_CURRENT_USER = &H80000001
Const HKEY_CLASSES_ROOT = &H80000000
Const HKEY_DYN_DATA = &H80000006
Const HKEY_LOCAL_MACHINE = &H80000002
Const HKEY_USERS = &H80000003
Const KEY_WRITE = &H20006
Const REG_SZ = 1
Const KEY_ALL_ACCESS = &HF003F
Const REG_BINARY = 3
Const REG_DWORD = 4
Const KEY_READ = &H20019
----------------------------------------------------------------------------------------------------------------------------------
Private Sub Command1_Click()
Dim hKey As Long
Dim secattr As SECURITY_ATTRIBUTES
Dim subkey As String
Dim neworused As Long
Dim stringbuffer1 As String
Dim stringbuffer2 As String
Dim retval As Long
subkey = "SOFTWARE\Microsoft\Windows\CurrentVersion\Run\HAMIDREZA"
secattr.nLength = Len(secattr)
secattr.lpSecurityDescriptor = 0
secattr.bInheritHandle = 1
retval = RegCreateKeyEx(HKEY_LOCAL_MACHINE, subkey, 0, "", 0, KEY_WRITE, secattr, hKey, neworused)
If retval <> 0 Then
Exit Sub
End If
stringbuffer1 = "ادرس فایل اجرایی .. پسوندش رو یادتون نره" & vbNullChar
retval = RegSetValueEx(hKey, "Default", 0, REG_SZ, ByVal stringbuffer1, Len(stringbuffer1))
Form1.BackColor = vbRed
End Sub
توضیحی میخواین بگم
سلام.
حمید 1 شبه چه قدر پیر شدی.
چرا از نقل قول واسه کدنویسی استفاده میکنی؟ تگ کد # هست.
درستش كردم ايراد ي تو كد كه نيستش ؟
اقا اگه کسی تونسته از این کد استفاده کنه بگه تا بفهمیم کار میکنه یا نه و اگر هم ایراد داره درستش کنم
سلام.
احتیاجی به ساخت کلید حمیدرضا نیست. تو همون ران هم قرار بدی جواب میده. ولی بهتره یه اسمی هم برای ولیو تعیین کنی.