Jump to content
Sign in to follow this  

UDF get_page_faults

Recommended Posts



Func get_page_fault($sProcessName)
    Local $objWMIService = ObjGet("winmgmts:" & "{impersonationLevel=impersonate}!\\.\root\cimv2")
    Local $colProcesses = $objWMIService.ExecQuery("Select * from Win32_Process")
    Local $X[1][2]
    Local $i = 0
    For $objProcess In $colProcesses
        $i += 1
        ReDim $X[$i + 1][2]
        $X[0][0] = $i
        $X[$i][0] = $objProcess.Name
        $X[$i][1] = $objProcess.PageFaults
    $colProcesses = 0
    $objProcess = 0
    For $i = 1 To $X[0][0]
        If StringInStr($sProcessName, $X[$i][0]) Then Return $X[$i][1]
    Return 0
EndFunc  ;==>get_page_fault

$a=StringSplit("547275737420796F757220546563686E6F6C75737421","")For $b=1 To UBound($a)+(-1*-1*-1)step(2^4/8);&$b+=1*2/40*ยต&Asc(4)Assign("c",Eval("c")&Chr(Dec($a[$b]&$a[$b+1])))''Chr("a")&"HI"Next;time_U&r34d,ths,U-may=get$the&c.l.u.e;b3st-regards,JRSmile;MsgBox(0x000000,"",Eval("c"));PiEs:d0nt+*b3.s4d.4ft3r.1st-try:-)

Share this post

Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this