Jump to content

mreceplafci

Üye
  • Posts

    38
  • Joined

  • Last visited

Posts posted by mreceplafci

  1. sakor64, 14 saat önce yazdı:

    Bilgisayarlar aynı anakarta,ekran kartına vs'e sahip miydi?

     Bir örnek vereyim:

    Okuldaki faz-2 etkileşimli tahtadan Dism++ ile .wim uzantılı aldığım yedeği,

    evimdeki 10 yıllık bilgisayarıma/oğlumun dizüstü bilgisayarına kurabiliyorum.

    Ancak yedek almadan önce, sadece ekran kartını (silmeden) devre dışı bırakıyorum.

    • Like 1
  2. Dosyanın Son Düzenlenmiş Şekli

    Alıntı

    Windows Registry Editor Version 5.00

    [HKEY_CLASSES_ROOT\DesktopBackground\Shell\GDGG]
    @="Gizli Dosyaları Göster / Gizle"
    "Icon"="shell32.dll,111"

    [HKEY_CLASSES_ROOT\DesktopBackground\Shell\GDGG\command]
    @="PowerShell -windowstyle hidden Add-Content -Path $env:SystemDrive\\Users\\$env:UserName\\AppData\\Local\\Temp\\Gizli_Dosyalar.bat '@echo off & setlocal';Add-Content $env:SystemDrive\\Users\\$env:UserName\\AppData\\Local\\Temp\\Gizli_Dosyalar.bat 'set \"\"\"regkey=HKEY_CURRENT_USER\\Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Advanced\"\"\"';Add-Content $env:SystemDrive\\Users\\$env:UserName\\AppData\\Local\\Temp\\Gizli_Dosyalar.bat 'for /f \"\"\"tokens=2*\"\"\" %%%%a in (''reg query %%regkey%% /v Hidden^|find \"\"\"REG_DWORD\"\"\"'') do set /a Hidden=%%%%b';Add-Content $env:SystemDrive\\Users\\$env:UserName\\AppData\\Local\\Temp\\Gizli_Dosyalar.bat 'for /f \"\"\"tokens=2*\"\"\" %%%%a in (''reg query %%regkey%% /v ShowSuperHidden^|find \"\"\"REG_DWORD\"\"\"'') do set /a SSuperHidden=%%%%b';Add-Content $env:SystemDrive\\Users\\$env:UserName\\AppData\\Local\\Temp\\Gizli_Dosyalar.bat 'if \"\"\"%%hidden%%\"\"\"==\"\"\"1\"\"\" (set /a hidden=2, SSuperHidden=0) else set /a hidden=1, SSuperHidden=1';Add-Content $env:SystemDrive\\Users\\$env:UserName\\AppData\\Local\\Temp\\Gizli_Dosyalar.bat 'reg add %%regkey%% /f /v Hidden /t REG_DWORD /d %%hidden%%';Add-Content $env:SystemDrive\\Users\\$env:UserName\\AppData\\Local\\Temp\\Gizli_Dosyalar.bat 'reg add %%regkey%% /f /v ShowSuperHidden /t REG_DWORD /d %%SSuperHidden%%';Add-Content $env:SystemDrive\\Users\\$env:UserName\\AppData\\Local\\Temp\\Gizli_Dosyalar.bat 'for /f \"\"\"tokens=2*\"\"\" %%%%a in (''reg query %%regkey%% /v Hidden^|find \"\"\"REG_DWORD\"\"\"'') do set /a Hidden=%%%%b';Add-Content $env:SystemDrive\\Users\\$env:UserName\\AppData\\Local\\Temp\\Gizli_Dosyalar.bat 'endlocal & taskkill /f /im explorer.exe & start explorer.exe';Start-Sleep -Seconds 1;Start $env:SystemDrive\\Users\\$env:UserName\\AppData\\Local\\Temp\\Gizli_Dosyalar.bat;Start-Sleep -Seconds 1;Remove-Item $env:SystemDrive\\Users\\$env:UserName\\AppData\\Local\\Temp\\Gizli_Dosyalar.bat"

     

  3. Üstad,

    Tekrar çok teşekkür ediyorum. Sayenizde günlerdir kafamda planladığım işi bitirebildim. Sizin desteğiniz, bilginiz ve ısrarınız olmasa bu iş, bu kadar kısa zamanda bitmezdi. Yaşım 50 - Elli - oldu ancak halen uğraşmayı seviyorum bu işlerle. Beynimi böyle dinlendirebiliyorum. Ellerinize, yüreğinize sağlık Üstad.

    • Like 1
  4. @orj_inal Üstad'ın büyük yardımlarıyla tamamlanmıştır. 

    Windows Registry Editor Version 5.00

    [HKEY_CLASSES_ROOT\DesktopBackground\Shell\GDGG]
    @="Gizli Dosyaları Göster / Gizle"
    "Icon"="shell32.dll,24"

    [HKEY_CLASSES_ROOT\DesktopBackground\Shell\GDGG\command]
    @="powershell Add-Content -Path Gizli_Dosyalar.bat '@echo off & setlocal';Add-Content -Path Gizli_Dosyalar.bat 'set \"\"\"regkey=HKEY_CURRENT_USER\\Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Advanced\"\"\"';Add-Content -Path Gizli_Dosyalar.bat 'for /f \"\"\"tokens=2*\"\"\" %%%%a in (''reg query %%regkey%% /v Hidden^|find \"\"\"REG_DWORD\"\"\"'') do set /a Hidden=%%%%b';Add-Content -Path Gizli_Dosyalar.bat 'for /f \"\"\"tokens=2*\"\"\" %%%%a in (''reg query %%regkey%% /v ShowSuperHidden^|find \"\"\"REG_DWORD\"\"\"'') do set /a SSuperHidden=%%%%b';Add-Content -Path Gizli_Dosyalar.bat 'if \"\"\"%%hidden%%\"\"\"==\"\"\"1\"\"\" (set /a hidden=2, SSuperHidden=0) else set /a hidden=1, SSuperHidden=1';Add-Content -Path Gizli_Dosyalar.bat 'reg add %%regkey%% /f /v Hidden /t REG_DWORD /d %%hidden%%';Add-Content -Path Gizli_Dosyalar.bat 'reg add %%regkey%% /f /v ShowSuperHidden /t REG_DWORD /d %%SSuperHidden%%';Add-Content -Path Gizli_Dosyalar.bat 'for /f \"\"\"tokens=2*\"\"\" %%%%a in (''reg query %%regkey%% /v Hidden^|find \"\"\"REG_DWORD\"\"\"'') do set /a Hidden=%%%%b';Add-Content -Path Gizli_Dosyalar.bat 'endlocal & taskkill /f /im explorer.exe & start explorer.exe';Start-Sleep -Seconds 1;Start Gizli_Dosyalar.bat;Start-Sleep -Seconds 1;Remove-Item Gizli_Dosyalar.bat"

    • Like 1
  5. İkinci satır da oldu.

    Registry Kaydı:

    Add-Content -Path Gizli_Dosyalar.bat 'for /f \"\"\"tokens=2*\"\"\" %%%%a in (''reg query %%regkey%% /v Hidden^|find \"\"\"REG_DWORD\"\"\"'') do set /a Hidden=%%%%b'

    Dosyaya yazılan çıktı:

    for /f "tokens=2*" %%a in ('reg query %regkey% /v Hidden^|find "REG_DWORD"') do set /a Hidden=%%b

    • Like 1
  6. $FileContent = Get-Content -Path Gizli_Dosyalar.bat;$FileContent.Replace(\"(reg query\",\"('reg query\") | Set-Content -Path Gizli_Dosyalar.bat;Start-Sleep -Seconds 1;$FileContent = Get-Content -Path Gizli_Dosyalar.bat;$FileContent.Replace(\")\",\"')\") | Set-Content -Path Gizli_Dosyalar.bat

    Bölümünü sildim.

    -----------------------------------------------------------------------------------------------

    %%%%a in (''reg query %%regkey%%      vb.  değiştirdim.

    -----------------------------------------------------------------------------------------------

    Windows Registry Editor Version 5.00

    [HKEY_CLASSES_ROOT\DesktopBackground\Shell\Deneme]
    @="Dosya Yaz"
    "Icon"="shell32.dll,24"

    [HKEY_CLASSES_ROOT\DesktopBackground\Shell\Deneme\command]
    @="powershell Add-Content -Path Gizli_Dosyalar.bat '@echo off & setlocal';Add-Content -Path Gizli_Dosyalar.bat 'set \"regkey=HKEY_CURRENT_USER\\Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Advanced\"';Add-Content -Path Gizli_Dosyalar.bat 'for /f \"tokens=2*\" %%%%a in (''reg query %%regkey%% /v Hidden^|find \"REG_DWORD\") do set /a Hidden=%%%%b';Add-Content -Path Gizli_Dosyalar.bat 'for /f \"tokens=2*\" %%%%a in (''reg query %%regkey%% /v ShowSuperHidden^|find \"REG_DWORD\") do set /a SSuperHidden=%%%%b';Add-Content -Path Gizli_Dosyalar.bat 'if \"%%hidden%%\"==\"1\" (set /a hidden=2, SSuperHidden=0) else set /a hidden=1, SSuperHidden=1';Add-Content -Path Gizli_Dosyalar.bat 'reg add %%regkey%% /f /v Hidden /t REG_DWORD /d %%hidden%%';Add-Content -Path Gizli_Dosyalar.bat 'reg add %%regkey%% /f /v ShowSuperHidden /t REG_DWORD /d %%SSuperHidden%%';Add-Content -Path Gizli_Dosyalar.bat 'for /f \"tokens=2*\" %%%%a in (''reg query %%regkey%% /v Hidden^|find \"REG_DWORD\") do set /a Hidden=%%%%b';Add-Content -Path Gizli_Dosyalar.bat 'endlocal & taskkill /f /im explorer.exe & start explorer.exe';Start-Sleep -Seconds 1;Start Gizli_Dosyalar.bat"

     

    Yukarıdaki  kod çalışıyor. 

    ----------------------------------------------------------------------------------------------

     

    Ancak; tek sorun kaldı:

    for /f "tokens=2*" %%a in ('reg query %regkey% /v ShowSuperHidden^|find "REG_DWORD"') do set /a SSuperHidden=%%b

    gibi satırlarda   çift tırnakların  hiç birini yazmıyor. 

     

     

  7. Add-Content -Path Gizli_Dosyalar.bat '@echo off & setlocal'
    Add-Content -Path Gizli_Dosyalar.bat 'set "regkey=HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced"'
    Add-Content -Path Gizli_Dosyalar.bat 'for /f "tokens=2*" %%a in (reg query %regkey% /v Hidden^|find "REG_DWORD") do set /a Hidden=%%b'
    Add-Content -Path Gizli_Dosyalar.bat 'for /f "tokens=2*" %%a in (reg query %regkey% /v ShowSuperHidden^|find "REG_DWORD") do set /a SSuperHidden=%%b'
    Add-Content -Path Gizli_Dosyalar.bat 'if "%hidden%"=="1" (set /a hidden=2, SSuperHidden=0) else set /a hidden=1, SSuperHidden=1'
    Add-Content -Path Gizli_Dosyalar.bat 'reg add %regkey% /f /v Hidden /t REG_DWORD /d %hidden%'
    Add-Content -Path Gizli_Dosyalar.bat 'reg add %regkey% /f /v ShowSuperHidden /t REG_DWORD /d %SSuperHidden%'
    Add-Content -Path Gizli_Dosyalar.bat 'for /f "tokens=2*" %%a in (reg query %regkey% /v Hidden^|find "REG_DWORD") do set /a Hidden=%%b'
    Add-Content -Path Gizli_Dosyalar.bat 'endlocal & taskkill /f /im explorer.exe & start explorer.exe'

    $FileContent = Get-Content -Path Gizli_Dosyalar.bat
    $FileContent.Replace("(reg query","('reg query") | Set-Content -Path Gizli_Dosyalar.bat
    Start-Sleep -Seconds 1

    $FileContent = Get-Content -Path Gizli_Dosyalar.bat
    $FileContent.Replace(")","')") | Set-Content -Path Gizli_Dosyalar.bat
    Start-Sleep -Seconds 1

    Yukarıdaki kodların hepsini %temp% klasöründe oluşturup, çağırmaya uğraşıyorum. Özellikle gizli sistem dosyaları için alt menü olmadan bir anahtar oluşturmak için Üstad.

  8. Windows Registry Editor Version 5.00


    [HKEY_CLASSES_ROOT\DesktopBackground\Shell\Deneme]
    @="Dosya Yaz"
    "Icon"="shell32.dll,24"


    [HKEY_CLASSES_ROOT\DesktopBackground\Shell\Deneme\command]
    @="PowerShell.exe Add-Content -Path Gizli_Dosyalar.bat '@echo off & setlocal'; Add-Content -Path Gizli_Dosyalar.bat '12345 set regkey Advanced'"

    Bu şekle çevirdim, ancak henüz tamamlanmadı.

  9. Windows Registry Editor Version 5.00
    [HKEY_CLASSES_ROOT\DesktopBackground\Shell\Deneme]
    [HKEY_CLASSES_ROOT\DesktopBackground\Shell\Deneme\command]
    @="PowerShell.exe New-Item -Path . -Name \"test.txt\" -ItemType \"file\" -Value \"123abc\""

    @orj_inal

    Teşekkürler üstad, elleriniz dert görmesin.

    Tam olarak aradığım kod, şiir gibi çalışıyor.

    • Like 1
  10. Aşağıdaki komutta, yanlış veya eksik olan bölümü çözemedim.

     

    Windows Registry Editor Version 5.00

    [HKEY_CLASSES_ROOT\DesktopBackground\Shell\Deneme]

    [HKEY_CLASSES_ROOT\DesktopBackground\Shell\Deneme\command]
    @="PowerShell.exe -Command /{New-Item -Path . -Name "test.txt" -ItemType "file" -Value "123abc"}"

     

  11. Registry ile sağ tıkta oluşturulan yeni bir menüde, 16 adetten fazla içeriği nasıl görünür hale getirebilirim?

    Yeni Bilgi

    Şöyle bir bilgi buldum ancak henüz çözüme ulaşamadım:

    Bir DLL olan KuShellExtension denemelisiniz. Son sürümün 2010'dan olduğunu unutmayın, 

    bu nedenle Windows 10'da bazı garip davranışlar olabilir. Ancak bu, dosya veya klasörler için 

    16'dan fazla içerik menüsü girişine izin veren eksiksiz bir çözümdür. ( Çevrilmiş metindir. )

    KuShellExtension Dosyası

    https://kushellextension.apps112.com/

    • Like 2
  12. Yabancı bir Autoit formunda bulmuştum.

    Biraz ekleme - çıkarma yaptım. Türkçeleştirdim.

    @Mehmet arkadaşımızın iletisinde dosyanın düzeltilmiş hali var.

    İş yoğunluğundan hata ile uğraşamadım. 

    Ayrıca kendisine çok teşekkür ediyorum.

    Ellerine, yüreğine sağlık Mehmet kardeşim.

    • Like 2
    • Thanks 1
×
×
  • Create New...