Skip to main content

AccessTr.neT


bilgisayarı access içinden kapatmak

bilgisayarı access içinden kapatmak

Çözüldü #1
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
@benbendedeilem
Son Düzenleme: 09/03/2012, 17:11, Düzenleyen: accessman.
Cevapla
Çözüldü #2
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
@benbendedeilem
Son Düzenleme: 09/03/2012, 17:27, Düzenleyen: accessman.
Cevapla
Çözüldü #3
doğru olan kod bu imiş

Shell ("shutdown -s -t 1")

öncekinde bir tırnak unutulmuş muş
@benbendedeilem
Cevapla
Çözüldü #4
O halde konuyu taşıyalım değil mi?
Cevapla
Çözüldü #5
https://accesstr.net/konu-bilgisayari-ka...ya-al.html
bunu yeni ekledim isterseniz bi bakın işinize yarayabilir.
GERİ SAYIM;Sen doğduğunda başladı ! Eğer (9) canlı bile olsaydın en fazla (8) kez kaçabilirdin Ölümden ! Bil ki (7) Düvele sultan dahi olsan yerin (6) Mekan olacak sana. En fazla (5) Metre kumaş götürebileceksin ! Kapatacaksın (4) açsanda gözlerini ! Bu (3) günlük fani dünyada Azraile (2) kat olup yalvarsanda nafile EceL geldiğinde (1) gün öleceksin ! İşte, o an herşey (0) dan başlayacak. Çünkü,
ÖLÜM BİR YOK OLUŞ DEĞİL,YENİDEN DOĞUŞTUR !
Cevapla
Çözüldü #6
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)
zetyu, 11-03-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da