RAMPro UDF

SUBMITTED BY: Guest

DATE: May 30, 2013, 8 a.m.

FORMAT: Text only

SIZE: 12.5 kB

Raw Download

HITS: 961

Report
  1. #NoTrayIcon
  2. #Region ;**** Directives created by AutoIt3Wrapper_GUI ****
  3. #AutoIt3Wrapper_icon=Sys-Program.ico
  4. #AutoIt3Wrapper_Res_Comment=Free empty working space
  5. #AutoIt3Wrapper_Res_Description=RAMPro
  6. #AutoIt3Wrapper_Res_Fileversion=2.4
  7. #AutoIt3Wrapper_Res_LegalCopyright=James Brooks
  8. #AutoIt3Wrapper_Res_Field=Website|http://www.james-brooks.net
  9. #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
  10. #include <GUIListView.au3>
  11. #include <GuiImageList.au3>
  12. #include <WindowsConstants.au3>
  13. #include <Constants.au3>
  15. Opt("TrayOnEventMode", 1)
  16. Opt("TrayMenuMode", 1)
  18. TraySetOnEvent($TRAY_EVENT_PRIMARYUP, "OpenFromTray")
  20. AdlibRegister("_Auto")
  22. Global $StartIdle, $StartKernel, $StartUser ; CPU
  23. Global $EndIdle, $EndKernel, $EndUser ; CPU
  24. Dim $hMem = MemGetStats(), $bAuto = False
  25. Dim $hTimer = TimerInit() ; We use this to reset the warning box if we need
  26. Dim $iVersion = 2.4 ; Version number
  27. Dim $iCPUTot
  28. Dim $IDLETIME, $KERNELTIME, $USERTIME ; CPU
  30. $IDLETIME = DllStructCreate("dword;dword")
  31. $KERNELTIME = DllStructCreate("dword;dword")
  32. $USERTIME = DllStructCreate("dword;dword")
  34. $hGUI = GUICreate("RAMPro", 373, 165, -1, -1)
  35. $hInfo = _GUICtrlListView_Create($hGUI, "", 8, 8, 177, 149)
  36. _GUICtrlListView_SetExtendedListViewStyle($hInfo, BitOR($LVS_EX_GRIDLINES, $LVS_EX_FULLROWSELECT, $LVS_EX_SUBITEMIMAGES))
  38. $hImage = _GUIImageList_Create() ; Create the solid bitmaps for the icons
  39. _GUIImageList_Add($hImage, _GUICtrlListView_CreateSolidBitMap($hInfo, 0xFF0000, 16, 16)) ; Drive Space is bad 0
  40. _GUIImageList_Add($hImage, _GUICtrlListView_CreateSolidBitMap($hInfo, 0xFF9900, 16, 16)) ; Drive space is ok 1
  41. _GUIImageList_Add($hImage, _GUICtrlListView_CreateSolidBitMap($hInfo, 0x00FF00, 16, 16)) ; Drive space is good 2
  43. _GUICtrlListView_InsertColumn($hInfo, 0, "Type")
  44. _GUICtrlListView_InsertColumn($hInfo, 1, "Info")
  45. _GUICtrlListView_AddItem($hInfo, "Total RAM", 3)
  46. _GUICtrlListView_AddSubItem($hInfo, 0, $hMem[1], 1)
  47. _GUICtrlListView_AddItem($hInfo, "Available RAM", _DecideStatus(1)) ; Decide what icon should be used
  48. _GUICtrlListView_AddSubItem($hInfo, 1, $hMem[2], 1)
  49. _GUICtrlListView_AddItem($hInfo, "Used RAM", _DecideStatus(2)) ; Decide what icon should be used
  50. _GUICtrlListView_AddSubItem($hInfo, 2, $hMem[3] & "%", 1)
  51. _GUICtrlListView_SetImageList($hInfo, $hImage, 1)
  53. _GUICtrlListView_AddItem($hInfo, "", 3) ; Blank between RAM and CPU
  55. _GUICtrlListView_AddItem($hInfo, "CPU Usage", _DecideStatus(3)) ; Decide what icon should be used
  56. _GUICtrlListView_AddSubItem($hInfo, 4, "", 1)
  57. _GUICtrlListView_SetImageList($hInfo, $hImage, 1)
  59. _GUICtrlListView_SetColumnWidth($hInfo, 0, $LVSCW_AUTOSIZE)
  60. _GUICtrlListView_SetColumnWidth($hInfo, 1, $LVSCW_AUTOSIZE)
  62. $hFree = GUICtrlCreateButton("&Free RAM", 192, 8, 177, 25, 0)
  63. $hSelect = GUICtrlCreateButton("Select &Process", 192, 40, 177, 25, 0)
  64. $hAuto = GUICtrlCreateButton("Enable &Auto Free", 192, 72, 177, 25, 0)
  66. $hStartup = GUICtrlCreateCheckbox("&Run RAMPro at startup", 192, 102, 177, 25)
  67. If FileExists(@StartupDir & "\RAMPro.lnk") Then GUICtrlSetState(-1, 1)
  69. $hAbout = GUICtrlCreateButton("About", 192, 128, 177, 25, 0)
  71. If @Compiled Then
  72. If $CmdLine[0] = 0 Then
  73. GUISetState(@SW_SHOW)
  74. ElseIf StringUpper($CmdLine[1]) == "-AUTEN" Then ; They turned on auto enable from startup!
  75. $bAuto = True
  76. GUICtrlSetData($hAuto, "Disable &Auto Free")
  77. GUISetState(@SW_HIDE)
  78. TraySetState(1)
  79. EndIf
  80. Else
  81. GUISetState(@SW_SHOW) ; When not running from EXE we just want the GUI
  82. EndIf
  84. While 1
  85. $nMsg = GUIGetMsg()
  86. Switch $nMsg
  87. Case -3
  88. Exit
  89. Case -4
  90. GUISetState(@SW_HIDE)
  91. TraySetState(1)
  92. Case $hFree
  93. _ReduceMemory_All()
  94. Case $hAbout
  95. MsgBox(0, "RAMPro", "RAMPro Version " & $iVersion & " by James Brooks " & @YEAR & @CRLF & @CRLF & "Visit http://www.james-brooks.net for more programs!")
  96. Case $hAuto
  97. If $bAuto = False Then
  98. $bAuto = True
  99. GUICtrlSetData($hAuto, "Disable &Auto Free")
  100. Else
  101. $bAuto = False
  102. GUICtrlSetData($hAuto, "Enable &Auto Free")
  103. EndIf
  104. Case $hSelect
  105. _FreeSelected()
  106. Case $hStartup
  107. $iState = GUICtrlRead($hStartup)
  108. If $iState = 1 Then
  109. _RunStartup(True)
  110. ElseIf $iState = 4 Then
  111. _RunStartup(False)
  112. EndIf
  113. EndSwitch
  114. WEnd
  116. Func _Auto()
  117. If $hMem[2] <= $hMem[1] / 4 Then _TrayTipWait("RAMPro", "Warning!" & @CRLF & "Low RAM available!", 40, 2)
  118. ; RAM
  119. $hMem = MemGetStats()
  120. _GUICtrlListView_SetItemText($hInfo, 1, $hMem[2], 1)
  121. _GUICtrlListView_SetItemImage($hInfo, 1, _DecideStatus(1))
  122. _GUICtrlListView_SetItemText($hInfo, 2, $hMem[0] & "%", 1)
  123. _GUICtrlListView_SetItemImage($hInfo, 2, _DecideStatus(2))
  124. ; CPU
  125. _GetSysTime($EndIdle, $EndKernel, $EndUser)
  126. _CPUCalc()
  127. _GetSysTime($StartIdle, $StartKernel, $StartUser)
  128. ; Should we auto reduce?
  129. If $bAuto = True Then _ReduceMemory_All()
  130. TraySetToolTip($hMem[0] & "% used!")
  131. EndFunc ;==>_Auto
  133. Func _ReduceMemory_All()
  134. $list = ProcessList()
  135. For $i = 1 To $list[0][0]
  136. Local $ai_Handle = DllCall("kernel32.dll", "int", "OpenProcess", "int", 0x1f0fff, "int", False, "int", $list[$i][1])
  137. If @error Then _CritErr("Unable to call OpenProcess in kernel32.dll")
  138. Local $ai_Return = DllCall("psapi.dll", "int", "EmptyWorkingSet", "int", $ai_Handle[0])
  139. If @error Then _CritErr("Unable to call EmptyWorkingSet in psapi.dll")
  140. DllCall("kernel32.dll", "int", "CloseHandle", "int", $ai_Handle[0])
  141. If @error Then _CritErr("Unable to call CloseHandle in kernel32.dll")
  142. Next
  143. EndFunc ;==>_ReduceMemory_All
  145. Func _ReduceMemory($i_PID)
  146. If $i_PID <> -1 Then
  147. Local $ai_Handle = DllCall("kernel32.dll", 'int', 'OpenProcess', 'int', 0x1f0fff, 'int', False, 'int', $i_PID)
  148. If @error Then _CritErr("Unable to call OpenProcess in kernel32.dll")
  149. Local $ai_Return = DllCall("psapi.dll", 'int', 'EmptyWorkingSet', 'long', $ai_Handle[0])
  150. If @error Then _CritErr("Unable to call EmptyWorkingSet in psapi.dll")
  151. DllCall('kernel32.dll', 'int', 'CloseHandle', 'int', $ai_Handle[0])
  152. If @error Then _CritErr("Unable to call CloseHandle in kernel32.dll")
  153. Else
  154. Local $ai_Return = DllCall("psapi.dll", 'int', 'EmptyWorkingSet', 'long', -1)
  155. If @error Then _CritErr("Unable to call EmptyWorkingSet in psapi.dll")
  156. EndIf
  158. Return $ai_Return[0]
  159. EndFunc ;==>_ReduceMemory
  161. Func OpenFromTray()
  162. TraySetState(2)
  163. GUISetState(@SW_SHOW)
  164. EndFunc ;==>OpenFromTray
  166. Func _TrayTipWait($s_TrayTitle, $s_TrayText, $i_TimeOut, $i_Option = 0)
  167. Local $i_PrevMatchMode = Opt("WinTitleMatchMode", 4)
  168. Local $i_StartTimer, $aWindows, $h_TrayTip, $b_Clicked = 0
  170. If $s_TrayText = "" Then
  171. TrayTip("", "", 30)
  172. Else
  173. $i_StartTimer = TimerInit()
  174. TrayTip($s_TrayTitle, $s_TrayText, 30, $i_Option)
  176. $aWindows = WinList("[CLASS:tooltips_class32]")
  177. For $iX = 1 To $aWindows[0][0]
  178. If BitAND(WinGetState($aWindows[$iX][1]), 2) Then
  179. $h_TrayTip = $aWindows[$iX][1]
  180. ExitLoop
  181. EndIf
  182. Next
  184. While BitAND(WinGetState($h_TrayTip), 2) And (TimerDiff($i_StartTimer) < (1000 * $i_TimeOut))
  185. Sleep(100)
  186. WEnd
  187. If TimerDiff($i_StartTimer) < (1000 * $i_TimeOut) Then
  188. $b_Clicked = 1
  189. Else
  190. TrayTip("", "", 10)
  191. $b_Clicked = 0
  192. EndIf
  193. EndIf
  194. Opt("WinTitleMatchMode", $i_PrevMatchMode)
  195. Return $b_Clicked
  196. EndFunc ;==>_TrayTipWait
  198. Func _FreeSelected()
  199. $hMyProcess = GUICreate("Free RAM from selected process", 354, 262, -1, -1)
  200. $hProcesses = _GUICtrlListView_Create($hMyProcess, "Processes|Type|Memory", 8, 8, 337, 214, BitOR($LVS_REPORT, $LVS_SHOWSELALWAYS))
  201. _GUICtrlListView_SetExtendedListViewStyle($hProcesses, BitOR($LVS_EX_GRIDLINES, $LVS_EX_FULLROWSELECT, $LVS_EX_SUBITEMIMAGES))
  202. $hList = ProcessList()
  203. For $iList = 1 To $hList[0][0] ; Populate list with processes
  204. $iStats = ProcessGetStats($hList[$iList][1], 0)
  205. If IsArray($iStats) Then
  206. _GUICtrlListView_AddItem($hProcesses, $hList[$iList][0])
  207. _GUICtrlListView_AddSubItem($hProcesses, $iList - 1, $iStats[0] / 1024, 2) ; WorkingSetSize
  208. Else
  209. _GUICtrlListView_AddItem($hProcesses, $hList[$iList][0])
  210. _GUICtrlListView_AddSubItem($hProcesses, $iList - 1, "<SYSTEM>", 1)
  211. EndIf
  212. Next
  214. _GUICtrlListView_SetColumnWidth($hProcesses, 0, $LVSCW_AUTOSIZE) ; Re-size the process list
  216. $hKill = GUICtrlCreateButton("&Kill Process", 128, 224, 105, 33)
  217. $hFreeSelected = GUICtrlCreateButton("Free &Selected", 240, 224, 105, 33, 0)
  219. GUISetState(@SW_SHOW)
  221. While WinExists($hMyProcess)
  222. $iMsg = GUIGetMsg()
  223. Switch $iMsg
  224. Case -3;, $hClose
  225. GUIDelete($hMyProcess)
  226. Case $hFreeSelected
  227. $hIndic = _GUICtrlListView_GetSelectedIndices($hProcesses, True) ; Get the selected item
  228. For $f = 1 To $hIndic[0]
  229. $hRet = _ReduceMemory($hList[$hIndic[$f]][1]) ; Reduce the process memory
  230. Next
  231. Case $hKill
  232. $hIndic = _GUICtrlListView_GetSelectedIndices($hProcesses, True) ; Get the selected item
  233. For $k = 1 To $hIndic[0]
  234. ProcessClose($hList[$hIndic[$k]][1]) ; Close the process
  235. Next
  236. EndSwitch
  237. WEnd
  238. EndFunc ;==>_FreeSelected
  240. Func _DecideStatus($iType)
  241. Switch $iType
  242. Case 1 ; Available RAM
  243. If $hMem[2] <= $hMem[1] / 4 Then
  244. Return 0 ; Bad
  245. ElseIf $hMem[2] <= $hMem[1] / 2 Then
  246. Return 1 ; Ok
  247. Else
  248. Return 2 ; Good
  249. EndIf
  250. Case 2 ; Used RAM
  251. If $hMem[0] <= 25 Then
  252. Return 2 ; Bad
  253. ElseIf $hMem[0] <= 50 Then
  254. Return 1 ; Ok
  255. ElseIf $hMem[0] <= 75 Then
  256. Return 0 ; Good
  257. EndIf
  258. Case 3 ; CPU Usage
  259. If $iCPUTot <= 25 Then
  260. Return 2 ; Bad
  261. ElseIf $iCPUTot <= 50 Then
  262. Return 1 ; Ok
  263. Else
  264. Return 0 ; Good
  265. EndIf
  266. EndSwitch
  267. EndFunc ;==>_DecideStatus
  269. Func _CritErr($sText)
  270. $sErrFile = FileOpen(@ScriptDir & '\err.log', 1)
  271. FileWrite($sErrFile, $sText & " @ " & @MON & "/" & @MDAY & "/" & @YEAR)
  272. MsgBox(16 + 4096, "RAMPro Critical Error", $sText & @LF & @LF & "Please refer to err.log for further details.")
  273. FileClose($sErrFile)
  274. Exit 1
  275. EndFunc ;==>_CritErr
  277. Func _RunStartup($booShouldRun)
  278. If $booShouldRun = True Then
  279. FileCreateShortcut(@ScriptFullPath, @StartupDir & "\RAMPro.lnk", @StartupDir, "-auten")
  280. ElseIf $booShouldRun = False Then
  281. FileDelete(@StartupDir & "\RAMPro.lnk")
  282. EndIf
  283. EndFunc ;==>_RunStartup
  285. ;; CPU Functions by rasim (http://www.autoitscript.com/forum/index.php?showtopic=72689)
  286. Func _GetSysTime(ByRef $sIdle, ByRef $sKernel, ByRef $sUser)
  287. DllCall("kernel32.dll", "int", "GetSystemTimes", "ptr", DllStructGetPtr($IDLETIME), _
  288. "ptr", DllStructGetPtr($KERNELTIME), _
  289. "ptr", DllStructGetPtr($USERTIME))
  291. $sIdle = DllStructGetData($IDLETIME, 1)
  292. $sKernel = DllStructGetData($KERNELTIME, 1)
  293. $sUser = DllStructGetData($USERTIME, 1)
  294. EndFunc ;==>_GetSysTime
  296. Func _CPUCalc()
  297. Local $iSystemTime, $iTotal, $iCalcIdle, $iCalcKernel, $iCalcUser
  299. $iCalcIdle = ($EndIdle - $StartIdle)
  300. $iCalcKernel = ($EndKernel - $StartKernel)
  301. $iCalcUser = ($EndUser - $StartUser)
  303. $iSystemTime = ($iCalcKernel + $iCalcUser)
  304. $iTotal = Int(($iSystemTime - $iCalcIdle) * (100 / $iSystemTime)) & "%"
  306. $iCPUTot = Int(($iSystemTime - $iCalcIdle) * (100 / $iSystemTime))
  308. If _GUICtrlListView_GetItemText($hInfo, 4, 1) <> $iTotal Then
  309. _GUICtrlListView_SetItemText($hInfo, 4, $iTotal, 1)
  310. _GUICtrlListView_SetItemImage($hInfo, 4, _DecideStatus(3))
  311. EndIf
  312. EndFunc ;==>_CPUCalc
  314. ;; Visual Style Stuff
  315. Func ActivateWindowTheme($hWnd)
  316. $dll = DllCall("uxtheme.dll", "int", "SetWindowTheme", "hwnd", $hWnd, "wstr", "", "wstr", "")
  317. If Not @error Then Return $dll
  318. EndFunc ;==>ActivateWindowTheme
comments powered by Disqus