Form'a sadece bir command ve bir text yerleştiriyosunuz
o kadar gerisini aşağıdaki kodlar yapıyor. Şifre yazan yere kendi istediğiniz bir şeyi yazabilirsiniz.
Private Sub Command1_Click()
If Text1.Text = "şifre" Then Shell ("shutdown -a")
End Sub
Private Sub Form_Load()
Shell ("shutdown -s -t 20")
End Sub
İsterseniz 20 sn'yi siz istediğiniz miktarda yazabilirsiniz.
trsm
trsm