--*********************************************************
--******* Places the TheWShark ArtWorks Logo on boton *****
--*********************************************************

tImageProperties = {};
tImageProperties.ImageFile = _SourceFolder .. "\\Data\\logo.jpg";
tImageProperties.UseTransColor = false;
tImageProperties.Opacity = 100;
tImageProperties.HitTest = HITTEST_STANDARD;
tImageProperties.Enabled = true;
tImageProperties.Visible = true;
tImageProperties.X = 135;
tImageProperties.Y = 214;
tImageProperties.Width = 230;
tImageProperties.Height = 86;
Page.CreateObject(OBJECT_IMAGE, "Logo TheWShark", tImageProperties);




--**********************************
--******* Places paragraph box *****
--**********************************


tParagraphProperties = {};
tParagraphProperties.Text = "";
tParagraphProperties.FontName = "Tahoma";
tParagraphProperties.FontSize = "10";
tParagraphProperties.BorderStyle = 1;
tParagraphProperties.BorderColor = 2;
tParagraphProperties.X = 5;
tParagraphProperties.Y = 5;
tParagraphProperties.Width = 490;
tParagraphProperties.Height = 209;
Page.CreateObject(OBJECT_PARAGRAPH, "Info", tParagraphProperties);








-- Gets data from system 

Total = Drive.GetSize(_SourceDrive);
Livre = Drive.GetFreeSpace(_SourceDrive);
Ocupado = Total - Livre;
percent = Math.Round((Ocupado / Total)*100,2);
Progress.SetText("Progress1", percent .. "% Occupied");
Progress.SetRange("Progress1", 0, 100);
Progress.SetCurrentPos("Progress1", percent);
DriveInfo = Drive.GetInformation(_SourceDrive);
Type = Drive.GetType(_SourceDrive);
TypeINI = INIFile.GetValue(_SourceFolder.."\\Config.ini", "DrivesTypes", Type);
LanInfo = System.GetLANInfo();
conect = HTTP.TestConnection("http://www.google.pt", 5, 80, nil, nil);
if conect == true then
Conected = "Connected to Internet";
end
if conect == false then
Conected = "Not connected to Internet";
end
vID = Registry.GetValue(HKEY_LOCAL_MACHINE, "HARDWARE\\DESCRIPTION\\System\\CentralProcessor\\0", "VendorIdentifier", true);
cpuType = Registry.GetValue(HKEY_LOCAL_MACHINE, "HARDWARE\\DESCRIPTION\\System\\CentralProcessor\\0", "ProcessorNameString", true);
cpuSpeed = Registry.GetValue(HKEY_LOCAL_MACHINE, "HARDWARE\\DESCRIPTION\\System\\CentralProcessor\\0", "~MHz", true);
cpuID = Registry.GetValue(HKEY_LOCAL_MACHINE, "HARDWARE\\DESCRIPTION\\System\\CentralProcessor\\0", "Identifier", true);







-- Places the values on the paragraph

Paragraph.SetText("Info", "Disk Information" .. "\n\t" .. TypeINI .. "\n\t" .. "Label: " .. DriveInfo.Label .. "\n\t" .. "File System: " .. DriveInfo.FileSystem .. "\n\t" .. "Serial Number: " .. DriveInfo.SerialNumber .. "\n\t" .. "Display Name: " .. DriveInfo.DisplayName .. "\n\t" .. "Total Size: " .. Total .. " Megabytes" .. "\n\t" .. "Free Size: " .. Livre .. " Megabytes" .. "\n\t" .. "Occupied Size: " .. Ocupado .. " Megabytes" .. "\n\n" .. "LAN Information" .. "\n\t" .."Host: " .. LanInfo.Host .. "\n\t" .. "Domain: " .. LanInfo.Domain.. "\n\t" .. "User: " .. LanInfo.User .. "\n\t" .. "IP: " .. LanInfo.IP .. "\n\t" .. "NIC: " .. LanInfo.NIC .. "\n\t" .. Conected .. "\n\n" .. "CPU Information".."\n\t" .. vID.."\n\t"..cpuType.." "..cpuSpeed.."\n\t"..cpuID);