mreceplafci

Olur Üstad. 4,2 Kb'tan, 1,2 Kb'a düşmüş dosya boyutu. Elinize, emeğinize sağlık. Hakkınızı helal edin lütfen.

Üstad, İşi bilen ile öğrenmeye çalışan arasındaki fark böyle bir şeydir. Tekrar teşekkür ediyor ve saygılarımı sunuyorum.

Dosyanın Son Düzenlenmiş Şekli

Ü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.

@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"

İ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

Oldu Üstad, ilk sorunlu yeri düzeltti. Şimdi sıra diğer yerlerde. Tekrar teşekkür ediyorum. Sizi çok uğraştırdım. set "regkey=HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced" Bu şekilde ilk çıktıyı verdi, olması gerektiği gibi.

$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.

Registry sınırı olmasa yine de uğraşılırdı. Tekrar teşekkürler Üstad, ellerinize sağlık.

Teşekkürler, şimdi oldu Üstad.

bu kadar kodu rege sıgdıramaya bilirsin, yanlış hatırlamıyorsam bi karakter limiti vardı.. Bu limiti bilmiyordum. son yazdıgım kodu gordunmu.?? Teşekkür ederim, gördüm Üstad.

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.

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ı.

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.

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"}"