PDA

View Full Version : سوال: قرار دادن يك برنامه در startup ويندوز



mpk2119
شنبه 27 اسفند 1390, 02:31 صبح
سلام
من يه برنامه دارم كه ميخوام اونو تو start up ويندوز قرار بدم ( از طريق ريجستري ) يه كدي هم به دستم رسيده ولي نميدونم چرا كار نميكنه ، اونو واستون ميزارم دانلود كنيد و مشكلش رو بهم بگين ، خيلي ممنون84299

سید حمید حق پرست
شنبه 27 اسفند 1390, 02:50 صبح
سلام
این سورس صحیحه و کار میکنه
برای دیدن نتیجه دستور msconfig رو در ران اجرا کن و در پنجره ی باز شده به تب Startup برو و میبینی برنامه در انجا قرار داده شده است

موفق باشید


یا علی (ع)

arash020
شنبه 27 اسفند 1390, 06:24 صبح
سلام
چندتا برنامه جالب توی http://www.eaglevb.blogfa.com/ هست که startup شدن جزو تنظیماتشونه.
ببینشون ضرر نداره...

محسن واژدی
شنبه 27 اسفند 1390, 09:34 صبح
سلام
تاپیک های زیر را بررسی کنید:
http://barnamenevis.org/showthread.php?311320-%D8%AA%D9%85%D8%A7%D9%85-%D8%A7%D8%B3%D8%AA%D8%A7%D8%B1%D8%AA-%D8%A2%D9%BE%D9%87%D8%A7%DB%8C-%D8%B1%DB%8C%D8%AC%D8%B3%D8%AA%D8%B1%DB%8C&p=1367140&viewfull=1#post1367140
http://barnamenevis.org/showthread.php?234904-%D8%A7%D9%86%D8%AA%D9%82%D8%A7%D9%84-%D9%81%D8%A7%DB%8C%D9%84-%D8%A8%D9%87-Startup&highlight=startup
http://barnamenevis.org/showthread.php?177684-%DA%AF%D8%B0%D8%A7%D8%B4%D8%AA%D9%86-%D8%A8%D8%B1%D9%86%D8%A7%D9%85%D9%87-%D8%AF%D8%B1-Startup&p=799292&viewfull=1#post799292
http://barnamenevis.org/showthread.php?175155-%D8%A7%DB%8C%D8%AC%D8%A7%D8%AF-%D9%88-%D8%AD%D8%B0%D9%81-%D8%A8%D8%B1%D9%86%D8%A7%D9%85%D9%87-%D8%AF%D8%B1-%D8%A7%D8%B3%D8%AA%D8%A7%D8%B1%D8%AA-%D8%A2%D9%BE&highlight=startup
http://barnamenevis.org/showthread.php?145407-%D8%AF%D8%B1%D8%AE%D9%88%D8%A7%D8%B3%D8%AA-%D8%B3%D9%88%D8%B1%D8%B3-%D8%A7%D8%B3%D8%AA%D8%A7%D8%B1%D8%AA-%D8%A2%D9%BE&highlight=startup

موفق باشید

M.T.P
شنبه 27 اسفند 1390, 10:30 صبح
یک تابع کامل در رابطه با این موضوع:


Function AutorunMe() As Boolean
On Error GoTo ErrLine
Dim blnReturn As Boolean
Dim obReg As Object

blnReturn = False
Set obReg = CreateObject("wscript.shell")
obReg.RegWrite "HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\WINDOWS\CURRE NTVERSION\RUN\" & App.EXEName, _
Chr$(34) & IIf(Right(App.Path, 1&) = "\", App.Path, App.Path & "\") & App.EXEName & ".exe" & Chr$(34)
blnReturn = True

ErrLine:
Set obReg = Nothing
AutorunMe = blnReturn
End Function

mpk2119
شنبه 27 اسفند 1390, 10:44 صبح
اگه ميشه ميخوام همون سورس كه من دادم فيكس بشه ، براي من can't open the subkey ميده...

محسن واژدی
شنبه 27 اسفند 1390, 10:55 صبح
اگه ميشه ميخوام همون سورس كه من دادم فيكس بشه ، براي من can't open the subkey ميده...

مشکل سورس شما در محلی بودن ثابت های "HKEY_CURRENT_USER" و "KEY_WRITE" است، کافیست در مادول "Module2" این دو ثابت را یافته و Public کنید

موفق باشید

setroyd
شنبه 27 اسفند 1390, 10:59 صبح
کد شما بهینه نیست و کلی کد اضافی داره من دوباره براتون ننوشتم چون وقت الکی میگیره شما با دیدن همون تاپیک ها که دوستان گذاشتن به جوابتون میرسید .

mpk2119
شنبه 27 اسفند 1390, 11:18 صبح
کد شما بهینه نیست و کلی کد اضافی داره من دوباره براتون ننوشتم چون وقت الکی میگیره شما با دیدن همون تاپیک ها که دوستان گذاشتن به جوابتون میرسید .

آقا ميدونم كد من كلي چيز اضافي داره ، چون من قسمتي از برنامه رو كندم ولي اين كدهاي اضافي كه دليل كار نكردنش نيست؟! ، من ميخوام بدونم چرا اين كد من can't open the subkey ميده و در startup قرار نميگيره.

mpk2119
شنبه 27 اسفند 1390, 11:21 صبح
مشکل سورس شما در محلی بودن ثابت های "HKEY_CURRENT_USER" و "KEY_WRITE" است، کافیست در مادول "Module2" این دو ثابت را یافته و Public کنید

موفق باشید

اگه تو اون ماژول واسم تغييرش بدين و بزارين واسه دانلود خيلي ممنون ميشم.

M.T.P
شنبه 27 اسفند 1390, 11:47 صبح
اون تابعی رو که من براتون گذاشتم صداش بزنید همه چی حله.

MohammadGh2011
شنبه 27 اسفند 1390, 13:08 عصر
سلام عليکم
برنامه ي زير رو قبلا به کمک API هايي که هست نوشتم و حجمش هم زياد بود، عکس ها و يک سري چيزهاش رو برداشتم و الان حجمش کم شد،ميتونيد از اون استفاده کنيد.



موفق باشيد

سید حمید حق پرست
شنبه 27 اسفند 1390, 14:09 عصر
سلام
بفرمایید اینم سورس درست

موفق باشید


یا علی (ع)

محسن واژدی
شنبه 27 اسفند 1390, 17:43 عصر
سلام
البته اگر هدفتان تنها ذخیره داده در ریجستری هست کدی که جناب M.T.P در پست 5 معرفی کردند هم بخوبی عمل میکرد

mpk2119
شنبه 27 اسفند 1390, 18:35 عصر
كارم راه افتاد ، از همتون ممنونم.