AutoHotkey Community

;<=====  System Settings  =====>
#SingleInstance Force
#NoEnv
SetTimer,CpuLoad,1000
SetFormat, Float, 0.2

;<=====  Menu  =====>
Menu, MyMenu, Add, Run, RunFile
Menu, MyMenu, Add, Remove, RemoveFile

;<=====  GUI  =====>
Gui, Color, FFFFFF
Gui -Border
Gui, Font,, Comic Sans MS Bold

Gui, Add, Text, x6 y6 w150 h20 , Welcome to TekOS REMIX

Gui, Add, ComboBox, x300 y6 w150 h20 r4 vRunText, AHK Write|ACConsole|File Manager|AHK Media Player
Gui, Add, Button, x456 y6 w60 h23 gRunCommand, Run

Gui, Add, GroupBox, x6 y30 w250 h220 , Date
Gui, Add, MonthCal, x16 y50 w230 h190 ,

Gui, Add, GroupBox, x266 y30 w250 h220 , Quick Launcher
Gui, Add, Button, x276 y50 w230 h20 gAddFile, Add file to Quick Launcher
Gui, Add, ListView, x276 y70 w230 h170 gCentral, Name|Extension|Directory

Gui, Add, GroupBox, x6 y260 w250 h140 , System
Gui, Add, Picture, x16 y280 w40 h40 , Resources\Computer.ico
Gui, Add, Button, x66 y280 w80 h20 gHibernate, Hibernate
Gui, Add, Button, x66 y310 w80 h20 gLogoff, Log Off
Gui, Add, Button, x66 y340 w80 h20 gReboot, Reboot
Gui, Add, Button, x66 y370 w80 h20 gShutdown, Shut Down
Gui, Add, Button, x156 y280 w80 h20 gGetSystemInfo, System Info
Gui, Add, Button, x156 y340 w80 h20 gEject, Eject
Gui, Add, Button, x156 y370 w80 h20 gRetract, Retract

Gui, Add, GroupBox, x266 y260 w250 h140 , Internet
Gui, Add, Picture, x276 y280 w50 h50 , Resources\Web page.ico
Gui, Add, Button, x336 y280 w110 h20 gGoogle, Google
Gui, Add, Button, x336 y310 w110 h20 gHotMail, HotMail
Gui, Add, Button, x336 y340 w110 h20 gGMail, gMail
Gui, Add, Button, x336 y370 w110 h20 gWeather, Weather

Gui, Add, StatusBar, x6 y30 w140 h20 ,

Gui, Show, xCenter yCenter h426 w522, Tek OS REMIX
SB_SetParts(100,110,150)
WinSet, Transparent, 185, Tek OS REMIX
WinGet, TekID, ID, A
Return

;<=====  System Buttons  =====>
Reboot:
  ShutDown, 2
  Return

Shutdown:
  Shutdown, 1
  Return

Logoff:
  Shutdown, 0
  Return

Hibernate:
  DllCall("PowrProf\SetSuspendState", "int", 0, "int", 0, "int", 0)
  Return

GetSystemInfo:
  DriveGet,Capacity,Capacity,%SystemDrive%
  Drivespacefree, FreeSpace, %Systemdrive%
  If Capacity > 1024
    CapacityGB := Capacity / 1024
  CapacityGBR := Round(CapacityGB)
  If FreeSpace > 1024
    FreeSpaceGB := FreeSpace / 1024
  FreeSpaceGBR := Round(FreeSpaceGB)
  Memory := DllCall("resources\gmem.dll\GetMemStats", "str", "dwTotalPhys")
  MemoryMB := Memory / 1024 /1024
  MemoryMBR := Round(MemoryMB)
  Code (Copy):
  Runwait, %comspec% /c ver > %temp%\OSSP.txt,,Hide
  Fileread,OperatingSystem,%temp%\OSSP.txt
  Filedelete,%temp%\ver.txt
  MsgBox, 64, ,Operating System: %OperatingSystem%`nDrive: %Systemdrive%`nHolding Capacity (GB):%CapacityGBR%`nTotal Space Left (GB):%FreeSpaceGBR%`nTotal RAM (MB): %MemoryMBR%
  Return

;<=====  Internet Buttons  =====>
Google:
  Run, www.google.com
  Return

HotMail:
  Run, www.hotmail.com
  Return

GMail:
  Run, www.gmail.com
  Return

Weather:
  Run, www.weather.com
  Return

Eject:
  Drive, Eject,,
  Return

Retract:
  Drive, Eject,, 1
  Return

;<=====  Run System  =====>
RunCommand:
  Gui, Submit, NoHide
  If RunText = AHK Write
    Run, Resources\AHKWrite.ahk
  Else If RunText = ACConsole
    Run, Resources\ACConsole.ahk
  Else If RunText = File Manager
    Run, Resources\FileManager.ahk
  Else If RunText = AHK Media Player
    Run, Resources\AHK Media Player.ahk
  Else
    Run, %RunText%
  Return

;<=====  Quick Launcher  =====>
AddFile:
  Gui, +OwnDialogs
  FileSelectFile,FilesToAdd,M3,,Select  File,
  If (!FilesToAdd)
    {
      MsgBox, No File(s) Selected
      Return
    }
  Loop, parse, FilestoAdd, `n
    {
      If (a_index != 1)
        {
          SplitPath,A_loopField,,,FileExt
          LV_Add("",a_loopfield,FileExt,dir)
        }
      Else
        {
          Dir:=a_loopField
        }
    }
  LV_ModifyCol()
  Return

Central:
  Remove = %A_EventInfo%
  LV_GetText(name, A_EventInfo, 1)
  LV_GetText(dir, A_EventInfo, 3)
  ToRun = %dir%\%name%
  If A_GuiEvent = DoubleClick
    GoSub, RunFile
  If A_GuiEvent = RightClick
    Menu, MyMenu, Show
  Return

RunFile:
  Run, %ToRun%
  Return

RemoveFile:
  LV_Delete(Remove)
  Return

;<=====  CPU Load  =====>
CpuLoad:
  Load := GetSystemTimes()
  SB_SetText("CPU Load: " Load `%,2)
  d = `n
  s := 4096
  l =
  Process, Exist
  h := DllCall("OpenProcess", "UInt", 0x0400, "Int", false, "UInt", ErrorLevel)
  DllCall("Advapi32.dll\OpenProcessToken", "UInt", h, "UInt", 32, "UIntP", t)
  VarSetCapacity(ti, 16, 0)  ; structure of privileges
  NumPut(1, ti, 0, 4)  ; one entry in the privileges array...
  DllCall("Advapi32.dll\LookupPrivilegeValueA", "UInt", 0, "Str", "SeDebugPrivilege", "UIntP", luid)
  NumPut(luid, ti, 4, 8)
  NumPut(2, ti, 12, 4)  ; enable this privilege: SE_PRIVILEGE_ENABLED = 2
  DllCall("Advapi32.dll\AdjustTokenPrivileges", "UInt", t, "Int", false, "UInt", &ti, "UInt", 0, "UInt", 0, "UInt", 0)
  DllCall("CloseHandle", "UInt", h)  ; close this process handle to save memory
  hModule := DllCall("LoadLibrary", "Str", "Psapi.dll")  ; increase performance by preloading the libaray
  s := VarSetCapacity(a, s)  ; an array that receives the list of process identifiers:
  DllCall("Psapi.dll\EnumProcesses", "UInt", &a, "UInt", s, "UIntP", r)
  Loop, % r // 4  ; parse array for identifiers as DWORDs (32 bits):
    {
      id := NumGet(a, A_Index * 4)
      ; Open process with: PROCESS_VM_READ (0x0010) | PROCESS_QUERY_INFORMATION (0x0400)
      h := DllCall("OpenProcess", "UInt", 0x0010 | 0x0400, "Int", false, "UInt", id)
      VarSetCapacity(m, s)  ; an array that receives the list of module handles:
      DllCall("Psapi.dll\EnumProcessModules", "UInt", h, "UInt", &m, "UInt", s, "UIntP", r)
      VarSetCapacity(n, s, 0)  ; a buffer that receives the base name of the module:
      e := DllCall("Psapi.dll\GetModuleBaseNameA", "UInt", h, "UInt", m, "Str", n, "Chr", s)
      DllCall("CloseHandle", "UInt", h)  ; close process handle to save memory
      If n  ; if image is not null add to list:
      l = %l%%n%%d%
    }
  DllCall("FreeLibrary", "UInt", hModule)  ; unload the library to free memory
  ; Remove the first and last items in the list (possibly ASCII signitures)
  StringMid, l, l, InStr(l, d) + 1, InStr(l, d, false, 0) - 2 - InStr(l, d)
  StringReplace, l, l, %d%, %d%, UseErrorLevel  ; gets the number of processes

  ;Sort, l, C  ; uncomment this line to sort the list alphabetically
  SB_SetText("Processes: " Errorlevel)

  varsetcapacity(memorystatus,512)
  DllCall("kernel32.dll\GlobalMemoryStatus", "uint",&memorystatus)
  mem:=*(&memorystatus+4) ; LS byte is enough, mem = 0..100
  mem := (mem/100)
  SB_SetText("Memory Usage: " mem `%,3)
  Return

GetSystemTimes()    ; Total CPU Load
  {
    Static oldIdleTime, oldKrnlTime, oldUserTime
    Static newIdleTime, newKrnlTime, newUserTime

    oldIdleTime := newIdleTime
    oldKrnlTime := newKrnlTime
    oldUserTime := newUserTime

    DllCall("GetSystemTimes", "int64P", newIdleTime, "int64P", newKrnlTime, "int64P", newUserTime)
    Return (1 - (newIdleTime-oldIdleTime)/(newKrnlTime-oldKrnlTime + newUserTime-oldUserTime)) * 100
  }

;<=====  Show/Hide  =====>
HideTek:
  If TekID <> -1
    {
      WinHide, ahk_id %TekID%
    }
  Return

ShowTek:
  If TekID <> -1
    {
      WinShow, ahk_id %TekID%
      WinActivate, ahk_id %TekID%
      ControlFocus, Edit1, ahk_id %TekID%
    }
  Return

^!x:: ;Change this to Show/Hide with desired hotkey.
  IFWinExist, ahk_id %TekID%
    {
      GoSub, HideTek
      Return
    }
    DetectHiddenWindows, ON
    IFWinExist, ahk_id %TekID%
      GoSub, ShowTek
    DetectHiddenWindows, OFF
  Return

;<=====  System Settings  =====>
#SingleInstance Force
#NoEnv
FileInstall, SoundFunctions.ahk, SoundFunctions.ahk, 0
FileInstall, Filter.ini, Filter.ini, 0
SetBatchLines -1
SetTimer, UpdateSound,5000
SetTimer, UpdateTime,100
SetTimer,UpdateProgress,1000
SetTimer,CheckStatus,100
SoundGet, MV
RSound := Round(MV)
playing = 0
IniRead, Filter, Filter.ini, Config, F
SetTitleMatchMode, 3
#Include Resources\SoundFunctions.ahk

;<=====  GUI  =====>
Menu, Tray, Icon, Resources\sound.ico

Gui, Color, FFFFFF
Gui -Border
Gui, Font,, Comic Sans MS Bold
Gui, Add, Picture, x215 y3 ,Resources\AHKLogo.jpg

Gui, Add, Text, x6 y6 w150 h20, AHK Media Player REMIX

Gui, Add, Button, x6 y30 w150 h20 gOpenMF, Select Media File
Gui, Add, Button, x6 y50 w50 h20 gStopF, Stop
Gui, Add, Button, x56 y50 w50 h20 gPauseF, Pause
Gui, Add, Button, x106 y50 w50 h20 gResumeF, Resume

Gui, Add, Button, x269 y30 w150 h20 gAddC, Add File to Collection
Gui, Add, Button, x269 y50 w150 h20 gEC, Empty Collection

Gui, Add, Text, x435 y6 w50 h20 +Center, Volume
Gui, Add, Slider, x450 y26 w30 h225 Vertical Invert vVSlider Range0-100 gVolumeC AltSubmit, %MV%
Gui, Add, Text, x440 y250 w40 h20 +Center vVText, %RSound%

Gui, Add, Progress, x6 y80 w300 h30 cBlue vProgress Range1-100 vProgress, 0
Gui, Add, Text, x316 y75 w100 r2 vSongTime, 0:0:0`n0:0:0

Gui, Add, StatusBar, x176 y70 w290 h30 , Not Playing A File

Gui, Add, ListView, x6 y120 w425 h150 gPlayLV vLV, Name|Type|Dir

Gui, Show, xCenter yCenter h300 w487, AHK Media Player
Return

GuiClose:
  ExitApp
  Return

;<=====  Sound Controls  =====>
UpdateSound:
  Gui, Submit, NoHide
  SoundGet, MVU
  RSound := Round(MVU)
  Guicontrol,,VSlider,%MVU%
  GuiControl,,VText,%RSound%
  Return

VolumeC:
  Gui, Submit, NoHide
  SoundSet,%VSlider%,master
  GuiControl,, VText,%VSlider%
  Return

OpenMF:
  CheckSong := Sound_Status(hSound)
  If CheckSong = playing
    {
      Sound_Stop(hSound)
      playing = 0
    }
  Gui, +OwnDialogs
  FileSelectFile, Filetoplay, 3, , Select Media File,Audio %Filter%
  If Filetoplay =
    MsgBox,No File Selected
  filename=
  sleep 100
  SplitPath, Filetoplay, filename
  sleep 100
  hSound := Sound_Open(Filetoplay)
  If Not hSound
    Return
  playing = 1
  Sound_Play(hSound)
  Guicontrol,,Progress,0
  Guicontrol,% "+Range1-" Sound_Length(hSound) / 1000,Progress
  SplitPath, Filetoplay, filename
  SB_SetText("Now Playing " filename)
  Return

StopF:
  Sound_Stop(hSound)
  playing = 0
  Guicontrol,,Progress,0
  GuiControl,,SongTime,0:0:0`n0:0:0
  SB_SetText("Not Playing A File")
  Return

PauseF:
  Sound_Pause(hSound)
  Return

ResumeF:
  Sound_Resume(hSound)
  Return

UpdateTime:
  If playing = 0
    Return
  If(Sound_Pos(hSound) = Sound_Length(hSound))
    Return
  GuiControl,,SongTime,% Tohhmmss(Sound_Pos(hSound)) .  "`n"  . Tohhmmss(Sound_Length(hSound))
  Return

UpdateProgress:
  If playing = 0
    Return
  If(Sound_Pos(hSound) = Sound_Length(hSound))
    Return
  Guicontrol,,Progress,% (Sound_Pos(hSound) / 1000)
  Return

CheckStatus:
  Status := Sound_Status(hSound)
  If Status = stopped
    {
      sleep 1500
      Guicontrol,,Progress,0
      Guicontrol,,SongTime,0:0:0`n0:0:0
      SB_SetText("Not Playing A File")
    }
  Return

PlayLV:
  LV_GetText(name, A_EventInfo, 1)
  LV_GetText(dir, A_EventInfo, 3)
  ToPlay = %dir%\%name%
  CheckSong := Sound_Status(hSound)
  If CheckSong = playing
    {
      Sound_Stop(hSound)
      playing = 0
    }
  hSound := Sound_Open(ToPlay)
  If Not hSound
    Return
  playing = 1
  Sound_Play(hSound)
  Guicontrol,,Progress,0
  Guicontrol,% "+Range1-" Sound_Length(hSound) / 1000,Progress
  SB_SetText("Now Playing " name)
  Return

UpdateLV:
  Gui, Submit, NoHide
  LV_Delete()
  Loop, %Directory%\*.*
    LV_Add("", A_LoopFileName, A_LoopFileSizeMB, A_LoopFileExt,A_LoopFileFullPath)
  LV_ModifyCol()
  LV_ModifyCol(2,"Integer")
  Return

AddC:
  If hSound =
    GoSub CAM
  Else
    {
      CheckSong := Sound_Status(hSound)
      If CheckSong = playing
        {
          Sound_Pause(hSound)
          playing = 0
          GoSub CAM
        }
    }
  Return

CAM:
  Critical
  Gui, +OwnDialogs
  Thread,NoTimers
  Sleep,200 ; Ensure No timers start
  FileSelectFile,FilesToAdd,M3,,Select Media File,Audio %Filter%
  Thread,Notimers,False
  If (!FilesToAdd)
    {
      Return
    }
  Loop, parse, FilestoAdd, `n
    {
      If (a_index != 1)
        {
          SplitPath,A_loopField,,,FileExt
          LV_Add("",a_loopfield,FileExt,dir)
        }
      Else
        {
          Dir:=a_loopField
        }
    }
  If hSound =
    Return
  LV_ModifyCol()
  Sound_Resume(hSound)
  Return

EC:
  LV_Delete()
  Return

^h::
  IfWinExist, AHK Media Player
    WinHide, AHK Media Player
  Else
    WinShow, AHK Media Player
  Return

;<=====  System Settings  =====>
#SingleInstance Force
#NoEnv
SetTimer,CpuLoad,1000
SetFormat, Float, 0.2

;<=====  Menu  =====>
Menu, Tray, Icon, Resources\Pinion.ico
Menu, MyMenu, Add, Run, RunFile
Menu, MyMenu, Add, Remove, RemoveFile

;<=====  GUI  =====>
Gui, Color, FFFFFF
Gui -Border
Gui, Font,, Comic Sans MS Bold

Gui, Add, Picture, x215 y3 ,Resources\AHKLogo.jpg

Gui, Add, Text, x6 y6 w150 h20 , Welcome to TekOS REMIX

Gui, Add, ComboBox, x300 y6 w150 h20 r4 vRunText, AHK Write|ACConsole|File Manager|AHK Media Player
Gui, Add, Button, x456 y6 w60 h23 gRunCommand, Run

Gui, Add, GroupBox, x6 y30 w250 h220 , Date
Gui, Add, MonthCal, x16 y50 w230 h190 ,

Gui, Add, GroupBox, x266 y30 w250 h220 , Quick Launcher
Gui, Add, Button, x276 y50 w230 h20 gAddFile, Add file to Quick Launcher
Gui, Add, ListView, x276 y70 w230 h170 gCentral, Name|Extension|Directory

Gui, Add, GroupBox, x6 y260 w250 h140 , System
Gui, Add, Picture, x16 y280 w40 h40 , Resources\Computer.ico
Gui, Add, Button, x66 y280 w80 h20 gHibernate, Hibernate
Gui, Add, Button, x66 y310 w80 h20 gLogoff, Log Off
Gui, Add, Button, x66 y340 w80 h20 gReboot, Reboot
Gui, Add, Button, x66 y370 w80 h20 gShutdown, Shut Down
Gui, Add, Button, x156 y280 w80 h20 gGetSystemInfo, System Info
Gui, Add, Button, x156 y340 w80 h20 gEject, Eject
Gui, Add, Button, x156 y370 w80 h20 gRetract, Retract

Gui, Add, GroupBox, x266 y260 w250 h140 , Internet
Gui, Add, Picture, x276 y280 w50 h50 , Resources\Web page.ico
Gui, Add, Button, x336 y280 w110 h20 gGoogle, Google
Gui, Add, Button, x336 y310 w110 h20 gHotMail, HotMail
Gui, Add, Button, x336 y340 w110 h20 gGMail, gMail
Gui, Add, Button, x336 y370 w110 h20 gWeather, Weather

Gui, Add, StatusBar, x6 y30 w140 h20 ,

Gui, Show, xCenter yCenter h426 w522, Tek OS REMIX
SB_SetParts(100,110,150)
WinSet, Transparent, 185, Tek OS REMIX
WinGet, TekID, ID, A
Return

;<=====  System Buttons  =====>
Reboot:
  ShutDown, 2
  Return

Shutdown:
  Shutdown, 1
  Return

Logoff:
  Shutdown, 0
  Return

Hibernate:
  DllCall("PowrProf\SetSuspendState", "int", 0, "int", 0, "int", 0)
  Return

GetSystemInfo:
  DriveGet,Capacity,Capacity,%SystemDrive%
  Drivespacefree, FreeSpace, %Systemdrive%
  If Capacity > 1024
    CapacityGB := Capacity / 1024
  CapacityGBR := Round(CapacityGB)
  If FreeSpace > 1024
    FreeSpaceGB := FreeSpace / 1024
  FreeSpaceGBR := Round(FreeSpaceGB)
  Memory := DllCall("resources\gmem.dll\GetMemStats", "str", "dwTotalPhys")
  MemoryMB := Memory / 1024 /1024
  MemoryMBR := Round(MemoryMB)
  Code (Copy):
  Runwait, %comspec% /c ver > %temp%\OSSP.txt,,Hide
  Fileread,OperatingSystem,%temp%\OSSP.txt
  Filedelete,%temp%\ver.txt
  MsgBox, 64, ,Operating System: %OperatingSystem%`nDrive: %Systemdrive%`nHolding Capacity (GB):%CapacityGBR%`nTotal Space Left (GB):%FreeSpaceGBR%`nTotal RAM (MB): %MemoryMBR%
  Return

;<=====  Internet Buttons  =====>
Google:
  Run, www.google.com
  Return

HotMail:
  Run, www.hotmail.com
  Return

GMail:
  Run, www.gmail.com
  Return

Weather:
  Run, www.weather.com
  Return

Eject:
  Drive, Eject,,
  Return

Retract:
  Drive, Eject,, 1
  Return

;<=====  Run System  =====>
RunCommand:
  Gui, Submit, NoHide
  If RunText = AHK Write
    Run, Resources\AHKWrite.ahk
  Else If RunText = ACConsole
    Run, Resources\ACConsole.ahk
  Else If RunText = File Manager
    Run, Resources\FileManager.ahk
  Else If RunText = AHK Media Player
    Run, Resources\AHK Media Player.ahk
  Else
    Run, %RunText%
  Return

;<=====  Quick Launcher  =====>
AddFile:
  Gui, +OwnDialogs
  FileSelectFile,FilesToAdd,M3,,Select  File,
  If (!FilesToAdd)
    {
      MsgBox, No File(s) Selected
      Return
    }
  Loop, parse, FilestoAdd, `n
    {
      If (a_index != 1)
        {
          SplitPath,A_loopField,,,FileExt
          LV_Add("",a_loopfield,FileExt,dir)
        }
      Else
        {
          Dir:=a_loopField
        }
    }
  LV_ModifyCol()
  Return

Central:
  Remove = %A_EventInfo%
  LV_GetText(name, A_EventInfo, 1)
  LV_GetText(dir, A_EventInfo, 3)
  ToRun = %dir%\%name%
  If A_GuiEvent = DoubleClick
    GoSub, RunFile
  If A_GuiEvent = RightClick
    Menu, MyMenu, Show
  Return

RunFile:
  Run, %ToRun%
  Return

RemoveFile:
  LV_Delete(Remove)
  Return

;<=====  CPU Load  =====>
CpuLoad:
  Load := GetSystemTimes()
  SB_SetText("CPU Load: " Load `%,2)
  d = `n
  s := 4096
  l =
  Process, Exist
  h := DllCall("OpenProcess", "UInt", 0x0400, "Int", false, "UInt", ErrorLevel)
  DllCall("Advapi32.dll\OpenProcessToken", "UInt", h, "UInt", 32, "UIntP", t)
  VarSetCapacity(ti, 16, 0)  ; structure of privileges
  NumPut(1, ti, 0, 4)  ; one entry in the privileges array...
  DllCall("Advapi32.dll\LookupPrivilegeValueA", "UInt", 0, "Str", "SeDebugPrivilege", "UIntP", luid)
  NumPut(luid, ti, 4, 8)
  NumPut(2, ti, 12, 4)  ; enable this privilege: SE_PRIVILEGE_ENABLED = 2
  DllCall("Advapi32.dll\AdjustTokenPrivileges", "UInt", t, "Int", false, "UInt", &ti, "UInt", 0, "UInt", 0, "UInt", 0)
  DllCall("CloseHandle", "UInt", h)  ; close this process handle to save memory
  hModule := DllCall("LoadLibrary", "Str", "Psapi.dll")  ; increase performance by preloading the libaray
  s := VarSetCapacity(a, s)  ; an array that receives the list of process identifiers:
  DllCall("Psapi.dll\EnumProcesses", "UInt", &a, "UInt", s, "UIntP", r)
  Loop, % r // 4  ; parse array for identifiers as DWORDs (32 bits):
    {
      id := NumGet(a, A_Index * 4)
      ; Open process with: PROCESS_VM_READ (0x0010) | PROCESS_QUERY_INFORMATION (0x0400)
      h := DllCall("OpenProcess", "UInt", 0x0010 | 0x0400, "Int", false, "UInt", id)
      VarSetCapacity(m, s)  ; an array that receives the list of module handles:
      DllCall("Psapi.dll\EnumProcessModules", "UInt", h, "UInt", &m, "UInt", s, "UIntP", r)
      VarSetCapacity(n, s, 0)  ; a buffer that receives the base name of the module:
      e := DllCall("Psapi.dll\GetModuleBaseNameA", "UInt", h, "UInt", m, "Str", n, "Chr", s)
      DllCall("CloseHandle", "UInt", h)  ; close process handle to save memory
      If n  ; if image is not null add to list:
      l = %l%%n%%d%
    }
  DllCall("FreeLibrary", "UInt", hModule)  ; unload the library to free memory
  ; Remove the first and last items in the list (possibly ASCII signitures)
  StringMid, l, l, InStr(l, d) + 1, InStr(l, d, false, 0) - 2 - InStr(l, d)
  StringReplace, l, l, %d%, %d%, UseErrorLevel  ; gets the number of processes

  ;Sort, l, C  ; uncomment this line to sort the list alphabetically
  SB_SetText("Processes: " Errorlevel)

  varsetcapacity(memorystatus,512)
  DllCall("kernel32.dll\GlobalMemoryStatus", "uint",&memorystatus)
  mem:=*(&memorystatus+4) ; LS byte is enough, mem = 0..100
  mem := (mem/100)
  SB_SetText("Memory Usage: " mem `%,3)
  Return

GetSystemTimes()    ; Total CPU Load
  {
    Static oldIdleTime, oldKrnlTime, oldUserTime
    Static newIdleTime, newKrnlTime, newUserTime

    oldIdleTime := newIdleTime
    oldKrnlTime := newKrnlTime
    oldUserTime := newUserTime

    DllCall("GetSystemTimes", "int64P", newIdleTime, "int64P", newKrnlTime, "int64P", newUserTime)
    Return (1 - (newIdleTime-oldIdleTime)/(newKrnlTime-oldKrnlTime + newUserTime-oldUserTime)) * 100
  }

;<=====  Show/Hide  =====>
HideTek:
  If TekID <> -1
    {
      WinHide, ahk_id %TekID%
    }
  Return

ShowTek:
  If TekID <> -1
    {
      WinShow, ahk_id %TekID%
      WinActivate, ahk_id %TekID%
      ControlFocus, Edit1, ahk_id %TekID%
    }
  Return

^!x:: ;Change this to Show/Hide with desired hotkey.
  IFWinExist, ahk_id %TekID%
    {
      GoSub, HideTek
      Return
    }
    DetectHiddenWindows, ON
    IFWinExist, ahk_id %TekID%
      GoSub, ShowTek
    DetectHiddenWindows, OFF
  Return