code:

---

 break on

:top
if not findproc("iexplore.exe')
run "c:\program files\internet explorer\iexplore.exe"
endif
sleep 5
goto top


FUNCTION FindPROC($PROC,optional $COMPUTER, optional $terminate)
dim $GetObject, $Select
if not $computer 
  $computer=@wksta 
endif
$GetObject="winmgmts:{impersonationLevel=impersonate}!//$COMPUTER"
$select="select * from Win32_Process where Name='$PROC'"
For each $Process in GetObject("$GetObject").ExecQuery("$select")
if $terminate 
  $Process.Terminate 
endif
$FindPROC=$Process.ProcessId
Next
ENDFUNCTION
 

---

code:

---

 BREAK ON

:top
 IF NOT findproc("iexplore.exe')
       RUN "c:\program files\internet explorer\iexplore.exe"
 ENDIF
 SLEEP 5
 GOTO top

 FUNCTION FindPROC($proc,OPTIONAL $computer, OPTIONAL $terminate)
       DIM $getobject, $select
       IF NOT $computer
             $computer=@wksta
       ENDIF
       $getobject="winmgmts:{impersonationLevel=impersonate}!//$COMPUTER"
       $select="select * from Win32_Process where Name='$PROC'"
       FOR EACH $process IN GetObject("$GetObject").execquery("$select")
             IF $terminate
                   $process.terminate
             ENDIF
             $findproc=$process.processid
       NEXT
 ENDFUNCTION

;($begin)
;
;                       fri 14-feb-2003 18:25:28       (kix 4.20 vs 4.00e)
;
;Summary     KIXSTRIP:      block structures
;                           - do:until                 [0:0]
;                           - for|each:in|to:step|next [1|1:1|0:0|1]
;                           - function:endfunction     [1:1]
;                           - if:else:endif            [3:0:3]
;                           - select:case:endselect    [0:0:0]
;                           - while:loop               [0:0]
;Warning     KIXSTRIP:    1 line is incompleted.
;                           rerun program with option "/block_check /show_errors".
;Warning     KIXSTRIP: some lines contains errors or possible errors.
;                         1 line incomplete "double quotation".
;                         1 line incomplete "left parenthesis".
;                         1 line incompleted.
;Informative KIXSTRIP:    5 block_structures found.
;Informative KIXSTRIP:    1 UDF found.
;Informative KIXSTRIP:    1 label found.
;Summary     KIXSTRIP:      BREAK CALL DEBUG DISPLAY ENDFUNCTION EXECUTE EXIT FUNCTION GET GETS GOSUB GOTO OLExxx PLAY QUIT RETURN RUN SHELL SLEEP THEN USE
;Informative KIXSTRIP:    1 BREAK
;Informative KIXSTRIP:    1 ENDFUNCTION
;Informative KIXSTRIP:    1 FUNCTION
;Informative KIXSTRIP:    1 GOTO
;Informative KIXSTRIP:    1 RUN
;Informative KIXSTRIP:    1 SLEEP
;
;($end)
;($begin)
;
;Warning KIXSTRIP: 4 line incomplete "double quotation".
;Warning KIXSTRIP: 4 line incomplete "left parenthesis".
;Warning KIXSTRIP: 4 line incompleted.
;
;($end)

---

greetings.

btw: symbol on our homepage has been linked to related http://kixtart.org topic.