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
------------------------------------------------------
и в этом кодн где-то есть ошибки, не сохраняет короче, вся Опера-общественность просит помочь
спасибо!
