[Source]Affinity Checker/Core amount

NOTE: Not written by me, but passed on to you by me

Code:

Declare Function GetProcessAffinityMask Lib "kernel32" (ByVal hProcess As Long, lpProcessAffinityMask As Long, SystemAffinityMask As Long) As Long
Declare Function GetCurrentProcess Lib "Kernel32.dll" () As Long

Public Function Check_Affinity() As String
    Dim ProcMask As Long, SysMask As Long
    
    Dim Num_Procs As Long
    Dim i As Long, j As Long
    
    Call GetProcessAffinityMask(GetCurrentProcess(), ProcMask, SysMask)

    ' Number of binary digits in this mask is the highest processor index.
    ' Number of radix-n digits in a number, x, is Int( Log_n(x) ) = Log(x)/Log(n)
    ' SysMask = 2^np - 1... Log_2(SysMask + 1) = np
    Num_Procs = Math.Log(CDbl(SysMask) + 1) / Math.Log(2)
    
    j = 1
    For i = 1 To Num_Procs
        If ProcMask And j Then
            ' Affinity with processor i-1, counted from 0
            Check_Affinity = Check_Affinity & i - 1 & ", "
        End If
        j = j * 2
    Next
    
    If Len(Check_Affinity) > 0 Then
        Check_Affinity = "Cores: " & Left(Check_Affinity, Len(Check_Affinity) - 2)
    Else
        ' I don't think it's possible to get here
        ' but this may indicate an error.
        Check_Affinity = "No affinity?"
    End If
End Function

 

Excuse my ignorance, but what's it do? (Moniter's Affinity, but what's that on your system?)

 

Its for multiple processors... I don't know why he would post this here..