close browser (internet) with autolisp

[manase]

I know i can open an internet page from lisp (command "_.browser"), but how to close it?

[manase]

Somebody behind a monitor verify all the sites I visited ( i suppose is my sweet boss)... and I need some help to open a site (redtube) every 5 minutes (or randomly...), and then to close it. I can open a site using lisp, but i don't know how to close it (cannot open 100 times that page without closing it). Any help for a honest fight???

[Lee Mac]

(defun ephemeralbrowser ( url sec / iea )
   (if (setq iea (vlax-create-object "internetexplorer.application"))
       (vl-catch-all-apply
          '(lambda nil
               (vlax-invoke-method iea 'navigate url)
               (while (= :vlax-true (vlax-get-property iea 'busy))
                   (vl-cmdf "_.delay" 500)
               )
               (vlax-put-property iea 'fullscreen :vlax-true)
               (vlax-put-property iea 'visible    :vlax-true)
               (vl-cmdf "_.delay" (* sec 1000))
               (vlax-invoke-method iea 'quit)
           )
       )
   )
   (if (= 'vla-object (type iea))
       (vlax-release-object iea)
   )
   (princ)
)
(vl-load-com) (princ)

(ephemeralbrowser "http://www.google.com" 3)

Don't get fired...

[manase]

Thanks Lee! you saved my job!

i will use your lisp only when i will be on vacation...

Edited November 17, 2013 by manase