Bir text
bir buton oluşturun
(text'e pc kaç sn sonra kapanmasını istiyorsanızı o rakamı girin)
Kod:
Private Sub Command1_Click()
dim logout as string
logout = Shell("cmd /c shutdown -s -t " & text1.text ,0)
End Sub
Evet bu kadar işlemi iptal etmek için Çalıştıra Şunu Yazın :
shutdown -a
bir buton oluşturun
(text'e pc kaç sn sonra kapanmasını istiyorsanızı o rakamı girin)
Kod:
Private Sub Command1_Click()
dim logout as string
logout = Shell("cmd /c shutdown -s -t " & text1.text ,0)
End Sub
Evet bu kadar işlemi iptal etmek için Çalıştıra Şunu Yazın :
shutdown -a
