1 Saat Sonra Bİlgİsayar Kapansin:(((Ödew))

[sky85]

ModÜllere Vba Yardimi İle Mesela 1 Saat Sonra Bİlgİsayar Kapansin Komutlari,2 Saat Sonra Hesap Makİnasi AÇilsin,1 Saat Sonra Yenİden BaŞlatsin Komutlari Gerekİo TeŞekkÜrler......

 

[tahsinanarat]

WİNDOWS'UN SİZİN BELİRLEDİĞİNİZ BİR SAATTE KAPANMASINI SAĞLAYAN KODLAR
Declare Function ExitWindowsEx& Lib "user32" _
(ByVal uFlags&, ByVal wReserved&)
Global Const EWX_FORCE = 8
Global Const EWX_LOGOFF = 0
Global Const EWX_REBOOT = 2
Global Const EWX_SHUTDOWN = 1
Sub calistir()
Dim Kapatma_Zamani As Variant
Kapatma_Zamani = InputBox("Windows'un ne zaman kapanmasını istersiniz?", , _
Format(Now + TimeSerial(0, 1, 0), "hh:mm:ss"))
If Kapatma_Zamani = "" Then Exit Sub
Application.OnTime TimeValue(Kapatma_Zamani), "Windowsu_Kapat"
End Sub
Sub Windowsu_Kapat()
Dim LResult
LResult = ExitWindowsEx(EWX_SHUTDOWN, 0&)
End Sub

Not: Evvelce bu siteden temin ettiğim kodlardır.

 

[sky85]

teşekkürler amaaaa

bizim derste işlemediğimiz komutlar war burda daha basite indirilemez mi sizce

 

[tahsinanarat]

HESAP MAKİNASINI ÇAĞIRIR
Sub Hesap_makinesi()
Application.ActivateMicrosoftApp Index:=0
End Sub

 

[tahsinanarat]

Sayın hocalarımız el atarlarsa, neden olmasın.

 

[Leoncio]

Sub zamanvererek_bilgisayarı_kapat()
Dim Kapatma_Zamani As Variant
Kapatma_Zamani = InputBox("Windows'un ne zaman kapanmasını istersiniz?", , _
Format(Now + TimeSerial(0, 1, 0), "hh:mm:ss"))
If Kapatma_Zamani = "" Then Exit Sub
Application.OnTime TimeValue(Kapatma_Zamani), "bilgisayarı_hemen_Kapat"
End Sub

 

[sky85]

çok teşekkür ederim peki saat sonra yaniden başlamasını istiyosam ne yapmam gerekio??

 

[Mahmut Bayram]

Private Const EWX_LOGOFF = 0
Private Const EWX_SHUTDOWN = 1
Private Const EWX_REBOOT = 2
Private Const EWX_FORCE = 4
Private Const EWX_POWEROFF As Long = 8
Private Const EWX_RESET = EWX_LOGOFF + EWX_FORCE + EWX_REBOOT

Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved _
As Long) As Long

Sub kapat()
Dim Kapatma_Zamani As Variant
Kapatma_Zamani = InputBox("Windows'un ne zaman kapanmasını istersiniz?", , _
Format(Now + TimeSerial(0, 1, 0), "hh:mm:ss"))
If Kapatma_Zamani = "" Then Exit Sub
 Application.OnTime TimeValue(Kapatma_Zamani), "kapa"
 End Sub

 Sub kapa()
    Dim X As Long
    X = ExitWindowsEx(EWX_SHUTDOWN, 0)
    End If
End Sub

Sub yeniden()
Dim resetle As Variant
resetle = InputBox("Windows'un ne zaman resetlenmesini istersiniz?", , _
Format(Now + TimeSerial(0, 1, 0), "hh:mm:ss"))
If resetle = "" Then Exit Sub
 Application.OnTime TimeValue(resetle), "reset"
 End Sub

 Sub reset()
    Dim X As Long
    X = ExitWindowsEx(EWX_RESET, 0)
    End If
End Sub

 

[sky85]

hocam saolunda bunlar fazla ağır yani daha basit komutlar gerekli bana



İmla kurallarından vazgeçtik, bari kelimeleri düzgün yazın.
Lütfen aşağıdaki linkleri okuyun.
http://www.excel.web.tr/showthread.php?t=34938
http://www.excel.web.tr/showthread.php?t=13356

 

[Mahmut Bayram]

Bunlardan daha basiti yok. En basiti uygulamalı olarak 1 saat sonra yapmak.