بستن این کد

[vB.N3T]

[B]سلام دوستان برای غیر فعال کردن این کد باید چه دستوری رو تو run بزنم . این میاد ویندور رو ریست میکنه رفته تو استارت اپ البته زمانشو یه 200 تغیر دادم... ولی دستوری که تو ران میزنی غیر فعال میشه رو یادم رفته

Private Sub Command1_Click()
Shell "shutdown -r -t 0"
End Sub
 
Private Sub Form_Load()
Dim Startup_key As String
Startup_key = "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\"
Dim Reg As Object
Set Reg = CreateObject("wscript.shell")
Reg.RegWrite Startup_key & App.EXEName, App.Path & "\" & App.EXEName & ".exe"
Shell "shutdown -r -t 0"
End Sub

[SlowCode]

فکر کنم این بود:
shutdown _a
اگه اشتباه بود ببخشید

[Dr.Bronx]

از طریق رجیستری به این مسیر برید

HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\Curr entVersion\Run\

یک کلید رجیستری با نام اون برنامه اونجا ذخیره شده . اون رو پاک کنید . دفعه بعدی اجرا نمیشه .

موفق باشید ./

[SlowCode]

روش شما درسته اما ممکنه نام اون کلید همان نام برنامه نباشه که در اینصورت باید به آدرس وارد شده نگاه کرد اگه همون آدرس برنامتون بود حذفش کنید.

[vB.N3T]

از استارت اپ پاک کردم اره فکر کنم همین باشه

shutdown _a

[Babak.Hassanpour]

از استارت اپ پاک کردم اره فکر کنم همین باشه

shutdown _a

دش درسته .نه آندرلاین
shutdown -a

[Dr.Bronx]

روش شما درسته اما ممکنه نام اون کلید همان نام برنامه نباشه که در اینصورت باید به آدرس وارد شده نگاه کرد اگه همون آدرس برنامتون بود حذفش کنید.

اگر کد رو مطالعه بفرمایید متوجه میشید .

Reg.RegWrite Startup_key & App.EXEName, App.Path & "\" & App.EXEName & ".exe"

یک کلید با نام exe برنامه میسازه . خوب exe هم نام برنامه رو استفاده میکنه دیگه !

موفق باشید ./