istediğiniz saatte bilgisayarınızı kapatabilir, oturumu kapatabilir, yeniden başlatabilir yada gücü kesebilirsiniz.

[Resim: http://server92.kucukresim.com/uploads/w...tb5868.jpg]

iyi günler
birisi ethernet kablosu ile
diğeri wireleess ile modeme bağlanıp internete erişen iki bilgisayarımı birbirne modem üzerinden nasıl bağlayabilirim
ethernet kablsu ile bağlı olan masaüstü bilgisayarımda
windows 7 home premium
wireless ile bağlanan laptopda
windows vista home premium var
yardımlarınız için teşekkürler

Arkadaşlar Cep Telefonumu Bilgi İşlem Sorumlusu Olduğum İş Yerinde Çaycıya Yardım Ettiğim Sırada Gelen Bİr Vesvese ve Hiddet Anında Yaptığım Duvarmı Sağlam Telefonmu Testi Neticesinde Paramparca Oldu. (Duvarın Sağlamlığı Tekrar Tecrübe Edilmiş Oldu...) P1i Sizlere Ömür...
1350 tane Rehber Kaydım Var... Elimde Bir Emektar 6600 var... O İşimi Görüyor Gibi Ama Ben Yeni Bir Telefon Alacağım Tavsiyelerinizi ve Tecrübelerinizi Paylaşmanızı Rica Ediyorummm....

Bütçe gibi sorular gelecektir. Aslınd

bilgisayarı kapatma ve cdrom aç kapa

Bilgisayarı Ayarlanan Zamanda Kapat
Yaptığımız Programın Demo Versiyonlarında Kullanılabilir Diye Düşündüm.
Saygılar.

arkadaşlar ekteki örnekte başlıktanda anlamışsınızdır sanırım pc kapat,reset ve oturumu kapat var.denedim çalışıyor.accessda butonun koduna kaydet kapat yazdım ama denemeden önce siz diğer programlarınızda açık veri v.s varsa kaydedin öyle deneyin gönderdiğim örneği.

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?

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
****

Konu başlığındanda anlaşılacağı üzere bilgisayarı kapatan resetleyen ve askıya alan uygulama.
Windows7 32 bit (office 2010) denendiwinxp 32 bit(office 2010) denendi çalışıyor
[Resim: https://resim.accesstr.net/uploads/13313657011.jpg]

Ek Dosyalar

pc_kapat_reset_askı.rar(48.31 KB)