Laptop yeniden başlatılınca güç ayarlarım sıfırlanıyor

[Kayserilifatih]

Sistem, güç ayarlarını update yapınca sıfırlayabiliyor.

[TRWE_2012]

Aşağıdaki vbs betik, kullanıcı müdahalesi olmadığı sürece hiçbir güç planını silmeyip, yalnızca “Güç Tasarrufu”, “Yüksek Performans” ve “Nihai Performans” planlarının Windows kayıt defterinde (yani sistemde) varlığını korumayı amaçlar. Çünkü Windows Update veya Defender gibi sistem bileşenleri bazen bu planları kaldırabiliyor.

Bu korumayı sağlamak için iki aşamalı bir yöntem uygulanacaktır:

1.Ana Betik – İlk Eklemeyi Gerçekleştirir ve Koruma Görevini Oluşturur

Bu betik, çalıştırıldığında hedef planların var olup olmadığını kontrol eder; yoksa ilgili powercfg komutlarıyla temel şemalardan
(ör. “Güç Tasarrufu”:GUID: a1841308-3541-4fab-bc81-f71556f20b4a,
“Yüksek Performans”: GUID: 8c5e7fda-e8bf-4a96-9a85-a6e23a8c635c,
“Nihai Performans”: temel olarak Ultimate Performance – GUID: e9a42b02-d5df-448d-aa00-03f14749eb61 – kopyalandıktan sonra ismi değiştiriliyor) eklenir.

Ardından aynı dizinde (örneğin sistem sürücüsünün herhangi bir alt klasöründe) otomatik koruma için çalışacak bir “izleyici” betik (CheckPowerPlans.vbs) oluşturulur. Bu betik, planların varlığını periyodik olarak (örneğin sistem açılışında) kontrol edecek ve eksikse yeniden ekleyecektir.

2.Otomatik Koruma Görevi (Scheduled Task)

Ana betik, oluşturduğu “CheckPowerPlans.vbs” dosyasını sistem açılışında (veya periyodik olarak) çalıştıran bir zamanlanmış görev (Scheduled Task) tanımlar. Böylece Windows Update ya da Defender planları silse bile, sistem yeniden başlatıldığında veya belirlenen periyotta kontrol betiği çalışarak eksik planları ekler.

Not:

Bu yöntem “kalıcı” ekleme/yönetim için tersine tepkisel (self-healing) bir yöntemdir. Yani sistem bileşenleri planı kaldırsa bile, belirlenen aralıklarla (veya açılışta) kontrol ederek eksik planı yeniden eklemiş olur.

ANA BETİK VE YAN BETİK DOSYALARININ OLUŞTURULMASI :

1. Ana Betik: GucPlanlariProtector.vbs

Bu betik, ilk olarak gerekli güç planlarını kontrol eder ve ekler; ardından “CheckPowerPlans.vbs” adlı dosyayı oluşturup, zamanlanmış görev tanımlar.

Kod: Tümünü seç

' GucPlanlariProtector.vbs
Option Explicit

Dim shell, fso, currentPath
Set shell = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
currentPath = fso.GetParentFolderName(WScript.ScriptFullName)

' Yönetici kontrolü: Yönetici olmadan çalıştırılırsa kendini yeniden "runas" ile başlatır.
If Not shell.Environment("PROCESS")("USERNAME") = "SYSTEM" Then
    If WScript.Arguments.Length = 0 Then
        shell.ShellExecute "wscript.exe", """" & WScript.ScriptFullName & """ runas", "", "runas", 1
        WScript.Quit
    End If
End If

Dim resultStr, currentOutput
resultStr = ""

' Önce mevcut plan listesini alıyoruz:
Dim exec
Set exec = shell.Exec("powercfg -list")
currentOutput = LCase(exec.StdOut.ReadAll)

' -- Güç Tasarrufu --
If InStr(currentOutput, LCase("Güç Tasarrufu")) = 0 Then
    shell.Run "powercfg -duplicatescheme a1841308-3541-4fab-bc81-f71556f20b4a", 0, True
    resultStr = resultStr & "- Güç Tasarrufu eklendi" & vbCrLf
End If

' -- Yüksek Performans --
If InStr(currentOutput, LCase("Yüksek Performans")) = 0 Then
    shell.Run "powercfg -duplicatescheme 8c5e7fda-e8bf-4a96-9a85-a6e23a8c635c", 0, True
    resultStr = resultStr & "- Yüksek Performans eklendi" & vbCrLf
End If

' -- Nihai Performans --
If InStr(currentOutput, LCase("Nihai Performans")) = 0 Then
    Dim newGUID
    newGUID = DuplicateAndRename("e9a42b02-d5df-448d-aa00-03f14749eb61", "Nihai Performans")
    If newGUID <> "" Then
        resultStr = resultStr & "- Nihai Performans eklendi" & vbCrLf
    Else
        resultStr = resultStr & "- Nihai Performans eklenemedi" & vbCrLf
    End If
End If

If resultStr <> "" Then
    MsgBox "Aşağıdaki plan(lar) eklendi:" & vbCrLf & resultStr, vbInformation, "İlk Ekleme"
Else
    MsgBox "Tüm istenen güç planları zaten mevcut.", vbInformation, "İlk Ekleme"
End If

' "CheckPowerPlans.vbs" izleyici betiğini oluştur (aynı dizine yazılır)
Dim checkFilePath, checkFileText
checkFilePath = currentPath & "\CheckPowerPlans.vbs"
checkFileText = _
"' Bu betik, istenen güç planlarının varlığını kontrol eder ve eksikse yeniden ekler." & vbCrLf & _
"Option Explicit" & vbCrLf & _
"Dim shell" & vbCrLf & _
"Set shell = CreateObject(""WScript.Shell"")" & vbCrLf & _
"Dim exec, currentOutput" & vbCrLf & _
"Set exec = shell.Exec(""powercfg -list"")" & vbCrLf & _
"currentOutput = LCase(exec.StdOut.ReadAll)" & vbCrLf & _
"Dim resultStr" & vbCrLf & _
"resultStr = """"" & vbCrLf & _
"'" & vbCrLf & _
"' -- Güç Tasarrufu --" & vbCrLf & _
"If InStr(currentOutput, LCase(""Güç Tasarrufu"")) = 0 Then" & vbCrLf & _
"    shell.Run ""powercfg -duplicatescheme a1841308-3541-4fab-bc81-f71556f20b4a"", 0, True" & vbCrLf & _
"    resultStr = resultStr & ""- Güç Tasarrufu yeniden eklendi"" & vbCrLf" & vbCrLf & _
"End If" & vbCrLf & _
"'" & vbCrLf & _
"' -- Yüksek Performans --" & vbCrLf & _
"If InStr(currentOutput, LCase(""Yüksek Performans"")) = 0 Then" & vbCrLf & _
"    shell.Run ""powercfg -duplicatescheme 8c5e7fda-e8bf-4a96-9a85-a6e23a8c635c"", 0, True" & vbCrLf & _
"    resultStr = resultStr & ""- Yüksek Performans yeniden eklendi"" & vbCrLf" & vbCrLf & _
"End If" & vbCrLf & _
"'" & vbCrLf & _
"' -- Nihai Performans --" & vbCrLf & _
"If InStr(currentOutput, LCase(""Nihai Performans"")) = 0 Then" & vbCrLf & _
"    Dim newGUID" & vbCrLf & _
"    newGUID = DuplicateAndRename(""e9a42b02-d5df-448d-aa00-03f14749eb61"", ""Nihai Performans"")" & vbCrLf & _
"    If newGUID <> """" Then" & vbCrLf & _
"        resultStr = resultStr & ""- Nihai Performans yeniden eklendi"" & vbCrLf" & vbCrLf & _
"    End If" & vbCrLf & _
"End If" & vbCrLf & _
"'" & vbCrLf & _
"If resultStr <> """" Then" & vbCrLf & _
"    MsgBox ""[Otomatik Koruma] Eklenen planlar:" & vbCrLf & resultStr, vbInformation, ""PowerPlan Protector""" & vbCrLf & _
"End If" & vbCrLf & _
"" & vbCrLf & _
"' Fonksiyon: Bir şemayı çoğaltır ve yeni adıyla yeniden adlandırır." & vbCrLf & _
"Function DuplicateAndRename(baseGUID, newName)" & vbCrLf & _
"    Dim execBefore, before, execAfter, after, arrBefore, arrAfter, line, duplicateFound, newSchemeGUID" & vbCrLf & _
"    newSchemeGUID = """"" & vbCrLf & _
"    Set execBefore = shell.Exec(""powercfg -list"")" & vbCrLf & _
"    before = execBefore.StdOut.ReadAll" & vbCrLf & _
"    shell.Run ""powercfg -duplicatescheme "" & baseGUID, 0, True" & vbCrLf & _
"    WScript.Sleep 1000" & vbCrLf & _
"    Set execAfter = shell.Exec(""powercfg -list"")" & vbCrLf & _
"    after = execAfter.StdOut.ReadAll" & vbCrLf & _
"    arrBefore = Split(before, vbCrLf)" & vbCrLf & _
"    arrAfter = Split(after, vbCrLf)" & vbCrLf & _
"    For Each line In arrAfter" & vbCrLf & _
"        If InStr(line, ""GUID"") > 0 Then" & vbCrLf & _
"            duplicateFound = False" & vbCrLf & _
"            Dim bl" & vbCrLf & _
"            For Each bl In arrBefore" & vbCrLf & _
"                If Trim(bl) = Trim(line) Then duplicateFound = True" & vbCrLf & _
"            Next" & vbCrLf & _
"            If Not duplicateFound Then" & vbCrLf & _
"                newSchemeGUID = Mid(line, InStr(line, "":"" ) + 1, 36)" & vbCrLf & _
"                Exit For" & vbCrLf & _
"            End If" & vbCrLf & _
"        End If" & vbCrLf & _
"    Next" & vbCrLf & _
"    If newSchemeGUID <> """" Then" & vbCrLf & _
"        shell.Run ""powercfg -changename "" & newSchemeGUID & "" """" & newName & """"""", 0, True" & vbCrLf & _
"    End If" & vbCrLf & _
"    DuplicateAndRename = newSchemeGUID" & vbCrLf & _
"End Function"

' Fonksiyon: Şemayı çoğalt ve adını değiştir.
Function DuplicateAndRename(baseGUID, newName)
    Dim execBefore, before, execAfter, after, arrBefore, arrAfter, line, duplicateFound, newSchemeGUID
    newSchemeGUID = ""
    Set execBefore = shell.Exec("powercfg -list")
    before = execBefore.StdOut.ReadAll
    shell.Run "powercfg -duplicatescheme " & baseGUID, 0, True
    WScript.Sleep 1000
    Set execAfter = shell.Exec("powercfg -list")
    after = execAfter.StdOut.ReadAll
    arrBefore = Split(before, vbCrLf)
    arrAfter = Split(after, vbCrLf)
    For Each line In arrAfter
        If InStr(line, "GUID") > 0 Then
            duplicateFound = False
            Dim bl
            For Each bl In arrBefore
                If Trim(bl) = Trim(line) Then duplicateFound = True
            Next
            If Not duplicateFound Then
                newSchemeGUID = Mid(line, InStr(line, ":") + 1, 36)
                Exit For
            End If
        End If
    Next
    If newSchemeGUID <> "" Then
        shell.Run "powercfg -changename " & newSchemeGUID & " " & Chr(34) & newName & Chr(34), 0, True
    End If
    DuplicateAndRename = newSchemeGUID
End Function

' CheckPowerPlans.vbs dosyasını oluştur (varsa üzerine yazar)
Dim checkFile
Set checkFile = fso.CreateTextFile(checkFilePath, True)
checkFile.Write checkFileText
checkFile.Close

' Şimdi, otomatik koruma için zamanlanmış görev oluşturalım.
Dim schTaskCmd, taskName
taskName = "PowerPlanProtector"
schTaskCmd = "schtasks /Create /F /TN " & Chr(34) & taskName & Chr(34) & " /RL HIGHEST /SC ONSTART /TR " & Chr(34) & "wscript.exe " & checkFilePath & Chr(34)
shell.Run schTaskCmd, 0, True

MsgBox "Güç planları korunuyor. Artık Windows Update/Defender tarafından silinse bile, sistem açılışında kontrol edilip eksikler tamamlanacaktır.", vbInformation, "Koruma Etkin"
' İsteğe bağlı: Güç Seçenekleri Denetim Masası'nı açıp, 40 saniyelik yeniden başlatma uyarısı
shell.Run "control powercfg.cpl", 1, False
MsgBox "40 saniye içinde sistem yeniden başlatılacak. Lütfen tüm programları kapatın.", vbExclamation
shell.Run "shutdown -r -t 40", 0, False

2. Otomatik Kontrol Betiği: CheckPowerPlans.vbs

Bu betik, zamanlanmış görev tarafından çalıştırılır. Yapısı, yukarıdaki ana betikte kullanılan ekleme mantığını içerir. (Ana betik, ilk çalıştırmada bu dosyayı oluşturur; sonrasında sistem açılışında otomatik olarak çalışır.)

Kod: Tümünü seç

' CheckPowerPlans.vbs
Option Explicit
Dim shell
Set shell = CreateObject("WScript.Shell")

Dim exec, currentOutput, resultStr
resultStr = ""

Set exec = shell.Exec("powercfg -list")
currentOutput = LCase(exec.StdOut.ReadAll)

' -- Güç Tasarrufu --
If InStr(currentOutput, LCase("Güç Tasarrufu")) = 0 Then
    shell.Run "powercfg -duplicatescheme a1841308-3541-4fab-bc81-f71556f20b4a", 0, True
    resultStr = resultStr & "- Güç Tasarrufu yeniden eklendi" & vbCrLf
End If

' -- Yüksek Performans --
If InStr(currentOutput, LCase("Yüksek Performans")) = 0 Then
    shell.Run "powercfg -duplicatescheme 8c5e7fda-e8bf-4a96-9a85-a6e23a8c635c", 0, True
    resultStr = resultStr & "- Yüksek Performans yeniden eklendi" & vbCrLf
End If

' -- Nihai Performans --
If InStr(currentOutput, LCase("Nihai Performans")) = 0 Then
    Dim newGUID
    newGUID = DuplicateAndRename("e9a42b02-d5df-448d-aa00-03f14749eb61", "Nihai Performans")
    If newGUID <> "" Then
        resultStr = resultStr & "- Nihai Performans yeniden eklendi" & vbCrLf
    End If
End If

If resultStr <> "" Then
    MsgBox "[Otomatik Koruma] Eklenen planlar:" & vbCrLf & resultStr, vbInformation, "PowerPlan Protector"
End If

Function DuplicateAndRename(baseGUID, newName)
    Dim execBefore, before, execAfter, after, arrBefore, arrAfter, line, duplicateFound, newSchemeGUID
    newSchemeGUID = ""
    Set execBefore = shell.Exec("powercfg -list")
    before = execBefore.StdOut.ReadAll
    shell.Run "powercfg -duplicatescheme " & baseGUID, 0, True
    WScript.Sleep 1000
    Set execAfter = shell.Exec("powercfg -list")
    after = execAfter.StdOut.ReadAll
    arrBefore = Split(before, vbCrLf)
    arrAfter = Split(after, vbCrLf)
    For Each line In arrAfter
        If InStr(line, "GUID") > 0 Then
            duplicateFound = False
            Dim bl
            For Each bl In arrBefore
                If Trim(bl) = Trim(line) Then duplicateFound = True
            Next
            If Not duplicateFound Then
                newSchemeGUID = Mid(line, InStr(line, ":") + 1, 36)
                Exit For
            End If
        End If
    Next
    If newSchemeGUID <> "" Then
        shell.Run "powercfg -changename " & newSchemeGUID & " " & Chr(34) & newName & Chr(34), 0, True
    End If
    DuplicateAndRename = newSchemeGUID
End Function

BETİKLERİ İÇERİK AÇIKLAMASI :

Betiğin Çalışma Prensibi ve Koruyucu Özelliği

Kullanıcı Müdahalesi Olmadan Silme Yapılmaz:

Betiğin varsayılan işlevi yalnızca eksik planları eklemektir. Kullanıcı açıkça silme seçeneği vermedikçe hiçbir plan sistemden silinmez; böylece sistem açılışı sırasında Windows Update ya da Defender tarafından silinse dahi, izleyici betik (CheckPowerPlans.vbs) sistem açılışında veya zamanlanmış görev tetiklendiğinde eksikleri tamamlar.

Otomatik Koruma:

Ana betik, bir zamanlanmış görev oluşturarak her sistem açılışında (veya istenirse başka zamanlamalarla) “CheckPowerPlans.vbs” betiğini çalıştırır. Böylece planlar kalıcı hale gelir.

Kalıcı Değer:

Güç planları powercfg komutlarıyla oluşturulduğu için, eklenen planlar Windows kayıt defterine yansıyarak (kalıcı olarak) saklanır. İstenmedik silinmeler durumunda, otomatik koruma yeniden ekler.

Güle güle kullanın (İnşallah bu işe yarar)

[mehoaga]

Çok afedersiniz bu işe biraz ara versek hem sayfada sizlerin yorumlarını okuyup uygulamak istiyorum ama üst katta kiracılar nallarınımı deniyor nee pat pat küt küt topuklarını yere öyle vuruyorlarki sanki hiltiyle duvar deliniyormuş gibi. Vallahi oturduğum yerden illallah diyorum (çüş) yani beygirler kudurdu yaaa . Yarın devam etsek kafamın içi iyice zonklamaya başladı ne yapmaya çalışıyorum veya yapmıyorum kafam iyice uçuşa geçti. Hepinizden affınızı istirham ediyorum biraz sakinleşeyim kendime geleyim kaldığımız yerden devam ederiz.

[TRWE_2012]

Çok afedersiniz bu işe biraz ara versek hem sayfada sizlerin yorumlarını okuyup uygulamak istiyorum ama üst katta kiracılar nallarınımı deniyor nee pat pat küt küt topuklarını yere öyle vuruyorlarki sanki hiltiyle duvar deliniyormuş gibi. Vallahi oturduğum yerden illallah diyorum (çüş) yani beygirler kudurdu yaaa . Yarın devam etsek kafamın içi iyice zonklamaya başladı ne yapmaya çalışıyorum veya yapmıyorum kafam iyice uçuşa geçti. Hepinizden affınızı istirham ediyorum biraz sakinleşeyim kendime geleyim kaldığımız yerden devam ederiz.

Tamam sakin bir zamanda yukarıdaki katında bulunan hayvanatların olmadığı bir vakitte devam ederiz.

[mehoaga]

Çok afedersiniz bu işe biraz ara versek hem sayfada sizlerin yorumlarını okuyup uygulamak istiyorum ama üst katta kiracılar nallarınımı deniyor nee pat pat küt küt topuklarını yere öyle vuruyorlarki sanki hiltiyle duvar deliniyormuş gibi. Vallahi oturduğum yerden illallah diyorum (çüş) yani beygirler kudurdu yaaa . Yarın devam etsek kafamın içi iyice zonklamaya başladı ne yapmaya çalışıyorum veya yapmıyorum kafam iyice uçuşa geçti. Hepinizden affınızı istirham ediyorum biraz sakinleşeyim kendime geleyim kaldığımız yerden devam ederiz.

Tamam sakin bir zamanda yukarıdaki katında bulunan hayvanatların olmadığı bir vakitte devam ederiz.

Ya arkadaşım eve taşındıklarında inanınırmısınız kaç defa söyledim ben rahatsızlık geçirdim (beyin kanaması) gürültüye gelemiyorum diye rica ettim ama şu ana kadar tam 9 kez uyardım ama kimi uyardım (duvara demişim) sanki. İnsanmı hayvanmı bende anlamadım. Yaaa aynı kelime 9 defa denirmi. Kapıları yavaş örtmeye özen gösterin diye. "Valla anlatsam burda sayfalara sığmaz. Dedimki insanoğluna laf bir kere söylenir (rahmetli babamın lafıdır). Ama kime ne diyorsun evi ahıra panayıra lunaparka çevirdiler. Durabilene aşkolsun. Şikayet edeceğimde nereye nasıl edeceğim onuda bilmiyorum. İlaveten birde öyle pis tarafı var arka bahçeyi çöplüğe çevirmişler. belediyenin çöp kontenyeri yerine bahçaye dök kurtul.

[TRWE_2012]

Kod: Tümünü seç

Set shell = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
Set plans = CreateObject("Scripting.Dictionary")

' Yönetici olarak çalışmıyorsa kendini tekrar yönetici olarak başlatır
If Not shell.Environment("PROCESS")("USERNAME") = "SYSTEM" Then
    If WScript.Arguments.Count = 0 Then
        shell.Run "wscript.exe """ & WScript.ScriptFullName & """ runas", 1, False
        WScript.Quit
    End If
End If

' Güç planlarını yedekleme veya geri yükleme işlemi
Dim yedekDosyasi
yedekDosyasi = "C:\GucPlanYedek.reg"

' Yedek dosyası varsa geri yükle
If fso.FileExists(yedekDosyasi) Then
    MsgBox "Yedeklerin varmış sayın kullanıcı! Yedekler geri yüklendi. Betik sonlandırılıyor.", vbInformation
    shell.Run "powercfg /import """ & yedekDosyasi & """", 0, True
    WScript.Quit
End If

' Planları oluşturma fonksiyonu
Function PlanOlustur(temelGuid, yeniIsim)
    Set exec = shell.Exec("powercfg /query")
    Set result = shell.Exec("powercfg -duplicatescheme " & temelGuid)
    planGUID = ""
    Do Until result.StdOut.AtEndOfStream
        s = result.StdOut.ReadLine
        If InStr(s, ":") > 0 Then planGUID = Trim(Split(s, ":")(1))
    Loop
    If planGUID <> "" Then
        shell.Run "powercfg /changename " & planGUID & " """ & yeniIsim & """", 0, True
    End If
    PlanOlustur = planGUID
End Function

' Güç planlarını oluştur
tasarrufID = PlanOlustur("a1841308-3541-4fab-bc81-f71556f20b4a", "🟡 Güç Tasarrufu")
performansID = PlanOlustur("8c5e7fda-e8bf-4a96-9a85-a6e23a8c635c", "🔴 Yüksek Performans")
ultimateID = PlanOlustur("e9a42b02-d5df-448d-aa00-03f14749eb61", "🔵 Nihai Performans")
oyunID = PlanOlustur("8c5e7fda-e8bf-4a96-9a85-a6e23a8c635c", "🟣 Oyun Modu")
sessizID = PlanOlustur("a1841308-3541-4fab-bc81-f71556f20b4a", "🟢 Sessiz Çalışma")
pilID = PlanOlustur("a1841308-3541-4fab-bc81-f71556f20b4a", "🟢 Pil Uzatıcı")

' Kullanıcıya plan seçmesi için seçenek sunma
selectedPlan = MsgBox("Aktif plan seçin:" & vbCrLf & _
"1. 🟡 Güç Tasarrufu" & vbCrLf & _
"2. 🔴 Yüksek Performans" & vbCrLf & _
"3. 🔵 Nihai Performans" & vbCrLf & _
"4. 🟣 Oyun Modu" & vbCrLf & _
"5. 🟢 Sessiz Çalışma" & vbCrLf & _
"6. 🟢 Pil Uzatıcı", vbQuestion + vbYesNoCancel, "Aktif Plan Seçimi")

' Seçilen planı aktif etme
If selectedPlan = 1 Then
    shell.Run "powercfg /setactive " & tasarrufID, 0, True
    MsgBox "🟡 Güç Tasarrufu planı aktif edildi.", vbInformation
ElseIf selectedPlan = 2 Then
    shell.Run "powercfg /setactive " & performansID, 0, True
    MsgBox "🔴 Yüksek Performans planı aktif edildi.", vbInformation
ElseIf selectedPlan = 3 Then
    shell.Run "powercfg /setactive " & ultimateID, 0, True
    MsgBox "🔵 Nihai Performans planı aktif edildi.", vbInformation
ElseIf selectedPlan = 4 Then
    shell.Run "powercfg /setactive " & oyunID, 0, True
    MsgBox "🟣 Oyun Modu planı aktif edildi.", vbInformation
ElseIf selectedPlan = 5 Then
    shell.Run "powercfg /setactive " & sessizID, 0, True
    MsgBox "🟢 Sessiz Çalışma planı aktif edildi.", vbInformation
ElseIf selectedPlan = 6 Then
    shell.Run "powercfg /setactive " & pilID, 0, True
    MsgBox "🟢 Pil Uzatıcı planı aktif edildi.", vbInformation
Else
    MsgBox "Geçersiz seçenek, hiçbir plan aktif edilmedi.", vbCritical
    WScript.Quit
End If

' Yedekleme işlemi
shell.Run "powercfg /export """ & yedekDosyasi & """ /guid " & tasarrufID, 0, True
shell.Run "powercfg /export """ & yedekDosyasi & """ /guid " & performansID, 0, True
shell.Run "powercfg /export """ & yedekDosyasi & """ /guid " & ultimateID, 0, True
shell.Run "powercfg /export """ & yedekDosyasi & """ /guid " & oyunID, 0, True
shell.Run "powercfg /export """ & yedekDosyasi & """ /guid " & sessizID, 0, True
shell.Run "powercfg /export """ & yedekDosyasi & """ /guid " & pilID, 0, True

' Bitirme mesajı
MsgBox "Güç planları oluşturuldu ve yedeklendi. Lütfen güncellemeler sonrası tekrar çalıştırarak yedekleri geri yükleyin.", vbInformation

ÖZET AÇIKLAMA :

GÜNCEL BETİĞİN ÖZETİ

1. Yönetici Yetkisi Kontrolü

Betik yönetici olarak çalışmıyorsa kendini runas parametresi ile tekrar başlatıyor.

2. Yedekleme ve Geri Yükleme

C:\GucPlanYedek.reg dosyası varsa:

Güç planlarını tekrar oluşturmaz.
Mevcut yedeği geri yükler.
Kullanıcıyı bilgilendirip betiği sonlandırır.

Eğer yedek yoksa:

Güç planlarını sıfırdan oluşturur.
Yedekleme işlemi sonunda yapılır.

3. Planların Oluşturulması (6 Adet)

Her biri belirli GUID’lerle oluşturuluyor:

Güç Tasarrufu – power saver
Yüksek Performans – high performance
Nihai Performans – ultimate performance
Oyun Modu – özel plan
Sessiz Çalışma – özel plan
Pil Uzatıcı – özel plan

4. Aktif Plan Seçimi

Kullanıcıya 1–6 arasında seçim yapma imkanı veriliyor.
Seçilen plan doğrudan aktif ediliyor.
Hangi planın aktif edildiği mesaj olarak bildiriliyor.

5. Planların Yedeklenmesi

Her plan powercfg /export komutu ile C:\GucPlanYedek.reg dosyasına yedekleniyor.

Not: Aynı dosya üzerine yedekler ardışık olarak eklenmiyor, üst üste yazılır, yani sadece son export geçerli olur.

6. Bilgilendirme

İşlem başarıyla tamamlandığında kullanıcıya sonuç bildirilir.

Özetle Ne Oluyor?

Yönetici olarak çalıştırmak ve yedek kontrolü yapılır.
Eğer yedekler yoksa, 6 özel güç planı oluşturulur ve aktif hale getirilir.
Kullanıcıya planları seçme imkanı verilir ve seçilen plan aktif hale gelir.
Yedekleme yapılır, böylece planlar kaybolursa geri yüklenebilir.
Yedek dosyası varsa, planlar geri yüklenir ve kullanıcıya bilgilendirme yapılır.

Bu süreç tüm Windows kullanıcıları için sistem güç planlarını kolayca yönetmeyi sağlar.

Yani nur topu gibi 6 tane planın oldu...

Güç Tasarrufu (power saver)
Yüksek Performans (high performance)
Nihai Performans (ultimate performance)
Oyun Modu (special plan for you)
Sessiz Çalışma (silent mode)
Pil Uzatıcı (battery saver)

Güle güle kullan (artık daha ne yapayım...)

NOT:

ÖNCE yukarıdaki betikleri dene olmazsa bunu dene....

Sistemi yeniden başlattığında eğer planlar uçarsa sadece betiği yönetici olarak çalıştır yeter gerisini betik halledecek...

[Kayserilifatih]

Abi komşunu uyarmak yetmiyorsa zabıtaya şikayette bulunabilirsin ya da polise şikayetçi de olabilirsin huzurunu bozdukları için. O da çare olmazsa hukuki yoldan da halledebilirsin fakat onun için avukata bir danış derim.

[mehoaga]

Kod: Tümünü seç

Set shell = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
Set plans = CreateObject("Scripting.Dictionary")

' Yönetici olarak çalışmıyorsa kendini tekrar yönetici olarak başlatır
If Not shell.Environment("PROCESS")("USERNAME") = "SYSTEM" Then
    If WScript.Arguments.Count = 0 Then
        shell.Run "wscript.exe """ & WScript.ScriptFullName & """ runas", 1, False
        WScript.Quit
    End If
End If

' Güç planlarını yedekleme veya geri yükleme işlemi
Dim yedekDosyasi
yedekDosyasi = "C:\GucPlanYedek.reg"

' Yedek dosyası varsa geri yükle
If fso.FileExists(yedekDosyasi) Then
    MsgBox "Yedeklerin varmış sayın kullanıcı! Yedekler geri yüklendi. Betik sonlandırılıyor.", vbInformation
    shell.Run "powercfg /import """ & yedekDosyasi & """", 0, True
    WScript.Quit
End If

' Planları oluşturma fonksiyonu
Function PlanOlustur(temelGuid, yeniIsim)
    Set exec = shell.Exec("powercfg /query")
    Set result = shell.Exec("powercfg -duplicatescheme " & temelGuid)
    planGUID = ""
    Do Until result.StdOut.AtEndOfStream
        s = result.StdOut.ReadLine
        If InStr(s, ":") > 0 Then planGUID = Trim(Split(s, ":")(1))
    Loop
    If planGUID <> "" Then
        shell.Run "powercfg /changename " & planGUID & " """ & yeniIsim & """", 0, True
    End If
    PlanOlustur = planGUID
End Function

' Güç planlarını oluştur
tasarrufID = PlanOlustur("a1841308-3541-4fab-bc81-f71556f20b4a", "🟡 Güç Tasarrufu")
performansID = PlanOlustur("8c5e7fda-e8bf-4a96-9a85-a6e23a8c635c", "🔴 Yüksek Performans")
ultimateID = PlanOlustur("e9a42b02-d5df-448d-aa00-03f14749eb61", "🔵 Nihai Performans")
oyunID = PlanOlustur("8c5e7fda-e8bf-4a96-9a85-a6e23a8c635c", "🟣 Oyun Modu")
sessizID = PlanOlustur("a1841308-3541-4fab-bc81-f71556f20b4a", "🟢 Sessiz Çalışma")
pilID = PlanOlustur("a1841308-3541-4fab-bc81-f71556f20b4a", "🟢 Pil Uzatıcı")

' Kullanıcıya plan seçmesi için seçenek sunma
selectedPlan = MsgBox("Aktif plan seçin:" & vbCrLf & _
"1. 🟡 Güç Tasarrufu" & vbCrLf & _
"2. 🔴 Yüksek Performans" & vbCrLf & _
"3. 🔵 Nihai Performans" & vbCrLf & _
"4. 🟣 Oyun Modu" & vbCrLf & _
"5. 🟢 Sessiz Çalışma" & vbCrLf & _
"6. 🟢 Pil Uzatıcı", vbQuestion + vbYesNoCancel, "Aktif Plan Seçimi")

' Seçilen planı aktif etme
If selectedPlan = 1 Then
    shell.Run "powercfg /setactive " & tasarrufID, 0, True
    MsgBox "🟡 Güç Tasarrufu planı aktif edildi.", vbInformation
ElseIf selectedPlan = 2 Then
    shell.Run "powercfg /setactive " & performansID, 0, True
    MsgBox "🔴 Yüksek Performans planı aktif edildi.", vbInformation
ElseIf selectedPlan = 3 Then
    shell.Run "powercfg /setactive " & ultimateID, 0, True
    MsgBox "🔵 Nihai Performans planı aktif edildi.", vbInformation
ElseIf selectedPlan = 4 Then
    shell.Run "powercfg /setactive " & oyunID, 0, True
    MsgBox "🟣 Oyun Modu planı aktif edildi.", vbInformation
ElseIf selectedPlan = 5 Then
    shell.Run "powercfg /setactive " & sessizID, 0, True
    MsgBox "🟢 Sessiz Çalışma planı aktif edildi.", vbInformation
ElseIf selectedPlan = 6 Then
    shell.Run "powercfg /setactive " & pilID, 0, True
    MsgBox "🟢 Pil Uzatıcı planı aktif edildi.", vbInformation
Else
    MsgBox "Geçersiz seçenek, hiçbir plan aktif edilmedi.", vbCritical
    WScript.Quit
End If

' Yedekleme işlemi
shell.Run "powercfg /export """ & yedekDosyasi & """ /guid " & tasarrufID, 0, True
shell.Run "powercfg /export """ & yedekDosyasi & """ /guid " & performansID, 0, True
shell.Run "powercfg /export """ & yedekDosyasi & """ /guid " & ultimateID, 0, True
shell.Run "powercfg /export """ & yedekDosyasi & """ /guid " & oyunID, 0, True
shell.Run "powercfg /export """ & yedekDosyasi & """ /guid " & sessizID, 0, True
shell.Run "powercfg /export """ & yedekDosyasi & """ /guid " & pilID, 0, True

' Bitirme mesajı
MsgBox "Güç planları oluşturuldu ve yedeklendi. Lütfen güncellemeler sonrası tekrar çalıştırarak yedekleri geri yükleyin.", vbInformation

ÖZET AÇIKLAMA :

GÜNCEL BETİĞİN ÖZETİ

1. Yönetici Yetkisi Kontrolü

Betik yönetici olarak çalışmıyorsa kendini runas parametresi ile tekrar başlatıyor.

2. Yedekleme ve Geri Yükleme

C:\GucPlanYedek.reg dosyası varsa:

Güç planlarını tekrar oluşturmaz.
Mevcut yedeği geri yükler.
Kullanıcıyı bilgilendirip betiği sonlandırır.

Eğer yedek yoksa:

Güç planlarını sıfırdan oluşturur.
Yedekleme işlemi sonunda yapılır.

3. Planların Oluşturulması (6 Adet)

Her biri belirli GUID’lerle oluşturuluyor:

Güç Tasarrufu – power saver
Yüksek Performans – high performance
Nihai Performans – ultimate performance
Oyun Modu – özel plan
Sessiz Çalışma – özel plan
Pil Uzatıcı – özel plan

4. Aktif Plan Seçimi

Kullanıcıya 1–6 arasında seçim yapma imkanı veriliyor.
Seçilen plan doğrudan aktif ediliyor.
Hangi planın aktif edildiği mesaj olarak bildiriliyor.

5. Planların Yedeklenmesi

Her plan powercfg /export komutu ile C:\GucPlanYedek.reg dosyasına yedekleniyor.

Not: Aynı dosya üzerine yedekler ardışık olarak eklenmiyor, üst üste yazılır, yani sadece son export geçerli olur.

6. Bilgilendirme

İşlem başarıyla tamamlandığında kullanıcıya sonuç bildirilir.

Özetle Ne Oluyor?

Yönetici olarak çalıştırmak ve yedek kontrolü yapılır.
Eğer yedekler yoksa, 6 özel güç planı oluşturulur ve aktif hale getirilir.
Kullanıcıya planları seçme imkanı verilir ve seçilen plan aktif hale gelir.
Yedekleme yapılır, böylece planlar kaybolursa geri yüklenebilir.
Yedek dosyası varsa, planlar geri yüklenir ve kullanıcıya bilgilendirme yapılır.

Bu süreç tüm Windows kullanıcıları için sistem güç planlarını kolayca yönetmeyi sağlar.

Yani nur topu gibi 6 tane planın oldu...

Güç Tasarrufu (power saver)
Yüksek Performans (high performance)
Nihai Performans (ultimate performance)
Oyun Modu (special plan for you)
Sessiz Çalışma (silent mode)
Pil Uzatıcı (battery saver)

Güle güle kullan (artık daha ne yapayım...)

NOT:

ÖNCE yukarıdaki betikleri dene olmazsa bunu dene....

Sistemi yeniden başlattığında eğer planlar uçarsa sadece betiği yönetici olarak çalıştır yeter gerisini betik halledecek...

Abisi sana nasıl teşekkür edeyim bilemiyorum Allah senden ve yardım eden herkesten ve Tarkan hocamızdan razı olsun. Belki bu işi teşekkürler de halletmez ama yakınımda olsan bir yemek davetim olurdu diycem ama herhalde buda rüşvete girmez sanırım.
Ellerine kollarına ve emeklerine sağlık. Semden son ricam bana nerden başlayacağımı ve sırasıyla nasıl yapacağımıda söylersen bu konuda seni tekrar rahatsız etmeyeyim. İyiki buraya üye olmuşum. İyiki varsınız hepinizle gurur duyuyorum. Can arkadaşlarım benim.Selametle kalınız.
Not: Bana sadece dengeli güç tasarrufu ve yüksek performans olsa yeterli.

[mehoaga]

Abi komşunu uyarmak yetmiyorsa zabıtaya şikayette bulunabilirsin ya da polise şikayetçi de olabilirsin huzurunu bozdukları için. O da çare olmazsa hukuki yoldan da halledebilirsin fakat onun için avukata bir danış derim.

Abisi komşum var polis ama yengen karşı çıkıyor bana ne gerekçesi varsa. Anlamadım gitti. Ama inanırmısın daha önceden 1. katta oturan kiracı dangıdı dangıdı son ses müzik dinliyordu ona nasıl tepki verdi anlamadım gitti ve soruyorum ona nasıl tepki verdin diyorum ve şaşıyorum. İşine gelene heee işine gelmeyene huuuu. Rahmetli babam hatuna birde oturduğumuz yeri vermiş Bu hallerini görse ev bağışlarmıydı acaba. Ev yıkılmış dağılmış kimin umurunda. Olan bana oluyor dostlar ne yapacağımı şaşırdım.

[Kayserilifatih]

Bizim komşu da bas son ses açık şekilde müzikli karaoke yapıyor aylardır iki sene oldu taşınalı kaç kere uyardık dinlemediler sonra polise şikayet edip zabıta çağıracağımı ya da kendi duyacakları ses seviyesinde karaoke yapmalarını aksi taktirde gürültü olduğunu söyledim şimdilik aramız iyi gibi gürültü daha az ve fazla rahatsız etmiyorlar ki şimdi de küçük av köpeğini bahçeye bağladılar ramazandan beri kronik olarak havlıyor ve eve alın köpeği dedik almadılar köpeği serbest bıraktılar bu sefer de arka sokaga falan gidiyor milleti falan takip ediyor, kovalıyor vs olay film gibi yani.

Geçen komşuyla kavga ettim dedim biz bu köpeği apartman olarak istemiyoruz böyle devam ederse apartmanı huzursuz etmeye ve bahçeye zarar vermeye devam ederse bu köpek bu gidişle dedim zabıtaya gideceğiz olmadı imza toplayıp belediyeye gideceğiz olmadı polise gideceğiz o da olmadı tüm hukuki haklarımızı apartman olarak sonuna kadar kullanacağız ve hala aynı durum devam ediyor bakalım nereye kadar devam edecek bu olay çok merak ediyorum.

[mehoaga]

Bizim komşu da bas son ses açık şekilde müzikli karaoke yapıyor aylardır iki sene oldu taşınalı kaç kere uyardık dinlemediler sonra polise şikayet edip zabıta çağıracağımı ya da kendi duyacakları ses seviyesinde karaoke yapmalarını aksi taktirde gürültü olduğunu söyledim şimdilik aramız iyi gibi gürültü daha az ve fazla rahatsız etmiyorlar ki şimdi de küçük av köpeğini bahçeye bağladılar ramazandan beri kronik olarak havlıyor ve eve alın köpeği dedik almadılar köpeği serbest bıraktılar bu sefer de arka sokaga falan gidiyor milleti falan takip ediyor, kovalıyor vs olay film gibi yani.

Geçen komşuyla kavga ettim dedim biz bu köpeği apartman olarak istemiyoruz böyle devam ederse apartmanı huzursuz etmeye ve bahçeye zarar vermeye devam ederse bu köpek bu gidişle dedim zabıtaya gideceğiz olmadı imza toplayıp belediyeye gideceğiz olmadı polise gideceğiz o da olmadı tüm hukuki haklarımızı apartman olarak sonuna kadar kullanacağız ve hala aynı durum devam ediyor bakalım nereye kadar devam edecek bu olay çok merak ediyorum.

Ya abisi seninki bendende fenaymış valla arkadaş önüme şöyle laf söz dinleyen bir insanoğlu çıkmadı. rahmetli babamda bu kapı vurmasına fena kızardı yengen bana diyorki senin rahatsızlığından dolayı kimse senin dediğini uygulamak zorunda değil diyor. Bana psikiyatriye gitmemi öneriyorlar yaa Allah aşkına bana psiyarist ne yapacakki ben yine o gürültüyü duyacağım. Birde mesela satranç oynarken dikkatim fena dağılıyor. Mesela bankadan para transferi yapacağım dikkatim dağıldığında sen gelde gör halimi.

[Kayserilifatih]

Kimse kimsenin halinden kolay kolay anlamıyor günümüzde o yüzden halden anlayan insanlara cidden fazlasıyla ihtiyacımız var ve onların değerini bilmeliyiz. Umarım ikimizin de sorunları çözülür.

[mehoaga]

Kimse kimsenin halinden kolay kolay anlamıyor günümüzde o yüzden halden anlayan insanlara cidden fazlasıyla ihtiyacımız var ve onların değerini bilmeliyiz. Umarım ikimizin de sorunları çözülür.

İnş kardeşim inş. ama bir söz vardır " bülbülün çilesi olünce bitermiş" bizimkide öyle olacak gibime geliyor. Ondan önceki kiracı bundan beterdi evden çıkıp si... tir olup gittiler ama bunlarında ondan kalır yannı yok. Kardeşim rahmetli annem ben ilk okula giderken hergün kulağımı bükerdi. "aman oğlum öğretmenini can kulağıyla dinle, kimsenin bir şeyine sarkma istediğin bir şey varsa bize söyle biz alırız" derdi. Kardeşim önce aile eğitimi sonra okul eğitimi sonrasıda birazda içinde olacak. Yani ne kadar eğitimli olsun ar edep utanma sıkılma olmayınca ne kadar konuşsan boş boş boş. Yani bu konu tartışma götüren bir olaya dönüşmeden sonlandırayım bari.

[burak35]

Allah yardımcınız olsun. Gürültü patırtı hiç sevmem valla. Benim valideninde kulaklarda sorun var biraz. Bağıra bağıra konuşur.
Ona bile hep bağırma der dururum. Bizim alt kattada bi holigan var. Öğretmenlikten atılma. Adam sürekli maç izliyo.
Kadıköysporun maçı olunca gümbür gümbür ses geliyo. BEnim odanın altında oturuyo sanırım. Onların gürültüsü olduğu gibi benim odada.
Bikaç kez kibarca uyardım sallamadılar. Bende bi daha muhattap olmadım. Ne fanatik holigan insanlar var ya.
Sürekli tadic dzeko fred talisca diye bağırıp bağırıp duruyorlar arkadaş. Allahtan geçen gün türkiye kupasında eze eze yendikte sesleri kesildi.
Tam sopalık hepsi ya. Neyse İnşallah çözersiniz sorunu. Kibarca uyarın önce. Baktınız olmuyo ya şikayet edeceğinizi söyleyin,
Yada savcılığa mahkemeye vereceğinizi söyleyin. Bende hiç sevmem gürültü. Gürültü olunca izlediğimi dinlediğimi bile anlamıyorum valla.
Allahtan kulaklığım var. Ama o da bozuldu sanırım. Bir tekinden ses geliyo. Öteki tekinden gelmiyo. Ne yapacağımı bende pek bilemiyorum.
Yalnız yukardaki scriptleri mutlaka deneyin. Umarım sorunu çözersiniz.

[TRWE_2012]

Kod: Tümünü seç

Set shell = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
Set plans = CreateObject("Scripting.Dictionary")

' Yönetici olarak çalışmıyorsa kendini tekrar yönetici olarak başlatır
If Not shell.Environment("PROCESS")("USERNAME") = "SYSTEM" Then
    If WScript.Arguments.Count = 0 Then
        shell.Run "wscript.exe """ & WScript.ScriptFullName & """ runas", 1, False
        WScript.Quit
    End If
End If

' Güç planlarını yedekleme veya geri yükleme işlemi
Dim yedekDosyasi
yedekDosyasi = "C:\GucPlanYedek.reg"

' Yedek dosyası varsa geri yükle
If fso.FileExists(yedekDosyasi) Then
    MsgBox "Yedeklerin varmış sayın kullanıcı! Yedekler geri yüklendi. Betik sonlandırılıyor.", vbInformation
    shell.Run "powercfg /import """ & yedekDosyasi & """", 0, True
    WScript.Quit
End If

' Planları oluşturma fonksiyonu
Function PlanOlustur(temelGuid, yeniIsim)
    Set exec = shell.Exec("powercfg /query")
    Set result = shell.Exec("powercfg -duplicatescheme " & temelGuid)
    planGUID = ""
    Do Until result.StdOut.AtEndOfStream
        s = result.StdOut.ReadLine
        If InStr(s, ":") > 0 Then planGUID = Trim(Split(s, ":")(1))
    Loop
    If planGUID <> "" Then
        shell.Run "powercfg /changename " & planGUID & " """ & yeniIsim & """", 0, True
    End If
    PlanOlustur = planGUID
End Function

' Güç planlarını oluştur
tasarrufID = PlanOlustur("a1841308-3541-4fab-bc81-f71556f20b4a", "🟡 Güç Tasarrufu")
performansID = PlanOlustur("8c5e7fda-e8bf-4a96-9a85-a6e23a8c635c", "🔴 Yüksek Performans")
ultimateID = PlanOlustur("e9a42b02-d5df-448d-aa00-03f14749eb61", "🔵 Nihai Performans")
oyunID = PlanOlustur("8c5e7fda-e8bf-4a96-9a85-a6e23a8c635c", "🟣 Oyun Modu")
sessizID = PlanOlustur("a1841308-3541-4fab-bc81-f71556f20b4a", "🟢 Sessiz Çalışma")
pilID = PlanOlustur("a1841308-3541-4fab-bc81-f71556f20b4a", "🟢 Pil Uzatıcı")

' Kullanıcıya plan seçmesi için seçenek sunma
selectedPlan = MsgBox("Aktif plan seçin:" & vbCrLf & _
"1. 🟡 Güç Tasarrufu" & vbCrLf & _
"2. 🔴 Yüksek Performans" & vbCrLf & _
"3. 🔵 Nihai Performans" & vbCrLf & _
"4. 🟣 Oyun Modu" & vbCrLf & _
"5. 🟢 Sessiz Çalışma" & vbCrLf & _
"6. 🟢 Pil Uzatıcı", vbQuestion + vbYesNoCancel, "Aktif Plan Seçimi")

' Seçilen planı aktif etme
If selectedPlan = 1 Then
    shell.Run "powercfg /setactive " & tasarrufID, 0, True
    MsgBox "🟡 Güç Tasarrufu planı aktif edildi.", vbInformation
ElseIf selectedPlan = 2 Then
    shell.Run "powercfg /setactive " & performansID, 0, True
    MsgBox "🔴 Yüksek Performans planı aktif edildi.", vbInformation
ElseIf selectedPlan = 3 Then
    shell.Run "powercfg /setactive " & ultimateID, 0, True
    MsgBox "🔵 Nihai Performans planı aktif edildi.", vbInformation
ElseIf selectedPlan = 4 Then
    shell.Run "powercfg /setactive " & oyunID, 0, True
    MsgBox "🟣 Oyun Modu planı aktif edildi.", vbInformation
ElseIf selectedPlan = 5 Then
    shell.Run "powercfg /setactive " & sessizID, 0, True
    MsgBox "🟢 Sessiz Çalışma planı aktif edildi.", vbInformation
ElseIf selectedPlan = 6 Then
    shell.Run "powercfg /setactive " & pilID, 0, True
    MsgBox "🟢 Pil Uzatıcı planı aktif edildi.", vbInformation
Else
    MsgBox "Geçersiz seçenek, hiçbir plan aktif edilmedi.", vbCritical
    WScript.Quit
End If

' Yedekleme işlemi
shell.Run "powercfg /export """ & yedekDosyasi & """ /guid " & tasarrufID, 0, True
shell.Run "powercfg /export """ & yedekDosyasi & """ /guid " & performansID, 0, True
shell.Run "powercfg /export """ & yedekDosyasi & """ /guid " & ultimateID, 0, True
shell.Run "powercfg /export """ & yedekDosyasi & """ /guid " & oyunID, 0, True
shell.Run "powercfg /export """ & yedekDosyasi & """ /guid " & sessizID, 0, True
shell.Run "powercfg /export """ & yedekDosyasi & """ /guid " & pilID, 0, True

' Bitirme mesajı
MsgBox "Güç planları oluşturuldu ve yedeklendi. Lütfen güncellemeler sonrası tekrar çalıştırarak yedekleri geri yükleyin.", vbInformation

ÖZET AÇIKLAMA :

GÜNCEL BETİĞİN ÖZETİ

1. Yönetici Yetkisi Kontrolü

Betik yönetici olarak çalışmıyorsa kendini runas parametresi ile tekrar başlatıyor.

2. Yedekleme ve Geri Yükleme

C:\GucPlanYedek.reg dosyası varsa:

Güç planlarını tekrar oluşturmaz.
Mevcut yedeği geri yükler.
Kullanıcıyı bilgilendirip betiği sonlandırır.

Eğer yedek yoksa:

Güç planlarını sıfırdan oluşturur.
Yedekleme işlemi sonunda yapılır.

3. Planların Oluşturulması (6 Adet)

Her biri belirli GUID’lerle oluşturuluyor:

Güç Tasarrufu – power saver
Yüksek Performans – high performance
Nihai Performans – ultimate performance
Oyun Modu – özel plan
Sessiz Çalışma – özel plan
Pil Uzatıcı – özel plan

4. Aktif Plan Seçimi

Kullanıcıya 1–6 arasında seçim yapma imkanı veriliyor.
Seçilen plan doğrudan aktif ediliyor.
Hangi planın aktif edildiği mesaj olarak bildiriliyor.

5. Planların Yedeklenmesi

Her plan powercfg /export komutu ile C:\GucPlanYedek.reg dosyasına yedekleniyor.

Not: Aynı dosya üzerine yedekler ardışık olarak eklenmiyor, üst üste yazılır, yani sadece son export geçerli olur.

6. Bilgilendirme

İşlem başarıyla tamamlandığında kullanıcıya sonuç bildirilir.

Özetle Ne Oluyor?

Yönetici olarak çalıştırmak ve yedek kontrolü yapılır.
Eğer yedekler yoksa, 6 özel güç planı oluşturulur ve aktif hale getirilir.
Kullanıcıya planları seçme imkanı verilir ve seçilen plan aktif hale gelir.
Yedekleme yapılır, böylece planlar kaybolursa geri yüklenebilir.
Yedek dosyası varsa, planlar geri yüklenir ve kullanıcıya bilgilendirme yapılır.

Bu süreç tüm Windows kullanıcıları için sistem güç planlarını kolayca yönetmeyi sağlar.

Yani nur topu gibi 6 tane planın oldu...

Güç Tasarrufu (power saver)
Yüksek Performans (high performance)
Nihai Performans (ultimate performance)
Oyun Modu (special plan for you)
Sessiz Çalışma (silent mode)
Pil Uzatıcı (battery saver)

Güle güle kullan (artık daha ne yapayım...)

NOT:

ÖNCE yukarıdaki betikleri dene olmazsa bunu dene....

Sistemi yeniden başlattığında eğer planlar uçarsa sadece betiği yönetici olarak çalıştır yeter gerisini betik halledecek...

Abisi sana nasıl teşekkür edeyim bilemiyorum Allah senden ve yardım eden herkesten ve Tarkan hocamızdan razı olsun. Belki bu işi teşekkürler de halletmez ama yakınımda olsan bir yemek davetim olurdu diycem ama herhalde buda rüşvete girmez sanırım.
Ellerine kollarına ve emeklerine sağlık. Semden son ricam bana nerden başlayacağımı ve sırasıyla nasıl yapacağımıda söylersen bu konuda seni tekrar rahatsız etmeyeyim. İyiki buraya üye olmuşum. İyiki varsınız hepinizle gurur duyuyorum. Can arkadaşlarım benim.Selametle kalınız.
Not: Bana sadece dengeli güç tasarrufu ve yüksek performans olsa yeterli.

Bir Metin Dosyasından .VBS Dosyası Oluşturma Adımları

1. Masaüstüne sağ tıklayın.
- Açılan menüden Yeni → Metin Belgesi seçeneğini tıklayın.

2. Yeni metin dosyasına çift tıklayarak açın.
- Dosya genellikle “Yeni Metin Belgesi.txt” olarak adlandırılır.

3. Aşağıdaki VBS kodunu yazın veya yapıştırın:

Kod: Tümünü seç

Set shell = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
Set plans = CreateObject("Scripting.Dictionary")

' Yönetici olarak çalışmıyorsa kendini tekrar yönetici olarak başlatır
If Not shell.Environment("PROCESS")("USERNAME") = "SYSTEM" Then
    If WScript.Arguments.Count = 0 Then
        shell.Run "wscript.exe """ & WScript.ScriptFullName & """ runas", 1, False
        WScript.Quit
    End If
End If

' Güç planlarını yedekleme veya geri yükleme işlemi
Dim yedekDosyasi
yedekDosyasi = "C:\GucPlanYedek.reg"

' Yedek dosyası varsa geri yükle
If fso.FileExists(yedekDosyasi) Then
    MsgBox "Yedeklerin varmış sayın kullanıcı! Yedekler geri yüklendi. Betik sonlandırılıyor.", vbInformation
    shell.Run "powercfg /import """ & yedekDosyasi & """", 0, True
    WScript.Quit
End If

' Planları oluşturma fonksiyonu
Function PlanOlustur(temelGuid, yeniIsim)
    Set exec = shell.Exec("powercfg /query")
    Set result = shell.Exec("powercfg -duplicatescheme " & temelGuid)
    planGUID = ""
    Do Until result.StdOut.AtEndOfStream
        s = result.StdOut.ReadLine
        If InStr(s, ":") > 0 Then planGUID = Trim(Split(s, ":")(1))
    Loop
    If planGUID <> "" Then
        shell.Run "powercfg /changename " & planGUID & " """ & yeniIsim & """", 0, True
    End If
    PlanOlustur = planGUID
End Function

' Güç planlarını oluştur
tasarrufID = PlanOlustur("a1841308-3541-4fab-bc81-f71556f20b4a", "🟡 Güç Tasarrufu")
performansID = PlanOlustur("8c5e7fda-e8bf-4a96-9a85-a6e23a8c635c", "🔴 Yüksek Performans")
ultimateID = PlanOlustur("e9a42b02-d5df-448d-aa00-03f14749eb61", "🔵 Nihai Performans")
oyunID = PlanOlustur("8c5e7fda-e8bf-4a96-9a85-a6e23a8c635c", "🟣 Oyun Modu")
sessizID = PlanOlustur("a1841308-3541-4fab-bc81-f71556f20b4a", "🟢 Sessiz Çalışma")
pilID = PlanOlustur("a1841308-3541-4fab-bc81-f71556f20b4a", "🟢 Pil Uzatıcı")

' Kullanıcıya plan seçmesi için seçenek sunma
selectedPlan = MsgBox("Aktif plan seçin:" & vbCrLf & _
"1. 🟡 Güç Tasarrufu" & vbCrLf & _
"2. 🔴 Yüksek Performans" & vbCrLf & _
"3. 🔵 Nihai Performans" & vbCrLf & _
"4. 🟣 Oyun Modu" & vbCrLf & _
"5. 🟢 Sessiz Çalışma" & vbCrLf & _
"6. 🟢 Pil Uzatıcı", vbQuestion + vbYesNoCancel, "Aktif Plan Seçimi")

' Seçilen planı aktif etme
If selectedPlan = 1 Then
    shell.Run "powercfg /setactive " & tasarrufID, 0, True
    MsgBox "🟡 Güç Tasarrufu planı aktif edildi.", vbInformation
ElseIf selectedPlan = 2 Then
    shell.Run "powercfg /setactive " & performansID, 0, True
    MsgBox "🔴 Yüksek Performans planı aktif edildi.", vbInformation
ElseIf selectedPlan = 3 Then
    shell.Run "powercfg /setactive " & ultimateID, 0, True
    MsgBox "🔵 Nihai Performans planı aktif edildi.", vbInformation
ElseIf selectedPlan = 4 Then
    shell.Run "powercfg /setactive " & oyunID, 0, True
    MsgBox "🟣 Oyun Modu planı aktif edildi.", vbInformation
ElseIf selectedPlan = 5 Then
    shell.Run "powercfg /setactive " & sessizID, 0, True
    MsgBox "🟢 Sessiz Çalışma planı aktif edildi.", vbInformation
ElseIf selectedPlan = 6 Then
    shell.Run "powercfg /setactive " & pilID, 0, True
    MsgBox "🟢 Pil Uzatıcı planı aktif edildi.", vbInformation
Else
    MsgBox "Geçersiz seçenek, hiçbir plan aktif edilmedi.", vbCritical
    WScript.Quit
End If

' Yedekleme işlemi
shell.Run "powercfg /export """ & yedekDosyasi & """ /guid " & tasarrufID, 0, True
shell.Run "powercfg /export """ & yedekDosyasi & """ /guid " & performansID, 0, True
shell.Run "powercfg /export """ & yedekDosyasi & """ /guid " & ultimateID, 0, True
shell.Run "powercfg /export """ & yedekDosyasi & """ /guid " & oyunID, 0, True
shell.Run "powercfg /export """ & yedekDosyasi & """ /guid " & sessizID, 0, True
shell.Run "powercfg /export """ & yedekDosyasi & """ /guid " & pilID, 0, True

' Bitirme mesajı
MsgBox "Güç planları oluşturuldu ve yedeklendi. Lütfen güncellemeler sonrası tekrar çalıştırarak yedekleri geri yükleyin.", vbInformation

4. Dosyayı farklı kaydedin.
- Üst menüden Dosya → Farklı Kaydet... seçeneğine tıklayın.

5. Aşağıdaki ayarları yapın:
- Dosya adı: Güç_Seçenekleri v0.01.vbs (Sonu mutlaka .vbs olmalı)
- Kayıt türü: Tüm Dosyalar (*.*) olarak ayarlayın.
- Kodlama: ANSI veya UTF-8 seçilebilir.

6. Kaydet düğmesine tıklayın.
- Artık masaüstünüzde bir .vbs dosyası oluşmuş olmalı.

7. Oluşan dosyaya çift tıklayarak çalıştırın.
- Script çalışıyorsa işlem başarıyla tamamlanmış demektir.
----------------------------------------------------------------------------------
İpucu:
.vbs dosyasını oluştururken yanlışlıkla .txt uzantısıyla kaydederseniz çalışmaz. Kaydederken “Tüm Dosyalar” seçildiğinden emin olun ve uzantının sonunda mutlaka .vbs olduğuna dikkat edin.