break on

 

$html = '<h3>Select some options and click OK</h3><br>

<select size="1" id="description" name="description" multiple>

<option value="selection1">selection1</option>

<option value="selection2">selection2</option>

<option value="selection3">selection3</option>

</select><br>

<button id="ok" name="0" onclick="ok.name=1">OK</button><br>

<h3>Selections:</h3><textarea id="listing" style="height:180">

'

 

$ie = createobject("internetexplorer.application")

if $ie = 0 exit endif

$ie.addressbar="0"

$ie.menubar="0"

$ie.toolbar="0"

$ie.statusbar="0"

$ie.resizable="true"

$ie.visible="true"

;$ie.top="0"

;$ie.left="0"

;$ie.fullscreen="1"

$ie.width="640"

$ie.height="480"

$ie.navigate("about:blank") 

$doc=$ie.document

$do = $doc.Open

$doc.write($html + @crlf)

while $ie.busy<>0 and $ie.ReadyState <> 4 and @error=0 Loop

 

$OK =  $doc.GetElementById("ok")

 

if $OK

 

 $options =  $doc.GetElementById("Description")

 $output =  $doc.GetElementById("listing")

 

 while $ie.Visible

 

  while not $OK.Name = 1 and $ie.Visible

 

   sleep 0.500

  

  loop

 

  $output.value = ""

 

  for each $option in $options

 

   if $option.selected

 

    $output.value = $output.value + $option.value + chr(10)

 

   endif

 

  next

 

  $OK.Name = 0

  $options.focus()

  

 loop

 

endif

  

$ie.visible = 0

$ie.quit()

  

exit 0