عمل رائع جدددددددااااا
تويت
result = HTTP.Submit("http://www.timeanddate.com", {}, SUBMITWEB_GET, 20, 80, nil, nil);
h = String.Find(result, '"clk_hm">', 1, false);v = String.Find(result, '"ij0">', 1, false)
hm = String.Mid(result,h+9,5);s = String.Mid(result,v+6,2)
date = String.Find(result, '"ij2">', 1, false)
d = String.Mid(result,date+6,11)
Dialog.Message(d, hm..":"..s);
k1 = {1,3,5,7,9,11,13,15,17,19,20,21,25,79,0}
total =20
-----------------------------------------------------------------------
table.sort(k1, function(a,b) return tonumber(a) < tonumber(b) end)-----
a={};r=''; f=0---------------------------------------------------------
-----------------------------------------------------------------------
for x,y in pairs (k1) do ----------------------------------------------
if y <= total then-----------------------------------------------------
Table.Insert(a, x, y);end;end------------------------------------------
table.sort(a, function(a,b) return tonumber(a) < tonumber(b) end)------
-----------------------------------------------------------------------
n = Table.Count(a);p ="";k=1;s=0---------------------------------------
for i= 0,n-1 do-----------------------ABOU_BELKISS---------------------
s=s+2^i;end;for j = 1,s do------------ALGER LE 21-07-2017--------------
m=j;while m>0 do-------------------------------------------------------
if Math.Mod(m, 2)==1 then----------------------------------------------
p=p..a[k].."+";end;m = Math.Floor(m/2);k=k+1;end----------------------
x = String.Length(p);y = String.Mid(p, 1, x-1);------------------------
pp =String.Find(y, "+",1) ;pp2 = String.Find(y, "+",pp+pp)-------------
pp3 = String.ReverseFind(y, "+", false);-------------------------------
if pp ~= -1 and pp2 ~= -1 and pp3 ==pp2 then--------------------------
belkiss = loadstring(string.format("return %s",y))()------------------
if total == belkiss then-----------------------------------------------
f=f+1;r=r.. y..' = '..belkiss.."\r\n"----------------------------------
end;else---------------------------------------------------------------
end;p ="";k=1;end--------------http://www.abc4web.net------------------
-----------------------------------------------------------------------
Dialog.Message("les possibilités = "..f,r);
[/marq]
strTitle= "C:\\1.bmp"
DLL.CallFunction("AutoPlay\\Docs\\10.dll", "BELKISS_PixelsImage", "\""..strTitle.."\"", DLL_RETURN_TYPE_INTEGER, DLL_CALL_STDCALL);
result = TextFile.ReadToString("C:\\tameur.txt");
Dialog.Message("Notice",result);
تعليق