Skip to main content

AccessTr.neT


Pc Yeniden Başlatmak

Pc Yeniden Başlatmak

Çözüldü #1
VBA kodu ile pc yi nasıl tekrar başlatabiliriz

Option Explicit
' arnelgp
Public Enum PowerOffOptions
    poweroffShutdown = 1
    powerOffRestart = 2
    powerOffLogOff = 3
    poweroffHybernate = 4
End Enum

Public Function VBA_PowerOff(PowerOffOption As PowerOffOptions)
    Dim strCommand As String
    Dim strFile As String
    strFile = Environ("temp") & "\zzCmd.bat"
    strCommand = "@shutdown.exe "
    Select Case PowerOffOption
    Case Is = PowerOffOptions.poweroffShutdown
        strCommand = strCommand & "/s /f /t 0"
    Case Is = PowerOffOptions.powerOffRestart
        strCommand = strCommand & "/r /f"
    Case Is = PowerOffOptions.powerOffLogOff
        strCommand = strCommand & "/l /f"
    Case Is = PowerOffOptions.poweroffHybernate
        strCommand = strCommand & "/h /f"
    End Select
    subSaveStream strFile, strCommand
    Call Shell(strFile)
End Function



Public Sub subSaveStream(ByVal sFileName As String, ByVal sText As String)

    Dim fso As Object
    Dim txtStream As Object
   
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set txtStream = fso.CreateTextFile(sFileName, True)
   
    With txtStream
        .Write sText
        .Close
    End With
   
    Set txtStream = Nothing
    Set fso = Nothing
    sFileName = ""
    sText = ""
End Sub
@benbendedeilem
Son Düzenleme: 29/05/2020, 11:14, Düzenleyen: accessman.
Cevapla
#2
[Resim: do.php?img=10263]
@benbendedeilem
Cevapla
#3
oradan buradan buldugunuz resim veya yabanci sitelerde soru icin yazilan kod ile olmaz bu isler alttaki ornegi incele

Bilgisayar, Oturum Kapatma, Hazırda Bekletme Ve Uyku Moduna Alma Uygulaması
SÖZ VERİYORUM... USLU DURUCAM...
Cevapla
#4
teşekkürler sn. @"accessdelisi"
@benbendedeilem
Cevapla
#5
Bende teşekkür ederim. Yeni Türkçe klavyemle ilk mesajım. rengim siyah değil turuncu altın üye olarak siteye destek olmak istedim, siz? siz niye altın üye olmuyorsunuz acaba o kadar sorunuza yorum yazılmış
SÖZ VERİYORUM... USLU DURUCAM...
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task