~eloaders/i-nex/I-Nex

' Gambas class file

PUBLIC SUB Form_Open()

  DIM cpuz0, cpuz1, cpuz2, cpuz3, cpuz4, cpuz5 AS String

  TextLabel10.Visible = FALSE

  TextArea28.Visible = FALSE 

  TextLabel21.Visible = FALSE

  'End dpkg installed

  'Procesor

  SHELL "ls /sys/devices/system/cpu/ | grep -v save | sed -n '1p'" WAIT TO cpuz0

  SHELL "ls /sys/devices/system/cpu/ | grep -v save | sed -n '2p'" WAIT TO cpuz1

  SHELL "ls /sys/devices/system/cpu/ | grep -v save | sed -n '3p'" WAIT TO cpuz2

  SHELL "ls /sys/devices/system/cpu/ | grep -v save | sed -n '4p'" WAIT TO cpuz3

  SHELL "ls /sys/devices/system/cpu/ | grep -v save | sed -n '5p'" WAIT TO cpuz4

  SHELL "ls /sys/devices/system/cpu/ | grep -v save | sed -n '6p'" WAIT TO cpuz5

  cpuz0 = Replace(cpuz0, "\n", "")

  cpuz1 = Replace(cpuz1, "\n", "")

  cpuz2 = Replace(cpuz2, "\n", "")

  cpuz3 = Replace(cpuz3, "\n", "")

  cpuz4 = Replace(cpuz4, "\n", "")

  cpuz5 = Replace(cpuz5, "\n", "")

IF (cpuz0 = "cpu0") = TRUE THEN

ComboBox1.Add("Procesor0")

ENDIF

IF (cpuz1 = "cpu1") = TRUE THEN

ComboBox1.Add("Procesor1")

ENDIF

IF (cpuz2 = "cpu2") = TRUE THEN

ComboBox1.Add("Procesor2")

ENDIF

IF (cpuz3 = "cpu3") = TRUE THEN

ComboBox1.Add("Procesor3")

ENDIF

IF (cpuz4 = "cpu4") = TRUE THEN

ComboBox1.Add("Procesor4")

ENDIF

IF (cpuz5 = "cpu5") = TRUE THEN

ComboBox1.Add("Procesor5")

ENDIF

dospam_uptime()

System()

bios()

kernel()

internet()

dzwiek()

grafika()

dysk()

ComboBox1.Text = "Procesor0"

Label25.Text = Application.version

'Okno na środku

ME.Center

END 

PUBLIC SUB ComboBox1_Click()

  Wykrywanie_procesorow()

END

PUBLIC SUB kernel()

  DIM stringa, risultato, kernel, uzywanyobecniekernel AS String

  DIM righe AS NEW string[]

  DIM count AS Integer

  DIM riga AS NEW String[]

  DIM lista AS NEW String[]

  SHELL "ls /boot/vmlinuz* | cut -d '/' -f 3 " WAIT TO TextArea47.Text

  SHELL "ls /boot/vmlinuz* | cut -d '/' -f 3 | wc -l" WAIT TO Label16.Text

  SHELL "uname -r" WAIT TO Label26.Text

  'Usuwanie kerneli

  SHELL "dpkg-query -W --showformat='${Package}\n' | grep 'linux-image'" TO stringa 

  righe = Split(stringa, "\n", "%%", TRUE)  

  FOR count = 2 TO righe.Max

     riga = Split(righe[count], " ", "%%", TRUE)

     risultato = Replace(riga[0], " ", "")

     lista.add(risultato)

  NEXT 

  ComboBox3.List = lista

  ComboBox3.Index = 0

  'Koniec usuwania kerneli

END

PUBLIC SUB dzwiek()

  DIM kartadzwiekowa, kartadzwiekowa2 AS String

  SHELL "lspci | grep 'udio' | cut -d ':' -f 3 | cut -d '(' -f 1" WAIT TO kartadzwiekowa

  TextArea18.Text = kartadzwiekowa

END

PUBLIC SUB dysk()

  DIM wolnegbnadysku, dysktwardy, zajetegb, calkowitapoj AS String

  DIM wolgb, zajgb, calkowite AS Float

  'SHELL "cat /proc/scsi/scsi | grep ATA | head -1 | cut -d ':' -f 3 | cut -d ' ' -f 2-3 && echo $(cat /proc/partitions | grep sda | head -n 1 | awk {'print $3'})/1024/1024 | bc && echo GB" WAIT TO dysktwardy

  SHELL "cat /proc/scsi/scsi | grep 'Vendor'" WAIT TO dysktwardy

  SHELL "echo $(df -m | grep '/' | awk {'print $4'} | head -1)/1000 | bc && echo GB" WAIT TO wolnegbnadysku

  SHELL "echo $(df -m | grep '/' | awk {'print $3'} | head -1)/1000 | bc && echo GB" WAIT TO zajetegb

  SHELL "echo $(df -m | grep '/' | awk {'print $2'} | head -1)/1000 | bc && echo GB" WAIT TO calkowitapoj

  'Progress

  SHELL "df -m | grep / | awk {'print $4'} | head -n 1" WAIT TO wolgb

  SHELL "df -m | grep / | awk {'print $3'} | head -n 1" WAIT TO zajgb

  SHELL "df -m | grep / | awk {'print $2'} | head -n 1" WAIT TO calkowite

  TextLabel1.Text = wolnegbnadysku

  TextArea24.Text = dysktwardy

  TextLabel6.Text = zajetegb

  TextLabel13.Text = calkowitapoj

  ProgressBar2.Value = wolgb / calkowite

  ProgressBar3.Value = zajgb / calkowite

END

PUBLIC SUB bios()

DIM bios_vendor, bios_version, bios_date, board_name, board_vendor AS String

  SHELL "cat /sys/devices/virtual/dmi/id/bios_vendor" TO bios_vendor

  SHELL "cat /sys/devices/virtual/dmi/id/bios_version" TO bios_version

  SHELL "cat /sys/devices/virtual/dmi/id/bios_date" TO bios_date

  SHELL "cat /sys/devices/virtual/dmi/id/board_vendor" TO board_vendor

  SHELL "cat /sys/devices/virtual/dmi/id/board_name" TO board_name

  TextArea25.Text = bios_vendor

  TextArea26.Text = bios_version

  TextArea27.Text = bios_date

  TextArea15.Text = board_vendor

  TextArea16.Text = board_name

END

PUBLIC SUB System()

  DIM hostname, dist, release, arch, gcc, timezone, xorg_version, glx_version AS String

  SHELL "cat /etc/timezone" WAIT TO timezone

  SHELL "hostname" WAIT TO hostname

  SHELL "cat /etc/issue.net" WAIT TO dist 

  SHELL "sed 's/DISTRIB_RELEASE=//' /etc/lsb-release | sed -n '2p'" WAIT TO release

  SHELL "uname -m" WAIT TO arch

  SHELL "gcc -dumpversion" WAIT TO gcc

  SHELL "xdpyinfo | grep 'X.Org version:' | sed -n '1p' | cut -d ':' -f 2" WAIT TO xorg_version

  SHELL "glxinfo | grep 'GLX version:' | sed -n '1p' | cut -d ':' -f 2" WAIT TO glx_version

  TextArea31.Text = gcc

  TextArea33.Text = hostname

  TextArea29.Text = dist

  TextArea32.Text = release

  TextArea36.Text = arch

  TextArea30.Text = timezone

  TextArea34.Text = xorg_version

  TextArea35.Text = glx_version

END

PUBLIC SUB grafika()

  DIM stringa, risultato, gpu, opengl_vendor_string, opengl_renderer_string, opengl_version_string, rozdzielczosc AS String

  DIM righe AS NEW string[]

  DIM count AS Integer

  DIM riga AS NEW String[]

  DIM lista AS NEW String[]

  SHELL "lspci | grep 'VGA' | cut -d ':' -f3 | cut -d '(' -f 1" WAIT TO gpu

  SHELL "glxinfo | grep 'OpenGL vendor string:' | sed -n '1p' | cut -d ':' -f 2" WAIT TO opengl_vendor_string

  SHELL "glxinfo | grep 'OpenGL renderer string:' | sed -n '1p' | cut -d ':' -f 2" WAIT TO opengl_renderer_string

  SHELL "glxinfo | grep 'OpenGL version string:' | sed -n '1p' | cut -d ':' -f 2" WAIT TO opengl_version_string

  SHELL "xdpyinfo | grep 'dimensions:' | cut -d ':' -f 2" WAIT TO rozdzielczosc

  'Zmiana rozdzielczości 

  SHELL "xrandr" TO stringa 

  righe = Split(stringa, "\n", "%%", TRUE)  

  FOR count = 2 TO righe.Max

     riga = Split(righe[count], " ", "%%", TRUE)

     risultato = Replace(riga[0], " ", "")

     lista.add(risultato)

  NEXT 

  ComboBox2.List = lista

  ComboBox2.Index = 0

  'Koniec zmiany rozdzielczości

  TextArea17.Text = gpu

  TextArea19.Text = opengl_vendor_string

  TextArea20.Text = opengl_renderer_string

  TextArea21.Text = opengl_version_string

  TextArea38.Text = rozdzielczosc

  Global.kartagraficzna()

END

PUBLIC SUB internet()

  DIM domyslnaprzegladarka, network_controller, ethernet_controller AS String

  SHELL "x-www-browser -version" WAIT TO domyslnaprzegladarka

  SHELL "lspci | grep 'Network' | cut -d ':' -f 3 | cut -d '(' -f 1" WAIT TO network_controller

  SHELL "lspci | grep 'Ethernet' | cut -d ':' -f 3 | cut -d '(' -f 1" WAIT TO ethernet_controller

  'SHELL "ss -a" WAIT TO ssa

  TextArea46.Text = domyslnaprzegladarka

  TextArea22.Text = network_controller

  TextArea23.Text = ethernet_controller

  'TextArea48.Text = ssa

END

PUBLIC SUB Wykrywanie_procesorow()

  DIM eloaders, eloaders2, eloaders3, obrazekcpu, cpu, vendor_id, flags, cpu_MHz, model, stepping, cpu_family, bogomips, address_sizes, cache_size, ldata, linstruction AS String

  IF ComboBox1.Text = "Procesor0" THEN 

     eloaders = "1p"

     eloaders2 = "cpu0"

     eloaders3 = "1p"

  ENDIF

  IF ComboBox1.Text = "Procesor1" THEN 

     eloaders = "2p"

     eloaders2 = "cpu1"

     eloaders3 = "3p"

  ENDIF

  IF ComboBox1.Text = "Procesor2" THEN 

     eloaders = "3p"

     eloaders2 = "cpu2"

     eloaders3 = "5p"

  ENDIF

  IF ComboBox1.Text = "Procesor3" THEN 

     eloaders = "4p"

     eloaders2 = "cpu3"

     eloaders3 = "7p"

  ENDIF

  IF ComboBox1.Text = "Procesor4" THEN 

     eloaders = "5p"

     eloaders2 = "cpu4"

     eloaders3 = "9p"

  ENDIF

  IF ComboBox1.Text = "Procesor5" THEN 

     eloaders = "6p"

     eloaders2 = "cpu5"

     eloaders3 = "11p"

  ENDIF

  SHELL "cat /proc/cpuinfo | grep 'vendor_id' | sed -n '" & eloaders & "' | cut -d ':' -f 2" WAIT TO obrazekcpu

  SHELL "cat /proc/cpuinfo | grep 'model name'| sed -n '" & eloaders & "' | cut -d ':' -f 2" WAIT TO cpu

  SHELL "cat /proc/cpuinfo | grep 'vendor_id' | sed -n '" & eloaders & "' | cut -d ':' -f 2" WAIT TO vendor_id

  SHELL "cat /proc/cpuinfo | grep 'flags' | sed -n '" & eloaders & "' | cut -d ':' -f 2" WAIT TO flags

  SHELL "cat /proc/cpuinfo | grep 'cpu MHz' | sed -n '" & eloaders & "' | cut -d ':' -f 2" WAIT TO cpu_MHz

  SHELL "cat /proc/cpuinfo | grep 'model' | sed -n '" & eloaders3 & "' | cut -d ':' -f 2" WAIT TO model

  SHELL "cat /proc/cpuinfo | grep 'stepping' | sed -n '" & eloaders & "' | cut -d ':' -f 2" WAIT TO stepping

  SHELL "cat /proc/cpuinfo | grep 'cpu family' | sed -n '" & eloaders & "' | cut -d ':' -f 2" WAIT TO cpu_family

  SHELL "cat /proc/cpuinfo | grep 'bogomips' | sed -n '" & eloaders & "' | cut -d ':' -f 2" WAIT TO bogomips

  SHELL "cat /proc/cpuinfo | grep 'address sizes' | sed -n '" & eloaders & "' | cut -d ':' -f 2" WAIT TO address_sizes

  SHELL "cat /proc/cpuinfo | grep 'cache size' | sed -n '" & eloaders & "' | cut -d ':' -f 2" WAIT TO cache_size

  SHELL "cat /sys/devices/system/cpu/" & eloaders2 & "/cache/index0/size" WAIT TO ldata

  SHELL "cat /sys/devices/system/cpu/" & eloaders2 & "/cache/index1/size" WAIT TO linstruction

  TextArea1.Text = cpu

  TextArea3.Text = flags

  TextArea4.Text = vendor_id

  TextArea5.Text = cpu_MHz

  TextArea7.Text = model

  TextArea8.Text = stepping

  TextArea6.Text = cpu_family

  TextArea9.Text = bogomips

  TextArea10.Text = address_sizes

  TextArea12.Text = cache_size

  TextArea13.Text = ldata

  TextArea11.Text = linstruction

  Global.ikonaprocka()

END 

PUBLIC SUB Button2_Click()

  SHELL "gnome-screenshot -w"

END

PUBLIC SUB Button1_Click()

  Finfosys.Close

END

PUBLIC SUB dospam_uptime()

  DIM uptime, total, used, freee, shared, buffers, cached, usedonthistime, swaptotal AS String

  DIM dospam, totpam, totalswap, usedswap AS Float

  SHELL "echo `free -m | grep 'Mem' | awk {'print $2'}` MB" WAIT TO total

  SHELL "echo `free -m | awk {'print $2'} | sed -n '2p'` MB" WAIT TO used

  SHELL "echo `free -m | awk {'print $3'} | sed -n '2p'` MB" WAIT TO freee

  SHELL "echo `free -m | awk {'print $4'} | sed -n '2p'` MB" WAIT TO shared

  SHELL "echo `free -m | awk {'print $5'} | sed -n '2p'` MB" WAIT TO buffers

  SHELL "echo `free -m | awk {'print $6'} | sed -n '2p'` MB" WAIT TO cached

  SHELL "free -m | grep - | awk {'print $3'}" TO dospam

  SHELL "echo `free -m | grep - | awk {'print $3'}` MB" TO usedonthistime

  SHELL "free -m | grep Mem | awk {'print $2'}" WAIT TO totpam

  SHELL "echo `free -m | grep 'Swap:' | awk {'print $2'}` MB" WAIT TO swaptotal

  'Obliczanie zajętości swap

  SHELL "swapon -s | awk {'print $3'} | sed -n '2p'" WAIT TO totalswap

  SHELL "swapon -s | awk {'print $4'} | sed -n '2p'" WAIT TO usedswap

  TextArea39.Text = total

  TextArea40.Text = used

  TextArea41.Text = freee

  TextArea42.Text = shared

  TextArea43.Text = buffers

  TextArea44.Text = cached

  TextLabel7.Text = usedonthistime

  TextArea45.Text = swaptotal

  TextLabel24.Text = usedswap / 1000

  SHELL "uptime" TO uptime

  TextArea37.Text = uptime

  ProgressBar1.Value = dospam / totpam

  ProgressBar4.Value = usedswap / totalswap 

END

PUBLIC SUB Button3_Click()

  About.Show

END

PUBLIC SUB Button5_Click()

  dospam_uptime()

END

PUBLIC SUB Button6_Click()

  dospam_uptime()

END

PUBLIC SUB Button4_Click()

  Desktop.Open("http://www.cpu-world.com/cgi-bin/SearchSite.pl?SEARCH=" & TextArea1.Text & "&PROCESS=Search")

END

PUBLIC SUB Button7_Click()

  DIM dpkg AS String

  SHELL "cat /var/lib/dpkg/status | grep '^Status: install ok installed' | wc -l" WAIT TO dpkg

  TextLabel10.Visible = TRUE

  TextArea28.Visible = TRUE

  TextLabel21.Visible = TRUE

  TextArea28.Text = dpkg

END

PUBLIC SUB Button9_Click()

  Last1.Show

END

PUBLIC SUB Button8_Click()

  SHELL "xrandr -s " & ComboBox2.Text & "" WAIT

  grafika()

END

PUBLIC SUB Button10_Click()

'sudo apt-get -y remove

  EXEC ["gksu", "sudo apt-get -y remove " & ComboBox3.Text & ""] WAIT

  kernel()

  Message.Warning("Dla poprawności tego działania proszę\nzaktualizuj gruba poleceniem = sudo update-grub")

END