Daniil Pozdnyakov (Все сообщения пользователя)

   --local n = 0 
 --local n = 1000000 
 --local n = 3000000 

 local  list  =  {TQBR  =  {"SBER",  "GAZP" ,  "VTBR" ,  "RUAL" }, CETS  =  {"USD000UTSTOM"}, SPBFUT  =  {"BRH2",  "RIH2" ,  "SiH2" ,  "SRH2" }}
 local  param  =  {"BID",  "OFFER" ,  "LAST" ,  "NUMTRADES" ,  "NUMBIDS" ,  "NUMOFFERS" }

 local  run
 function   OnStop ()
  run  =   nil 
 end 

 local  c  =   0 
 function   OnQuote (class_code, sec_code)
   if   not  run  then   return   end 
  c  =  c  +   1 
 end 
 function   OnParam (class_code, sec_code)
   if   not  run  then   return   end 
  c  =  c  +   1 
 end 
 function   OnAllTrade (alltrade)
   if   not  run  then   return   end 
  c  =  c  +   1 
 end 

 function   main ()
   local  a  =  {}
   for  i  =   1 , n  do  a[i]  =  i  end 

   for  class, sec  in  pairs(list)  do 
     for  i  =   1 ,  # sec  do 
       Subscribe_Level_II_Quotes (class, sec[i])
       for  i  =   1 ,  # param  do 
        ParamRequest(class, sec, param[i])
       end 
     end 
   end 

   local  t  =   os.clock ()
  run  =   true 
   while  run  and  t  +   90   >   os.clock ()  do 
     sleep ( 500 )
   end 
  t  =   os.clock ()  -  t

   for  class, sec  in  pairs(list)  do 
     for  i  =   1 ,  # sec  do 
       Unsubscribe_Level_II_Quotes (class, sec[i])
       for  i  =   1 ,  # param  do 
        CancelParamRequest(class, sec[i], param[i])
       end 
     end 
   end 
   message ( string.format ( "%u: %u; %.0f/сек" , n, c, c/t))
 end   

   --local v = 0 
 --local v = 100 
 --local v = "socket" 
 --local v = "iuplua" 

 local   function  f(n)
   if  type(n)  =  =   "number"   then 
     local  a  =  {}
     for  i  =   1 , n  do 
      a[i]  =  {}
       for  j  =   1 ,  1000   do  a[i][j]  =  j  end 
     end 
     return  a
   elseif  n  =  =   "socket"   then 
     local  socket  =   require ( "socket" )
    require ( "socket.smtp" )
    return  socket
   else 
     return   require (n)
   end 
 end 

 local  run  =   true 
 function   OnStop ()
  run  =   nil 
 end 

 local  m
 function   OnInit ()
  m  =  f(v)
 end 

 local  t
 function   OnAllTrade ()
   if   getNumberOf ( "all_trades" )  =  =   1   then 
     local  num  =   1 
     function   OnAllTrade (alltrade)
       if   not  run  then   return   end 
      num  =  num  +   1 
       if  num  =  =   200000   then 
        t  =   os.clock ()  -  t
        run  =   false 
       end 
     end 
    t  =   os.clock ()
   end 
 end 

 function   main ()
   while  run  do   sleep ( 500 )  end 
   if  t  then   message (v  ..   ": "   ..  t)  end 
 end