Fare & Klavye Mod Seçimi.PS1 Betiği

[TRWE_2012]

EKRAN GÖRÜNTÜLERİ : (Sistem : Windows11 Yapı 24H2 x64 Home TR)





SONUÇ :



Kontrol PS Kodlaması :



Fare & Klavye Mod Seçimi.PS1 Betiğinin Kod İçeriği :

Kod: Tümünü seç

# =========================
# Oyun / Günlük Modu Fare & Klavye Ayar Betiği
# TRWE_2012
# =========================

function Set-GameMode {
    Write-Host "`n[Oyun Modu Ayarlanıyor...]`n" -ForegroundColor Cyan

    # Fare Ayarları
    Set-ItemProperty -Path 'HKCU:\Control Panel\Mouse' -Name 'MouseSpeed' -Value '1'
    Set-ItemProperty -Path 'HKCU:\Control Panel\Mouse' -Name 'MouseSensitivity' -Value '15'
    Set-ItemProperty -Path 'HKCU:\Control Panel\Mouse' -Name 'DoubleClickSpeed' -Value '200'
    Set-ItemProperty -Path 'HKCU:\Control Panel\Desktop' -Name 'WheelScrollLines' -Value '4'

    # Klavye Ayarları
    Set-ItemProperty -Path 'HKCU:\Control Panel\Keyboard' -Name 'KeyboardDelay' -Value '0'
    Set-ItemProperty -Path 'HKCU:\Control Panel\Keyboard' -Name 'KeyboardSpeed' -Value '31'
    Set-ItemProperty -Path 'HKCU:\Control Panel\Keyboard' -Name 'InitialKeyboardIndicators' -Value '2'

    # Explorer yeniden başlatılıyor
    Stop-Process -Name explorer -Force
    Start-Process explorer

    Write-Host "`n[Oyun Modu Ayarları Tamamlandı!]" -ForegroundColor Green
}

function Set-DailyMode {
    Write-Host "`n[Günlük Modu Ayarlanıyor...]`n" -ForegroundColor Yellow

    # Fare Ayarları
    Set-ItemProperty -Path 'HKCU:\Control Panel\Mouse' -Name 'MouseSpeed' -Value '1'
    Set-ItemProperty -Path 'HKCU:\Control Panel\Mouse' -Name 'MouseSensitivity' -Value '10'
    Set-ItemProperty -Path 'HKCU:\Control Panel\Mouse' -Name 'DoubleClickSpeed' -Value '400'
    Set-ItemProperty -Path 'HKCU:\Control Panel\Desktop' -Name 'WheelScrollLines' -Value '3'

    # Klavye Ayarları
    Set-ItemProperty -Path 'HKCU:\Control Panel\Keyboard' -Name 'KeyboardDelay' -Value '1'
    Set-ItemProperty -Path 'HKCU:\Control Panel\Keyboard' -Name 'KeyboardSpeed' -Value '25'
    Set-ItemProperty -Path 'HKCU:\Control Panel\Keyboard' -Name 'InitialKeyboardIndicators' -Value '2'

    # Explorer yeniden başlatılıyor
    Stop-Process -Name explorer -Force
    Start-Process explorer

    Write-Host "`n[Günlük Modu Ayarları Tamamlandı!]" -ForegroundColor Green
}

# =========================
# Menü
# =========================
Clear-Host
Write-Host "===============================" -ForegroundColor Magenta
Write-Host " TRWE_2012 - Fare & Klavye Mod Seçimi" -ForegroundColor Magenta
Write-Host "===============================" -ForegroundColor Magenta
Write-Host "1. Oyun Modu" -ForegroundColor Cyan
Write-Host "2. Günlük Modu" -ForegroundColor Yellow
Write-Host "3. Çıkış" -ForegroundColor Red

$choice = Read-Host "`nSeçiminizi yapın (1-3)"

switch ($choice) {
    "1" { Set-GameMode }
    "2" { Set-DailyMode }
    "3" { Write-Host "`nÇıkılıyor..." -ForegroundColor Red; exit }
    default { Write-Host "`nGeçersiz seçim!"; exit }
}

# =========================
# Hashtags
# =========================
#Hashtags: #TRWE_2012 #PowerShell #OyunModu #GünlükModu #FareAyarları #KlavyeAyarları #PerformansOptimizasyonu

PS Kontrol Kod Bloğu :

Kod: Tümünü seç

# Fare ayarları
$mouse = Get-ItemProperty 'HKCU:\Control Panel\Mouse'
$desktop = Get-ItemProperty 'HKCU:\Control Panel\Desktop'
$keyboard = Get-ItemProperty 'HKCU:\Control Panel\Keyboard'

# Tüm ayarları tek tabloda göster
[PSCustomObject]@{
    MouseSpeed               = $mouse.MouseSpeed
    MouseSensitivity         = $mouse.MouseSensitivity
    DoubleClickSpeed         = $mouse.DoubleClickSpeed
    WheelScrollLines         = $desktop.WheelScrollLines
    KeyboardDelay            = $keyboard.KeyboardDelay
    KeyboardSpeed            = $keyboard.KeyboardSpeed
    InitialKeyboardIndicators = $keyboard.InitialKeyboardIndicators
}

Universal PS1 Runner.bat Dosyasının Bulunduğu Sordum Forum Konusu :

viewtopic.php?t=228327

Güle güle kullanın..Kullandıkça bu forum'u da hatırlayın....

[velociraptor]

Süpersin , eline sağlık.

[TRWE_2012]

Süpersin , eline sağlık.

Teşekkürler ilgine ve alakana....

Ben hiçbir zaman MS-Visual Basıc v6.0'dan kopamadım.Üniversite yıllarında tam iki dönem Vısual Basıc v6.0 üzerinden eğitim aldım.(öncesinde Q-Basıc v4.5 eğitimi verildi.)

Yani demek istediğim kodlama temelim var.Eskiden kendi başıma kodlama yapardım.Eğer kodlamada hata olursa bulamazdım sinirlenirdim çöpe atardım (silerdim) proje'yi...Asla gerçek mana da bir koder olmadım/olamadım..Çünkü koderlik biraz da sabır işi demek...Biz de o sabır'dan yok yada çok az....Ama hep içimde bir heves vardı.(hala da var)

Şimdi öyle değil, hata yaptığım yerde veya tıkandığım yerde YZ'den yardım alıyorum.Sonuçta ortaya kodsal eserler çıkıyor.