|
Приделал к Opere ContentSave
|
zio 01/28/04 05:20 AM |
|
Приделал к Opere ContentSaver _//www.macropool.com/_ работает, правда картинки с файлом не сохраняет, может кто посмотрит?
Подключение стандартное:
Item, "Test" =Execute program, "wscript", "//NOLOGO d:\cs.vbs %s"
текст скрипта cs.vbs:
------------------------------------------------------
'on error resume next
URL=""
For Each sArg In Wscript.Arguments
URL=URL+sArg+" "
Next
Trim(URL)
Set IE = Wscript.CreateObject("InternetExplorer.Application")
Set csNS = Wscript.CreateObject("CSObj.Namespace")
Set arc = csNS.DefaultArchive
IE.Navigate(URL)
Do While IE.Busy = true
Wscript.Sleep(1000)
Loop
Set Doc = IE.document
arc.AddDocument Doc.url, 100 , Doc.title, Doc.all.Item(NULL, 0).outerHTML, , 400
arc.NotifyCSApp 400
Set arc = Nothing
Set csNS = Nothing
Set Doc=Nothing
IE.Quit
Set IE =Nothing
------------------------------------------------------
|
|
Re: Приделал к Opere ContentSave
|
m1kky 02/02/04 10:35 PM |
|
у меня этот скрипт не работает почему-то, говорит не могу создать объект такой-то (Set csNS = Wscript.CreateObject("CSObj.Namespace"))
попросил помощи на нескольких програмерских форумах - тишина блин... в общем, как и здесь... идея то супер!!
|
|
Re: Приделал к Opere ContentSave
|
zio 02/04/04 02:53 AM |
|
А ContentSaver коректно установлен?
|
|
Re: Приделал к Opere ContentSave
|
m1kky 02/04/04 09:30 AM |
|
 , неа ж), а нах его ставить??? разве vbs-wsh так на винде не пашет?? щас поставлю, но 5 метров для этой функции тяжеловато будет..
|
|
Re: Приделал к Opere ContentSave
|
Mongoose 02/04/04 05:02 PM |
|
Ребята, вот вы о чём-то таком интересном говорите, но даже не объяснили, что это за скрипт и для чего он. Я, например, очегнь смутно понимаю, что это за чудо такое.
|
|
Re: Приделал к Opere ContentSave
|
m1kky 02/04/04 08:14 PM |
|
этот скрипт в качестве параметра, как я понял, принимает url текущего сайт(с которого вызываем), создаёт окно IE, с помощью его сохраняет страницу нормально как в IE и закрывается... вроде окно IE не должно показываться, хз короче, но если ещё для работы этого скрипта нужна та прога, которая для XP 5 мегов весит, то нафик нужно, да и даже с этой прогой скрипт у меня с ошибкой вылетал...
надо искать кодеров на wsh-vbs..
|
|
Re: Приделал к Opere ContentSave
|
zio 02/05/04 12:31 AM |
|
ContentSaver - программа которая ведет базу страничек с кучей наворотов, но работает только с IE, здесь описание _//www1.xakep.ru/magazine/xa/060/034/5.asp_
вот немного доработаный скрипт cs.vbs
----------------------------------
'on error resume next
Dim URL, title
Url=WScript.arguments(0)
If Instr(URL, "file://localhost/") <> 0 Then URL = Right(URL, Len(URL)-17)
if WScript.Arguments.Count>1 then title=WScript.Arguments(1)
Set IE = Wscript.CreateObject("InternetExplorer.Application")
IE.Navigate(URL)
Do While IE.Busy = true
Wscript.Sleep(1000)
Loop
Set Doc = IE.document
if Len(title)<>0 then Doc.title =title
Set csNS = Wscript.CreateObject("CSObj.Namespace")
Set arc = csNS.DefaultArchive
set d=arc.AddDocument(Doc.url, 100, Doc.title, Doc.all.Item(NULL, 0).outerHTML, , 400)
'Wscript.echo(d.EntryID)
arc.NotifyCSApp 400
Set arc = Nothing
Set csNS = Nothing
set Doc=Nothing
IE.Quit
Set IE =Nothing
-----------------------------------------
подключать так:
в файле меню добавить в раздел [Document Popup Menu] след. строку:
Item, "Save in ContentSaver" =Execute program, "wscript", "//NOLOGO cs.vbs %U %T"
при запуске скрипта, если на страничке будет выделен текст то он пойдет в заголовок для станички в CS
|
|
Re: Приделал к Opere ContentSave
|
m1kky 02/05/04 05:04 PM |
|
фигня короче, я думал можно как-то через WSH сделать, чтобы он автоматов сохранял странички и всё, а тут ещё cs качать... я попробую на PowerPro написать, но врядтли там получится...
надо только это переделать для автоматического сохранения в определённую папк ус именем <date>-<time>.html + папка с рисунками-стилями и сё...
|
|
Re: Приделал к Opere ContentSave
|
St_Hidden 09/05/04 05:29 PM |
|
zio подключать так:
в файле меню добавить в раздел [Document Popup Menu] след. строку:
Хотелось бы уточнить в каком именно файле это нужно делать? Очень хочется попробовать. Именно этого мне не хватает opere...
|
|
Re: Приделал к Opere ContentSave
|
Stinger 09/05/04 08:03 PM |
|
Как альтернатива ContentSaver-у есть еще такой замечательный web-органайзер CyberArticle (ранее называемый WebCatcher). Мощная вещь. Вроде как по праву считается одним из лучших среди себе подобных. В последних его версиях есть возможность прикрутить пункт в меню Оперы без всяких скриптов. Достаточно добавить одну строчку в секции [Link Popup Menu] и [Document Popup Menu]:
Item, "Сохранить в CyberArticle"=Execute program, "D:\CyberArticle\AddLink.exe","%l"
Как выглядит в связке с Оперой можете заценить на прикрепленном скрине. Прога живет тут: _//www.wizissoft.com_
|
|
Re: Приделал к Opere ContentSave
|
HDD 09/09/04 12:04 PM |
|
При работе CyberArticle с IE окно диалога загрузки CyberArticle появляется моментально,а с Opera приходится ждать долго(до 3 минут),а если страница большая,то и вообще не откроется.Такое впечатление,что страница заново качается с инета.В настройках CyberArticle не стоит галка "Не брать страницу с кэша браузера".Если бы не эта проблема,то сохранение страниц работает классно.javascript:void(0)
|
|
Re: Приделал к Opere ContentSave
|
Mongoose 09/10/04 12:54 PM |
|
В ответ на:
Такое впечатление,что страница заново качается с инета.
Так и есть. А под "кеш браузера" подразумевается ТОЛЬКО кеш IE, не Оперы. Соответственно если в кеше IE этого нет, то закачивается.
|
|
Re: Приделал к Opere ContentSave
|
Kifa 09/14/04 03:11 AM |
|
Полностью поддерживаю St Hidden В ответ на:
Именно этого мне не хватает opere...
До сих пор на Осле сидел только потому что Оперы-Мозиллы не поддерживают такие проги как ContentSaver.
Очень благодарен zio, теперь с его скриптом уже месяц наслаждаюсь и-нет серфингом в Опере.
Было бы совсем замечательно, если бы была возможность сохранять выделенное со страницы как в IE.
CyberArticle тоже ничего программка, я в нём склеиваю подборки из ContentSaver'а в chm-файлы. Но в остальном ContentSaver рулит (не пытаюсь завязать спор, просто делюсь впечатлениями).
|
