| Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате |
| Форум программистов > Флейм > VBS, WSH - помощь |
| Автор: mikky 1.2.2004, 15:55 |
| нужна хелп, многим наверно известно, что Опера сохраняет файлы в одну кучу, без разбора, так вот, был придуман способ, повесить в контекстное меню странички: 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 ------------------------------------------------------ и в этом кодн где-то есть ошибки, не сохраняет короче, вся Опера-общественность просит помочь спасибо! |