home *** CD-ROM | disk | FTP | other *** search
/ Freelog 117 / FreelogNo117-OctobreNovembre2013.iso / Theme / 8GadgetPack / 8GadgetPackSetup.msi / Gadgets.7z / Gadgets / MyWeather.gadget / de / js / alert.vbs next >
Text File  |  2012-09-30  |  344b  |  16 lines
  1. 'simulate JavaScript alert() function
  2. sub alert(prompt)
  3.     MsgBox prompt, 48 , "Sidebar Gadget"
  4. end sub
  5.  
  6. 'simulate JavaScript confirm() function
  7. function confirm(prompt)
  8.     dim res
  9.     res = MsgBox (prompt, 33, "Sidebar Gadget")
  10.     if res=1 then
  11.         confirm = true
  12.     else
  13.         confirm = false
  14.     end if
  15. end function
  16.