Jump to content

mreceplafci

Üye
  • Posts

    33
  • Joined

  • Last visited

Recent Profile Visitors

738 profile views

mreceplafci's Achievements

Explorer

Explorer (4/14)

  • Dedicated Rare
  • First Post Rare
  • Collaborator Rare
  • Conversation Starter Rare
  • Week One Done Rare

Recent Badges

21

Reputation

  1. 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.
  2. Üstad, İşi bilen ile öğrenmeye çalışan arasındaki fark böyle bir şeydir. Tekrar teşekkür ediyor ve saygılarımı sunuyorum.
  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.
  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"
  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
  6. 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.
  7. $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.
  8. Registry sınırı olmasa yine de uğraşılırdı. Tekrar teşekkürler Üstad, ellerinize sağlık.
  9. 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.
  10. 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.
  11. 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ı.
  12. 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.
  13. 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"}"
×
×
  • Create New...