rebol [ Title: "Internet Explorer Pop Up" File: %IEpopup.r Date: 29-Jun-2006 Version: 1.0.1 Progress: 0.5 Status: "working" Needs: [] Author: "Anton Rolls" Language: "English" Purpose: {Pop up a minimal Internet Explorer window to show some HTML} Usage: {} History: [ 1.0.0 [29-Jun-2006 {First version, converted from Benjamin Maggi's code} "Anton"] 1.0.1 [12-Jul-2006 {a little bit of optimization} "Anton"] ] ToDo: { - find original C sample if there is one - optimize those repetitive sections } Notes: {Ben's original file is PopUPIE.r} ] if error? set/any 'error try [ ; catch all errors do/args %../COMLib.r [ wdFormatHTML: 8 ieApp: CreateObject "InternetExplorer.Application" CallMethod [ieApp ".Navigate(%s)" "About:blank"] ; Options PutValue [ieApp ".Toolbar = %s" "0"] PutValue [ieApp ".StatusBar = %s" "0"] PutValue [ieApp ".Width = %s" "640"] PutValue [ieApp ".Height = %s" "480"] PutValue [ieApp ".top = %s" "200"] PutValue [ieApp ".Left = %s" "200"] CallMethod [ieApp "Document.Writeln(%s)" rejoin [ "REBOL EULA" newline "" ]] save/png %demos/logo.png logo.gif ;system/view/VID/image-stock/2 ;CallMethod [ieApp "Document.Writeln(%s)" rejoin [""]] ;CallMethod [ieApp "Document.Writeln(%s)" "
"] ;CallMethod [ieApp "Document.Writeln(%s)" "

"] ;CallMethod [ieApp "Document.Writeln(%s)" system/license] ;CallMethod [ieApp "Document.Writeln(%s)" "

"] ;CallMethod [ieApp "Document.Writeln(%s)" ""] CallMethod [ieApp "Document.Writeln(%s)" rejoin [ "" newline "
" newline "

" newline system/license newline "

" newline "" newline ]] PutValue [ieApp ".Visible = %s" "1"] while [ busy?: to-logic getInteger [ieApp ".Busy" "" false] ][ ;?? busy? wait 0.5 ; wait half a second ] release ieApp ] ][ print mold disarm error ]