AccessTr.neT

modul içine

**************************
Declare Function ExitWindowsEx& Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long)
Public Const ZorlaKapat = 4
Public Const LOGOFF = 0
Public Const KapatAc = 2
Public Const Kapat = 1
*********************

formda bir butona

************
Private Sub Komut44_Click()
Dim MsgRes As Long
MsgRes = MsgBox("Windows'unuzu kapatmak istiyor musunuz?", vbYesNo Or vbQuestion)
If MsgRes = vbNo Then Exit Sub
Call ExitWindowsEx(Kapat, 0)
Unload Me
end sub
*************
internetten
bu kodları buldum ama
sadece oturumu kapatıyor

bunlarla bilgisayarı tamamen nasıl kapatabilirim

bir de şu var

**********
Private Sub Form_Load()
shell ("shutdown -s -t 1)
End Sub
**********
veya şunlar vb kodu imiş

***********
Kapatma Kodu ; Shell ("shutdown -s -t 1")
Reset Attirma Kodu ; Shell ("shutdown -r -t 1")
***********


bunu yazınca çalışmadı kod yazılışında bir hata var
yazı kırmızı oluyor

doğru olan kod bu imiş

Shell ("shutdown -s -t 1")

öncekinde bir tırnak unutulmuş muş

O halde konuyu taşıyalım değil mi?

https://accesstr.net/konu-bilgisayari-ka...ya-al.html
bunu yeni ekledim isterseniz bi bakın işinize yarayabilir.

ekte örnek var komut duğmesı tıklama olayına aşağıda kodu yazınız

stAppName = "C:\WINDOWS\system32\Shutdown.exe -s -t 00"
Call Shell(stAppName, 1)