А можно средствами VB6 загрузить процессор на 100%
Формулировка задачи:
А можно средствами VB6 загрузить процессор на 100%
Или перефразирую вопрос, достигается ли в VB6.0 реализация использования многоядерности процессоров?
Решение задачи: «А можно средствами VB6 загрузить процессор на 100%»
textual
Листинг программы
Option Explicit Public Type SYSTEM_INFO dwOemID As Long dwPageSize As Long lpMinimumApplicationAddress As Long lpMaximumApplicationAddress As Long dwActiveProcessorMask As Long dwNumberOrfProcessors As Long dwProcessorType As Long dwAllocationGranularity As Long dwReserved As Long End Type Public Declare Sub GetSystemInfo Lib "kernel32" (lpSystemInfo As SYSTEM_INFO) Public Declare Function CreateThread Lib "kernel32" (lpThreadAttributes As Any, ByVal dwStackSize As Long, _ ByVal lpStartAddress As Long, lpParameter As Any, ByVal dwCreationFlags As Long, _ lpThreadId As Long) As Long Public Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long Public flag As Long Public Sub thread(ByVal unUse As Long) Do Loop While GetFlag() End Sub Private Function GetFlag() As Long GetFlag = flag End Function
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д