if string.find(package.path, getScriptPath()..'\\EnterTradeLib\\socket\\?.lua') == nil then
   package.path=package.path..';'..getScriptPath()..'\\EnterTradeLib\\socket\\?.lua;'
   package.cpath=package.cpath..';'..getScriptPath()..'\\EnterTradeLib\\socket\\?.dll;'
end;

w32 = require("w32");
http = require("socket.http");

if string.find(package.path,'C:\\QUIK\\LuaIndicators\\Git\\EnterTradeLib\\Lua\\?') == nil then
   package.path=package.path..';C:\\QUIK\\LuaIndicators\\Git\\EnterTradeLib\\Lua\\?;'
end;

if string.find(package.path,'C:\\QUIK\\LuaIndicators\\Git\\EnterTradeLib\\Lua\\?.lua') == nil then
   package.path=package.path..';C:\\QUIK\\LuaIndicators\\Git\\EnterTradeLib\\Lua\\?.lua;'
end;

-- if string.find(package.path,'C:\\QUIK\\LuaIndicators\\Git\\EnterTradeLib\\Lua\\?.?') == nil then
--    package.path=package.path..';C:\\QUIK\\LuaIndicators\\Git\\EnterTradeLib\\Lua\\?.?;'
-- end;

-- if string.find(package.path,'C:\\QUIK\\LuaIndicators\\Git\\EnterTradeLib\\Lua\\mime\\?.?') == nil then
--    package.path=package.path..';C:\\QUIK\\LuaIndicators\\Git\\EnterTradeLib\\Lua\\mime\\?.?;'
-- end;

-- if string.find(package.path,'C:\\QUIK\\LuaIndicators\\Git\\EnterTradeLib\\Lua\\socket\\?.?') == nil then
--    package.path=package.path..';C:\\QUIK\\LuaIndicators\\Git\\EnterTradeLib\\Lua\\socket\\?.?;'
-- end;

if string.find(package.path,'C:\\QUIK\\LuaIndicators\\Git\\EnterTradeLib\\Lua\\?.lua') == nil then
   package.path=package.path..';C:\\QUIK\\LuaIndicators\\Git\\EnterTradeLib\\Lua\\?.lua;'
end;

w32 = require("w32"); -> это звуки (они и так находятся)...
http = require("socket.http"); -> а вот это не находится когда я размещаю в папку моего скрипта

...UIK\LuaIndicators\Git\EnterTradeLib\Lua\socket.lua:13: module 'socket.core' not found:
   no field package.preload['socket.core']
   no file '.\socket\core.lua'
   no file 'C:\QUIK\lua\socket\core.lua'
   no file 'C:\QUIK\lua\socket\core\init.lua'
   no file 'C:\QUIK\socket\core.lua'
   no file 'C:\QUIK\socket\core\init.lua'
   no file 'C:\QUIK\Include\socket\core.lua'
   no file 'C:\QUIK\Include\socket\core.luac'
   no file 'C:\QUIK\LuaIndicators\socket\core.lua'
   no file 'C:\QUIK\LuaIndicators\socket\core.luac'
   no file 'C:\Program Files (x86)\Lua\5.1\lua\socket\core.luac'
   no file 'C:\QUIK\LuaIndicators\Git\EnterTradeLib\Lua\socket\core.lua'
   no file '.\socket\core.dll'
   no file 'C:\QUIK\socket\core.dll'
   no file 'C:\QUIK\loadall.dll'
   no file

Release
├── socket
│   ├── ftp.lua
│   ├── http.lua
│   ├── smtp.lua
│   ├── tp.lua
│   └── url.lua
├── mime
│   └── core.dll
├── ltn12.lua
├── mime.lua
├── socket.dll    <--- renamed from $(LUA_PATH)\clibs\socket\core.dll
├── socket.lua
├── lua5.1.dll
├── sample.exe
└── sample.lua

w32 = require("w32"); -> вот что интересно это лежит в папке C:\QUIK\LuaIndicators\QET\EnterTradeLib\ и квик его находит
http = require("socket.http"); -> а это нет... находит только когда это лежит в папке C:/Quik/Luaindicators/

   if   string.find (package.path,'C:\\Program Files (x86)\\Lua\\ 5.1 \\lua\\?.lua') =  =  nil   then 
   package.path = package.path .. ';C:\\Program Files (x86)\\Lua\\ 5.1 \\lua\\?.lua;'
 end 
 if   string.find (package.path,'C:\\Program Files\\Lua\\ 5.1 \\lua\\?.lua') =  =  nil   then 
   package.path = package.path .. ';C:\\Program Files\\Lua\\ 5.1 \\lua\\?.lua;'
 end 

require  "socket" 
is_run =  true 
http  =  require  'socket.http' 
 local  address  =   'http://smart-lab.ru/dividends/index/order_by_t2_date/desc/' 
 local  ts = {"tr","strong","span"}
 local  lMax =  91   --число строк в таблице 


 function  do_smart ()
    local  body  =   http.request (address)
    ---------------------- 
    for  i =  1 , # ts  do 
      body  =  string.gsub (body,"( < %s * " .. ts[i] .. "[^ > ] *  > )","")
      body  =  string.gsub (body,"( < %s * /" .. ts[i] .. "[^ > ] *  > )","")
    end 
   body  =  string.gsub (body,"  ","   ")
   local t={}  -- результат
   local j=0; local k=0; local text=0;
   local m=1; 
   local n=string.find(body," td > ",m, # body, true );
    local  x =  string.byte (body,n -  1 ); 
   m = m +  3 ;
    ----------------- 
     while   # body > m  do 
      n =  string.find (body,  "td>" ,m, # body, true );
       if  n  then    local  n1 = n;
         if  x~ =  47   then 
          x =  string.byte (body,n -  1 );  if  x =  =  47   then  n = n -  1 ;  end 
          text  =   string.sub (body, m,n -  2 ); text  =  nkdelspace(text);
           local  len =  string.len (text);
           if  len <  20   then 
            j = j +  1 ;  if  j =  =  1   then  k = k +  1 ; t[k] = {}  end 
             local  tt = t[k]; tt[ # tt +  1 ] = text;
             if  j =  =  8   then       if  k =  = lMax  then   break   end 
            j =  0   end 
           end 
         else 
          x =  string.byte (body,n -  1 );
         end 
      m = n1 +  3 ;
       else   break ;
       end 
    end 

   trade_date =  getParamEx ( "TQBR" ,"GAZP","TRADE_DATE_CODE").param_image
   prev_date =  getParamEx ( "TQBR" ,"GAZP","PREVDATE").param_image
    for  k,v  in  ipairs (t)  do 
       local  td = trade_date .. "  "
      local pd=prev_date.."   "
      if td==t[k][2] then
         message (" Zavtra GAP  "..t[k][1].."  div =  "..t[k][6].."   |   "..t[k][8],1)
      end
      
      if pd==t[k][2] then
         message (" Segodnya GAP  "..t[k][1].."  div =  "..t[k][6].."   |   "..t[k][8],1)
      end
      
   end

end
function OnCleanUp ()
sleep (700000)
do_smart ()
end

function OnConnected ()
do_smart ()
end

function OnStop ()
   return 100
end

--------------------
function nkdelspace(s)
   local len=string.len(s); local z=" ";  local  x1 =  32 ;
    for  i =  1 ,len  do   local  x =  string.byte (s,i);  if  x <  32   then  x =  32   end 
       if  (x~ =  32   or  x1~ =  32 )  then 
          if  z =  =  ""   then  z =  string.char (x)  else  z = z ..  string.char (x)  end 
         x1 = x;  end 
    end      --убираем проблелы 
 return  z;
 end 

do_smart ()

 function  main ()
    while  is_run  do 
       sleep  ( 1000 )
    end 
 end   

if string.find(package.path,'C:\\Program Files (x86)\\Lua\\5.1\\lua\\?.lua')==nil then
   package.path=package.path..';C:\\Program Files (x86)\\Lua\\5.1\\lua\\?.lua;'
end
if string.find(package.path,'C:\\Program Files\\Lua\\5.1\\lua\\?.lua')==nil then
   package.path=package.path..';C:\\Program Files\\Lua\\5.1\\lua\\?.lua;'
end

require "socket"
is_run=true
http = require 'socket.http'
local address = 'http://smart-lab.ru/dividends/index/order_by_t2_date/desc/'
local ts={"tr","strong","span"}
local lMax=91 --число строк в таблице


function do_smart ()
   local body = http.request(address)
   ----------------------
   for i=1,#ts do
      body = string.gsub (body,"(<%s*"..ts[i].."[^>]*>)","")
      body = string.gsub (body,"(<%s*/"..ts[i].."[^>]*>)","")
   end
   body = string.gsub (body," "," ")
   local t={}  -- результат
   local j=0; local k=0; local text=0;
   local m=1; 
   local n=string.find(body,"td>",m,#body,true);
   local x=string.byte(body,n-1); 
   m=m+3;
   -----------------
    while #body>m do
      n=string.find(body, "td>",m,#body,true);
      if n then  local n1=n;
        if x~=47 then
          x=string.byte(body,n-1); if x==47 then n=n-1; end
          text = string.sub(body, m,n-2); text = nkdelspace(text);
          local len=string.len(text);
          if len<20 then
            j=j+1; if j==1 then k=k+1; t[k]={} end
            local tt=t[k]; tt[#tt+1]=text;
            if j==8 then     if k==lMax then break end
            j=0 end
          end
        else
          x=string.byte(body,n-1);
        end
      m=n1+3;
      else break;
      end
   end

   trade_date=getParamEx("TQBR","GAZP","TRADE_DATE_CODE").param_image
   prev_date=getParamEx("TQBR","GAZP","PREVDATE").param_image
   for k,v in ipairs (t) do
      local td=trade_date.." "
      local pd=prev_date.." "
      if td==t[k][2] then
         message ("Zavtra GAP "..t[k][1].." div="..t[k][6].." | "..t[k][8],1)
      end
      
      if pd==t[k][2] then
         message ("Segodnya GAP "..t[k][1].." div="..t[k][6].." | "..t[k][8],1)
      end
      
   end

end
function OnCleanUp ()
sleep (700000)
do_smart ()
end

function OnConnected ()
do_smart ()
end

function OnStop ()
   return 100
end

--------------------
function nkdelspace(s)
   local len=string.len(s); local z=""; local x1=32;
   for i=1,len do local x=string.byte(s,i); if x<32 then x=32 end
      if (x~=32 or x1~=32) then
         if z=="" then z=string.char(x) else z=z..string.char(x) end
         x1=x; end
   end    --убираем проблелы
return z;
end

do_smart ()

function main ()
   while is_run do
      sleep (1000)
   end
end