Funny, but if i work with IOleControl in my test script and make a pure display of the $kbh variable it returns the last pressed key.
On the other side i am not able to wrap it around the execution of code ....
Anyway here it is :

lets make a competition of it (who browses his copy of msdn fastest gets the honeypot)

code:

---

Break on
DIM $count,$kbh
$output="Ho Ho Ho!"
AT(2,30)"hit 'ESC' to quit"
$kbh = OLEGetObject (1,"IOleControl")
IF @error > 0
   COLOR r+/n
   AT(3,10)"Keyboard handle failed, please contact Author"
ELSE 
   ;do your job, script
ENDIF
DO 
   WHILE $count < 256
	$count = $count + 1
	COLOR b+/n
	BIG
	AT(7,4)"$output"
	sleep 1
	AT(7,3)"          "
	sleep 1
UNTIL ;place here the proper line of code 
   LOOP
SMALL 
COLOR n/n
AT(24,10)"Keyboard handle 'ESC' OK! --- 'ANYKEY' to quit ...."
AT(25,0)
GET $x
EXIT 

---

Jochen

P.S.: or was it the 2-week Diablo II Test round ?????

[This message has been edited by jpols (edited 14 July 2000).]

_________________________