
mreceplafci
Üye-
Posts
33 -
Joined
-
Last visited
Recent Profile Visitors
1035 profile views
mreceplafci's Achievements
-
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"}"