Anonymous

// command test

print_text "cmd_test"

thread window_test

// main
while one == one
    print_text "main thread: sleeping ..."
    sleep 1000
wend


end_script

// functions
function window_test
print_text "window_test: enter"
define window mywin cmd
define string line ""
mywin.set_filename "cmd.exe"
mywin.run_window
sleep 1000
mywin.standard_in "C:\perl\bin\perl.exe C:\l2net\cmd_perl_test.pl"
sleep 1000
mywin.standard_in "this is a test..."
sleep 1000
mywin.standard_in "this is a test 2..."
sleep 1000
print_text "window_test: sleeping ......"
//sleep 10000
//print_text "<&mywin.standard_in&>"
//print_text "<&mywin.standard_out&>"
//mywin.standard_in.read line
print_text "mywin class is : <&mywin.CLASSNAME&>"
print_text "standard_in class is : <&mywin.standard_in.classname&>"
print_text "standard_in type is : <&mywin.standard_in.type&>"
mywin.standard_in "exit"
mywin.wait_close

print_text "window_test: exit"

return void