شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .
تويت
if blnFade then
Page.StartTimer(50)
else
result = Dialog.Message("OS not Supported", "This DLL will only work on Win2000 and up.", MB_OK, MB_ICONEXCLAMATION, MB_DEFBUTTON1)
end
if blnFade then
Opacity = Opacity + 5 -- يمكنك تحديد درجة الظهور من هنا بزيادة أو تخفيض هذا الرقم
if (Opacity < 255) then
long = DLL.CallFunction("AutoPlay\\Docs\\wTrans.dll", "SetWindowTransparency", handle..","..Opacity, DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL)
end
end
sOS=String.Right(System.GetOSName(),2);
if (sOS == "XP" ) or (sOS == "00") or (sOS == "03") then
blnFade = true;
Opacity = 0;
handle = Application.GetWndHandle();
result = DLL.CallFunction("AutoPlay\\Docs\\wTrans.dll", "SetWindowTransparency", handle..","..Opacity, DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL)
else
blnFade = false;
end
تعليق