home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 November / PCWorld_2000-11_cd.bin / Software / Vyzkuste / Tiptrik / TipTrik.exe / Time.vbs < prev   
Text File  |  2000-09-17  |  688b  |  26 lines
  1. Set IEwindow = ActivateIE(330, 70, "VBScript P°φklad okna")
  2.  
  3. do while true
  4.     show IEwindow, "Je prßv∞ " & Time & " hodin a dnes je " & Date & "."
  5.     loop
  6.  
  7. function ActivateIE(width, height, title)
  8.     set handle = CreateObject("InternetExplorer.Application")
  9.     set ActivateIE = handle
  10.     handle.height = height
  11.     handle.width = width
  12.     handle.MenuBar = vbFalse
  13.     handle.navigate ("javascript:'<TITLE>" + title + "</TITLE>'")
  14.     handle.StatusBar = vbFalse
  15.     handle.ToolBar = vbFalse
  16.     handle.visible = vbTrue
  17.     do while handle.ReadyState <> 4
  18.         loop
  19. end function
  20.  
  21. sub show(obj, text)
  22.     on error resume next
  23.     obj.document.body.innerHTML = text
  24.     if err <> 0 then Wscript.Quit
  25. end sub
  26.