[Code Snippet] Deux fonctions sur le processeur...

`USE: read the cpu count using the function cpu_count()
`USE: set the cpu using the function set_affinity(input) - input takes the cpu no.
`example: use the last cpu core only: set_affinity(cpu_count())

print "CPU count: ",cpu_count()
print "CPU use set: ",set_affinity(%000000000000000000000010)


suspend for key


function cpu_count()
   `FOR INFO GO TO: http://msdn2.microsoft.com/en-us/library/ms686223.aspx

   for next_dll=1 to 256
      if dll exist(next_dll)=0 then exit
   next next_dll

   load dll "C:WINDOWSsystem32kernel32.dll",next_dll

   lpProcessAffinityMask=make memory(32)
   lpSystemAffinityMask=make memory(32)

   hProcess=call dll(next_dll,"GetCurrentProcess")
   get=call dll(next_dll,"GetProcessAffinityMask",hProcess,lpProcessAffinityMask,lpSystemAffinityMask)

   for cpu_count=1 to 32
      if mid$(bin$(*lpProcessAffinityMask),33-cpu_count)="0" then exit
   next cpu_count

   delete dll next_dll
   delete memory lpProcessAffinityMask
   delete memory lpSystemAffinityMask
endfunction cpu_count






function set_affinity(in)
   `FOR INFO GO TO: http://msdn2.microsoft.com/en-us/library/ms686223.aspxv

   for next_dll=1 to 256
      if dll exist(next_dll)=0 then exit
   next next_dll

   load dll "C:WINDOWSsystem32kernel32.dll",next_dll

   lpProcessAffinityMask=make memory(32)
   lpSystemAffinityMask=make memory(32)

   hProcess=call dll(next_dll,"GetCurrentProcess")
   get=call dll(next_dll,"GetProcessAffinityMask",hProcess,lpProcessAffinityMask,lpSystemAffinityMask)

   *lpProcessAffinityMask=in

   succes=call dll(next_dll,"SetProcessAffinityMask",hProcess,*lpProcessAffinityMask)

   delete dll next_dll
   delete memory lpProcessAffinityMask
   delete memory lpSystemAffinityMask
endfunction succes

   for cpu_count=1 to 32
      if mid$(bin$(*lpProcessAffinityMask),cpu_count)="0" then exit
   next cpu_count
   rem dec cpu_count

   for cpu_count=1 to 32
      if mid$(bin$(*lpProcessAffinityMask),33-cpu_count)="0" then exit
   next cpu_count