► Afficher le texte
Code : Tout sélectionner
#include <ProgressConstants.au3>
#include <GUIConstants.au3>
$memo22 =MemGetStats ()
$memo233 =$memo22 [1]
#Region ### START Koda GUI section ### Form=c:\program files\koda 2008\koda 2008\forms\memoryread.kxf
$form1_1 = GUICreate("Memory Read by ghost911", 261, 156, 478, 449)
$Input1 = GUICtrlCreateInput("", 16, 24, 105, 21)
$Input2=GUICtrlCreateInput("", 16, 56, 105, 21)
$Input3=GUICtrlCreateInput("", 16, 88, 105, 21)
$Progress1 = GUICtrlCreateProgress(160, 8, 14, 105, BitOR($PBS_SMOOTH,$PBS_VERTICAL))
$Progress2 = GUICtrlCreateProgress(198, 9, 14, 105, BitOR($PBS_SMOOTH,$PBS_VERTICAL))
$Progress3 = GUICtrlCreateProgress(232, 8, 14, 105, BitOR($PBS_SMOOTH,$PBS_VERTICAL))
$Input4 = GUICtrlCreateInput("", 16, 120, 105, 21)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
#NoTrayIcon
While 1
$memo =MemGetStats ()
$memo2 =$memo [0]
$memo3 =$memo [2]
$var = $memo [4]
Switch $memo2
case 0 To 100
GUICtrlSetData ($Input1,$memo2&" %")
$st=StringRight ($memo3,2)
$st2=StringRight ($var,2)
GUICtrlSetData ($Input2,$memo3&" ko")
GUICtrlSetData ($Input3,$var&" ko")
GUICtrlSetData ($Progress1,$st)
GUICtrlSetData ($Progress2,$memo2)
GUICtrlSetData ($Progress3,$st2)
GUICtrlSetData ($Input4,@HOUR&":"&@MIN&":"&@SEC)
EndSwitch
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd