Модераторы: Avada, CaptainFlint, Nik, d-view, Моторокер
Что подразумевается под "не сеанс по умолчанию"?MVV писал(а):Но юзер может использовать и не сеанс по умолчанию, тогда имя файла может быть не autosave.win.
М.б. MVV о профиле? Тогда autosave.win будет располагаться не в папке по умолчанию.Loopback писал(а):Единственное что не понял:Что подразумевается под "не сеанс по умолчанию"?MVV писал(а):Но юзер может использовать и не сеанс по умолчанию, тогда имя файла может быть не autosave.win.
Иначе имеет смысл остановиться на xmarksFree browser add-on that lets you stay in sync with your Firefox. Access your history, passwords, bookmarks and even open tabs across all your devices.
Код: Выделить всё
If MsgBox(4 + 32, "Вопрос", "Будут закрыты все открытые браузеры. Продолжать?") = 7 Then Exit
Dim $nBrowserCount = 4
Dim $aResults[$nBrowserCount]
WinClose("[CLASS:OpWindow]")
While WinExists("[CLASS:OpWindow]")
Sleep(500)
Wend
$aResults[0] = _ParseTabList_Opera(@AppDataDir & "\Opera\Opera\sessions\autosave.win")
WinClose("[CLASS:TfrmBrowserMDIMain.Orca.UnicodeClass]")
While WinExists("[CLASS:TfrmBrowserMDIMain.Orca.UnicodeClass]")
Sleep(500)
Wend
$aResults[1] = _ParseTabList_Orca("2491128.opg") ; @AppDataDir & "\Orca Profiles\.default\reopen.dat"
WinClose("[CLASS:Chrome_WidgetWin_0]")
While WinExists("[CLASS:Chrome_WidgetWin_0]")
Sleep(500)
Wend
$aResults[2] = _ParseTabList_Iron(@UserProfileDir & "\Local Settings\Application Data\Chromium\User Data\Default\Current Tabs")
WinClose("[CLASS:KMeleon Browser Window]")
While WinExists("[CLASS:KMeleon Browser Window]")
Sleep(500)
Wend
$aResults[3] = _ParseTabList_KMeleon("prefs.js") ; @AppDataDir & "\K-Meleon\?????????.default\prefs.js
; уберем дубликаты
$sResult = ""
For $i = 0 To $nBrowserCount - 1
$aTemp = $aResults[$i]
For $j = 0 To UBound($aTemp) - 1
If $aTemp[$j] = "" Then ContinueLoop
If StringInStr($sResult, $aTemp[$j] & @CRLF) Then ContinueLoop
$sResult &= $aTemp[$j] & @CRLF
Next
Next
; сохраним URL-ы
$hFile = FileOpen("urllist.txt", 2)
FileWrite($hFile, $sResult)
FileClose($hFile)
Func _ParseTabList_Opera($sFile)
Local $nURLCount, $nCount = IniRead($sFile, "session", "window count", "0")
If $nCount = 0 Then Return ""
Local $aRet[$nCount-1]
For $i = 2 To $nCount
$nURLCount = IniRead($sFile, $i & "history url", "count", "0")
If $nURLCount = 0 Then ContinueLoop
$aRet[$i-2] = IniRead($sFile, $i & "history url", $nURLCount - 1, "")
Next
Return $aRet
EndFunc
Func _ParseTabList_Orca($sFile)
Local $hFile = FileOpen($sFile, 128) ; force UTF-8 reading
Local $aRet = StringRegExp(FileRead($hFile), "(?m)^(http://.+?)\r?$", 3)
FileClose($hFile)
Return $aRet
EndFunc
Func _ParseTabList_Iron($sFile)
Local $hFile = FileOpen($sFile, 16) ; force UTF-8 reading
$bData = FileRead($hFile)
$nProtoPos = StringInStr($bData, "687474703A2F2F")
Local $aTemp[10000] ; должно хватить :)
Local $nCount = 0
$pByte = DllStructCreate("byte[4]")
$pInt = DllStructCreate("uint", DllStructGetPtr($pByte))
While $nProtoPos > 0
DllStructSetData($pByte, 1, BinaryMid($bData, $nProtoPos / 2 - 4, 4))
$nURLSize = DllStructGetData($pInt, 1)
$bData = BinaryMid($bData, $nProtoPos / 2)
$aTemp[$nCount] = BinaryToString(BinaryMid($bData, 1, $nURLSize))
$bData = BinaryMid($bData, $nURLSize)
$nCount += 1
$nProtoPos = StringInStr($bData, "687474703A2F2F")
WEnd
FileClose($hFile)
If $nCount = 0 Then Return ""
ReDim $aTemp[$nCount]
; реализуем список исключений
Local $aRet[$nCount], $nNewCount = 0
Local $aExcList[1] = ["http://google.com"]
For $i = 0 To $nCount - 1
For $j = 0 To UBound($aExcList) - 1
If StringInStr($aTemp[$i], $aExcList[$j]) = 1 Then ContinueLoop(2)
Next
$aRet[$nNewCount] = $aTemp[$i]
$nNewCount += 1
Next
ReDim $aRet[$nNewCount]
Return $aRet
EndFunc
Func _ParseTabList_KMeleon($sFile)
Local $sText = FileRead($sFile)
Local $sURLs = ""
Local $nWindowCount = StringRegExpReplace($sText, '(?s).+kmeleon.plugins.sessions2.Last\sSession.count",\s?(\d+).+', "\1")
For $i = 0 To $nWindowCount - 1
$nTabCount = StringRegExpReplace($sText, '(?s).+kmeleon.plugins.sessions2.Last\sSession.window' & $i & '.count",\s?(\d+).+', "\1")
For $j = 0 To $nTabCount - 1
$sCurTab = StringRegExpReplace($sText, '(?s).+kmeleon.plugins.sessions2.Last\sSession.window' & $i & '.tab' & $j & '",\s?"(.+?)".+', "\1")
$aCurTab = StringSplit($sCurTab, @TAB)
If $aCurTab[0] >= 5 Then $sURLs &= $aCurTab[5] & @LF
Next
Next
Return StringSplit(StringTrimRight($sURLs, 1), @LF, 2)
EndFunc
Код: Выделить всё
$aURL = StringSplit(FileRead("urllist.txt"), @LF)
For $i = 1 To $aURL[0]
If $aURL[$i] <> "" Then ShellExecute($aURL[$i])
Next
Видимо, одна из строк пуста или содержит лишь точку - в этом случае вызов функции запуска может открыть текущую папку.Flasher писал(а):Но запуск производится с открытием каталога в проводнике, где лежит скрипт.
Плагины я вообще не смотрел, а только зашел в настройки - и нашел возможность открывать последние вкладки при запуске.А вот с K-Melion что-то у меня не сложилось - не сохраняет он у меня вкладки, предлагает только закрыть.
Ты имеешь в виду, появляются ли предыдущие вкладки с перезапуском? Да.MVV писал(а):У вас вообще при закрытии Орки сохраняются вкладки?
Да, почему-то добавляется пустая строка.MVV писал(а):Видимо, одна из строк пуста
Было бы неплохо, хоть в техзадании я и говорил о дефолтном.MVV писал(а):Кстати, я бы запускал не просто ссылки, а нужный браузер со ссылкой в параметре.
Ну, Loopback изначально предупредил, что пути нужно изменить на правильные, я с этого, собственно, и начал.MVV писал(а):И на 7 винде надо проверить, где папка профиля хранится.
Мдя, программеры этого браузера оригиналы. В общем, если закрывать крестиком - то да, выдается запрос, и вкладки сохраняются в reopen.dat, а если закрыть его двойным кликом по иконке системного меню или Alt+F4 - то сохраняется без запроса в файл со случайным именем и расширением opg. Вот так.MVV писал(а):Имя файла reopen.dat далеко не случайное - т.е. меняться вряд ли будет.
Всё понятно, скачал какую-то бету 1.6.0, в ней ничего в файл не сохраняется. В 1.5.4 работает - вроде, но как-то невразумительно. Имхо, вообще какой-то невнятный браузер.MVV писал(а):Плагины я вообще не смотрел, а только зашел в настройки - и нашел возможность открывать последние вкладки при запуске.
Понял. Спасибо.Loopback писал(а):Запуск в нужном браузере - нужно просто поменять команду ShellExecute(...) на Run("path\to\browser\browser.exe " & $aURL[$i]) - если браузер просто принимает ссылки как параметр.
Если галка предварительно не была снята.Loopback писал(а):В общем, если закрывать крестиком - то да, выдается запрос, и вкладки сохраняются в reopen.dat,
Над ним работает малочисленная команда разработчиков-энтузиастов, раскиданных по всей Европе. Да, есть недостатки(и все они описаны), но достоинств, ИМХО, значительно больше.Loopback писал(а):Имхо, вообще какой-то невнятный браузер.
Охотно верю, но первое впечатление - над интуитивностью интерфейса им бы стоило поработать. Для меня совсем было неочевидно, что если программа спрашивает "Закрыть все вкладки?" - это еще не конец, и при определенных настройках они будут открываться при следующем запуске. Но даже при сделанных настройках вопрос о закрытии все равно зачем-то задается.Flasher писал(а): Да, есть недостатки(и все они описаны), но достоинств, ИМХО, значительно больше.
Естественно, файл-то существует. Это будет и с остальными браузерами.Flasher писал(а):Также есть такой негативный момент: если Опера закрыта, то ссылки всё равно сохраняются.
В смысле?Flasher писал(а):Так что с сохранением делать будем?
Ещё бы его распарсить.Loopback писал(а):Главное что файл я все-таки получил
Хм. Ну тогда это не удовлетворяет ТЗ. Ты же можешь проверять текущие процессы и задать условия выполнения функций?Loopback писал(а):Естественно, файл-то существует. Это будет и с остальными браузерами.
Ну пишу же, что в двух браузерах не работает.Loopback писал(а):В смысле?
Распарсим.Flasher писал(а):Ещё бы его распарсить.
Ну можно проверять наличие окна браузера или его процесса. Имеет смысл, только если запущено по одной копии каждого браузера.Flasher писал(а):Хм. Ну тогда это не удовлетворяет ТЗ. Ты же можешь проверять текущие процессы и задать условия выполнения функций?
У меня работает, иначе бы не выкладывал. Высылай свои файлы (чтобы в них хотя бы три-четыре вкладки было), завтра проверю.Flasher писал(а):Ну пишу же, что в двух браузерах не работает.
Насчёт копий не волнуйся, по несколько мне запускать не требуется. А K-Meleon так вообще всегда под одним процессом работает, две копии даже из разных источников запустить не удастся.Loopback писал(а):Ну можно проверять наличие окна браузера или его процесса. Имеет смысл, только если запущено по одной копии каждого браузера.
Не понял мысль. Браузер по умолчанию может быть только один. И какая разница к каким файлам прописывать пути? Почему не прокатит?Loopback писал(а):Если браузер установлен по-умолчанию, тут еще как-то можно попробовать найти нужные файлы, с портабельными версиями это не прокатит.
Я тут отловил другой алгоритм. reopen.dat - это временный файл, который живёт до первого открытия браузера, соответственно парсить его можно только когда Орка зактрыт. С opg ровно наоборот. Он записывает текущие ссылки в открытом браузере. Аналогичное поведение и с файлами Current Tabs/Session в профайле Iron. Только они не удаляются, а очищаются при открытии. Т.е. получается, что со всеми браузерами имеет смысл работать, только когда они закрыты. Посему добавляем в сценарий закрытие всех браузеров перед парсингом.Loopback писал(а):Мдя, программеры этого браузера оригиналы. В общем, если закрывать крестиком - то да, выдается запрос, и вкладки сохраняются в reopen.dat, а если закрыть его двойным кликом по иконке системного меню или Alt+F4 - то сохраняется без запроса в файл со случайным именем и расширением opg. Вот так.
Код: Выделить всё
$aResults[1] = _ParseTabList_Orca("*.opg") ; "c:\Users\Flasher\AppData\Roaming\Orca Profiles\.default\reopen.dat"
$aResults[2] = _ParseTabList_Iron("Last Tabs") ; "c:\Users\Flasher\AppData\Local\Chromium\User Data\Default\Last Tabs"