Bilgisayarı Kilitleme Ve Uykuya Alma Kodu?

Arkadaşlar,
Bu kod bilgisayarı yeniden başlatıyor.

 Shell("shutdown -r", vbNormalFocus) 

Bu kod ise bilgisayarı kapatıyor.

 Shell("shutdown -s -t 00", vbNormalFocus) 

Bilgisayarı Kilitleyen Ve Uykuya Olan Shell Komutunu Bilen Varmı Acaba?

Imports System.Threading yazarak başlıyoruz ve istediğimiz Button'un tıklandığında olayına;
yazarsanız bilgisayarı 10 Sn süreyle kilitler.

Dediğiniz Gibi Yaptım... Ama Hiç İşlem Gerçekleşmedi...

Ekranın kararmasını beklemeyin. Olduğu haliyle çalışmaz duruma gelecektir. süreyi 20000 yapın tekrar deneyin. Bu esnada programa tıklayın çalışmadığını görmelisiniz.

---

Ama benimde hoşuma gitmedi, boşverin bu yöntemi

Başka Bildiğiniz Yöntem Varmı?

Shell("rundll32.exe powrprof.dll,SetSuspendState 0,1,0", vbNormalFocus)