Portable qBittorrent
Цитата: admin от 12.01.2022, 23:31Цитата: Hz от 12.01.2022, 22:21Всем здравствуйте! Из предыдущих постов перестал понимать, достаточно ли для обновления/отката просто заменить экзешник на новый из установщика или нет?
Привет 🖐
Достаточно просто exe заменить.Это навело на мысль о том, что нужно улучшить распаковку...
Чтобы обновлял только exe, если уже есть свои настройки. Скоро сделаю.
Цитата: Hz от 12.01.2022, 22:21Всем здравствуйте! Из предыдущих постов перестал понимать, достаточно ли для обновления/отката просто заменить экзешник на новый из установщика или нет?
Привет 🖐
Достаточно просто exe заменить.
Это навело на мысль о том, что нужно улучшить распаковку...
Чтобы обновлял только exe, если уже есть свои настройки. Скоро сделаю.
Цитата: admin от 12.01.2022, 23:57Всё, можно спокойно распаковать туда же, как обычно – если обнаружатся настройки, то обновится только исполняемый файл.
Также не будет по 100 раз спрашивать про привязку расширений.
Сергей, папку
profileв sfx переименовать вprofile_checker[spoiler title="Привязать расширения.vbs"]
if not WScript.Arguments.Named.Exists("elevate") then CreateObject("Shell.Application").ShellExecute WScript.FullName _ , """" & WScript.ScriptFullName & """ /elevate", "", "runas", 1 WScript.Quit end if scriptdir = replace(WScript.ScriptFullName,WScript.ScriptName,"") set fso = CreateObject("Scripting.FileSystemObject") if fso.FolderExists(scriptdir & "profile") then fso.DeleteFolder(scriptdir & "profile_checker") WScript.Quit else fso.MoveFolder scriptdir & "profile_checker", scriptdir & "profile" end if Response = MsgBox("Хотите привязать расширение .torrent к qBittorrent?", vbYesNo + vbQuestion, "Ассоциация файлов") if Response = vbYes then set key = CreateObject("WScript.Shell") scriptdir = replace(WScript.ScriptFullName,WScript.ScriptName,"") key.RegWrite "HKCR\.torrent\", "qBittorrent" key.RegWrite "HKCR\qBittorrent\DefaultIcon\", scriptdir & "qbittorrent.exe,1" key.RegWrite "HKCR\qBittorrent\shell\open\command\", """" & scriptdir & "qbittorrent.exe"" ""%1""" MsgBox "Готовченко!", vbOKOnly + vbInformation, "Ассоциация файлов" end if Response = MsgBox("Хотите привязать magnet-ссылки к qBittorrent?", vbYesNo + vbQuestion, "Ассоциация файлов") if Response = vbYes then set key = CreateObject("WScript.Shell") scriptdir = replace(WScript.ScriptFullName,WScript.ScriptName,"") key.RegWrite "HKCR\magnet\URL Protocol", "" key.RegWrite "HKCR\magnet\shell\open\command\", """" & scriptdir & "qbittorrent.exe"" ""%1""" MsgBox "Готовченко!", vbOKOnly + vbInformation, "Ассоциация файлов" else Wscript.Quit end if[/spoiler]
Всё, можно спокойно распаковать туда же, как обычно – если обнаружатся настройки, то обновится только исполняемый файл.
Также не будет по 100 раз спрашивать про привязку расширений.
Сергей, папку Скопированоprofile в sfx переименовать в Скопированоprofile_checker
if not WScript.Arguments.Named.Exists("elevate") then
CreateObject("Shell.Application").ShellExecute WScript.FullName _
, """" & WScript.ScriptFullName & """ /elevate", "", "runas", 1
WScript.Quit
end if
scriptdir = replace(WScript.ScriptFullName,WScript.ScriptName,"")
set fso = CreateObject("Scripting.FileSystemObject")
if fso.FolderExists(scriptdir & "profile") then
fso.DeleteFolder(scriptdir & "profile_checker")
WScript.Quit
else
fso.MoveFolder scriptdir & "profile_checker", scriptdir & "profile"
end if
Response = MsgBox("Хотите привязать расширение .torrent к qBittorrent?", vbYesNo + vbQuestion, "Ассоциация файлов")
if Response = vbYes then
set key = CreateObject("WScript.Shell")
scriptdir = replace(WScript.ScriptFullName,WScript.ScriptName,"")
key.RegWrite "HKCR\.torrent\", "qBittorrent"
key.RegWrite "HKCR\qBittorrent\DefaultIcon\", scriptdir & "qbittorrent.exe,1"
key.RegWrite "HKCR\qBittorrent\shell\open\command\", """" & scriptdir & "qbittorrent.exe"" ""%1"""
MsgBox "Готовченко!", vbOKOnly + vbInformation, "Ассоциация файлов"
end if
Response = MsgBox("Хотите привязать magnet-ссылки к qBittorrent?", vbYesNo + vbQuestion, "Ассоциация файлов")
if Response = vbYes then
set key = CreateObject("WScript.Shell")
scriptdir = replace(WScript.ScriptFullName,WScript.ScriptName,"")
key.RegWrite "HKCR\magnet\URL Protocol", ""
key.RegWrite "HKCR\magnet\shell\open\command\", """" & scriptdir & "qbittorrent.exe"" ""%1"""
MsgBox "Готовченко!", vbOKOnly + vbInformation, "Ассоциация файлов"
else
Wscript.Quit
end if

Цитата: Удаленный пользователь от 13.01.2022, 08:18Доброе утро ☀
Хачатур, спасибо большое =)
Обновил архивы 👏
Доброе утро ☀
Хачатур, спасибо большое =)
Обновил архивы 👏
Цитата: Удаленный пользователь от 20.01.2022, 00:05Здарова. У меня почему-то файлики торрентов выглядят как значки главной иконки программы, хотя, вроде как, должны иметь вид бумажного листа с иконкой. Как исправить, чтобы не путаться?
Здарова. У меня почему-то файлики торрентов выглядят как значки главной иконки программы, хотя, вроде как, должны иметь вид бумажного листа с иконкой. Как исправить, чтобы не путаться?
Цитата: Удаленный пользователь от 20.01.2022, 00:08Цитата: Dmitry от 20.01.2022, 00:05Здарова. У меня почему-то файлики торрентов выглядят как значки главной иконки программы, хотя, вроде как, должны иметь вид бумажного листа с иконкой. Как исправить, чтобы не путаться?
Привет. Попробуй сбросить ассоциации, очистить кеш иконок, а потом снова привязать.
Цитата: Dmitry от 20.01.2022, 00:05Здарова. У меня почему-то файлики торрентов выглядят как значки главной иконки программы, хотя, вроде как, должны иметь вид бумажного листа с иконкой. Как исправить, чтобы не путаться?
Привет. Попробуй сбросить ассоциации, очистить кеш иконок, а потом снова привязать.
Цитата: Удаленный пользователь от 20.01.2022, 00:18Цитата: 𝐓𝐇𝐎𝐑𝐭𝐢𝐤 от 20.01.2022, 00:08Цитата: Dmitry от 20.01.2022, 00:05Здарова. У меня почему-то файлики торрентов выглядят как значки главной иконки программы, хотя, вроде как, должны иметь вид бумажного листа с иконкой. Как исправить, чтобы не путаться?
Привет. Попробуй сбросить ассоциации, очистить кеш иконок, а потом снова привязать.
А как иконки почистить?
Цитата: 𝐓𝐇𝐎𝐑𝐭𝐢𝐤 от 20.01.2022, 00:08Цитата: Dmitry от 20.01.2022, 00:05Здарова. У меня почему-то файлики торрентов выглядят как значки главной иконки программы, хотя, вроде как, должны иметь вид бумажного листа с иконкой. Как исправить, чтобы не путаться?
Привет. Попробуй сбросить ассоциации, очистить кеш иконок, а потом снова привязать.
А как иконки почистить?
Цитата: Удаленный пользователь от 20.01.2022, 00:28Цитата: Dmitry от 20.01.2022, 00:18Цитата: 𝐓𝐇𝐎𝐑𝐭𝐢𝐤 от 20.01.2022, 00:08Цитата: Dmitry от 20.01.2022, 00:05Здарова. У меня почему-то файлики торрентов выглядят как значки главной иконки программы, хотя, вроде как, должны иметь вид бумажного листа с иконкой. Как исправить, чтобы не путаться?
Привет. Попробуй сбросить ассоциации, очистить кеш иконок, а потом снова привязать.
А как иконки почистить?
Твикером, например).
Цитата: Dmitry от 20.01.2022, 00:18Цитата: 𝐓𝐇𝐎𝐑𝐭𝐢𝐤 от 20.01.2022, 00:08Цитата: Dmitry от 20.01.2022, 00:05Здарова. У меня почему-то файлики торрентов выглядят как значки главной иконки программы, хотя, вроде как, должны иметь вид бумажного листа с иконкой. Как исправить, чтобы не путаться?
Привет. Попробуй сбросить ассоциации, очистить кеш иконок, а потом снова привязать.
А как иконки почистить?
Твикером, например).
Цитата: Удаленный пользователь от 20.01.2022, 00:30Цитата: 𝐓𝐇𝐎𝐑𝐭𝐢𝐤 от 20.01.2022, 00:28Цитата: Dmitry от 20.01.2022, 00:18Цитата: 𝐓𝐇𝐎𝐑𝐭𝐢𝐤 от 20.01.2022, 00:08Цитата: Dmitry от 20.01.2022, 00:05Здарова. У меня почему-то файлики торрентов выглядят как значки главной иконки программы, хотя, вроде как, должны иметь вид бумажного листа с иконкой. Как исправить, чтобы не путаться?
Привет. Попробуй сбросить ассоциации, очистить кеш иконок, а потом снова привязать.
А как иконки почистить?
Твикером, например).
Я не знаю, где этот пункт, а всё подряд чистить не охота.)
Цитата: 𝐓𝐇𝐎𝐑𝐭𝐢𝐤 от 20.01.2022, 00:28Цитата: Dmitry от 20.01.2022, 00:18Цитата: 𝐓𝐇𝐎𝐑𝐭𝐢𝐤 от 20.01.2022, 00:08Цитата: Dmitry от 20.01.2022, 00:05Здарова. У меня почему-то файлики торрентов выглядят как значки главной иконки программы, хотя, вроде как, должны иметь вид бумажного листа с иконкой. Как исправить, чтобы не путаться?
Привет. Попробуй сбросить ассоциации, очистить кеш иконок, а потом снова привязать.
А как иконки почистить?
Твикером, например).
Я не знаю, где этот пункт, а всё подряд чистить не охота.)
Цитата: Удаленный пользователь от 20.01.2022, 00:32Я не знаю, где этот пункт, а всё подряд чистить не охота.)
Ты это шутишь?))
Ладно. Очистка ➜ 5й пункт (очистка кеша эскизов проводника). Reboot не забудь.
или вручную ➜
C:\Users\*твой профайл*\AppData\Local\Microsoft\Windows\Explorer(файлики iconcache и thumbcache) иC:\Users\*твой профайл*\AppData\Local\IconCache.db
Я не знаю, где этот пункт, а всё подряд чистить не охота.)
Ты это шутишь?))
Ладно. Очистка ➜ 5й пункт (очистка кеша эскизов проводника). Reboot не забудь.
или вручную ➜ СкопированоC:\Users\*твой профайл*\AppData\Local\Microsoft\Windows\Explorer (файлики iconcache и thumbcache) и СкопированоC:\Users\*твой профайл*\AppData\Local\IconCache.db
Цитата: Удаленный пользователь от 20.01.2022, 00:41Цитата: 𝐓𝐇𝐎𝐑𝐭𝐢𝐤 от 20.01.2022, 00:32Я не знаю, где этот пункт, а всё подряд чистить не охота.)
Ты это шутишь?))
Ладно. Очистка ➜ 5й пункт (очистка кеша эскизов проводника). Reboot не забудь.
или вручную ➜
C:\Users\*твой профайл*\AppData\Local\Microsoft\Windows\Explorer(файлики iconcache и thumbcache) иC:\Users\*твой профайл*\AppData\Local\IconCache.dbНет, не сработало.¯\_(ツ)_/¯
Цитата: 𝐓𝐇𝐎𝐑𝐭𝐢𝐤 от 20.01.2022, 00:32Я не знаю, где этот пункт, а всё подряд чистить не охота.)
Ты это шутишь?))
Ладно. Очистка ➜ 5й пункт (очистка кеша эскизов проводника). Reboot не забудь.
или вручную ➜
СкопированоC:\Users\*твой профайл*\AppData\Local\Microsoft\Windows\Explorer(файлики iconcache и thumbcache) иСкопированоC:\Users\*твой профайл*\AppData\Local\IconCache.db
Нет, не сработало.¯\_(ツ)_/¯