在VB中如何让线程或进程在指定的CPU上运行
代码如下:
Option Explicit
Private Declare Function WTSEnumerateProcesses Lib "wtsapi32.dll" Alias "WTSEnumerateProcessesA" (ByVal hServer As Long, ByVal Reserved As Long, ByVal Version As Long, ByRef ppProcessInfo As Long, ByRef pCount As Long) As Long
Private Declare Function SetProcessAffinityMask Lib "kernel32.dll" (ByVal hProcess As Long, ByVal dwProcessAffinityMask As Long) As Long
Private Declare Function OpenProcess Lib "kernel32.dll" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcId As Long) As Long
Private Declare Sub WTSFreeMemory Lib "wtsapi32.dll" (ByVal pMemory As Long)
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Private Const WTS_CURRENT_SERVER_HANDLE = 0&
Private Type WTS_PROCESS_INFO
SessionID As Long
ProcessID As Long
pProcessName As Long
pUserSid As Long
End Type
Public Sub Main()
Call SetAffinityByEXE("notepad.exe")
End Sub
Private Sub SetAffinityByEXE(strImageName As String)
Const PROCESS_QUERY_INFORMATION = 1024
Const PROCESS_VM_READ = 16
Const MAX_PATH = 260
Const STANDARD_RIGHTS_REQUIRED = &HF0000
Const SYNCHRONIZE = &H100000
Const PROCESS_ALL_ACCESS = &H1F0FFF
Const TH32CS_SNAPPROCESS = &H2&
Const hNull = 0
Const WIN95_System_Found = 1
Const WINNT_System_Found = 2
Const Default_Log_Size = 10000000
Const Default_Log_Days = 0
Const SPECIFIC_RIGHTS_ALL = &HFFFF
Const STANDARD_RIGHTS_ALL = &H1F0000
Dim BitMasks() As Long, NumMasks As Long, LoopMasks As Long
Dim MyMask As Long
Const AffinityMask As Long = &HF ' 00001111b
Dim lngPID As Long
Dim lngHwndProcess
lngPID = GetProcessID(strImageName)
If lngPID = 0 Then
MsgBox "Could Not Get process ID of " & strImageName, vbCritical, "Error"
Exit Sub
End If
lngHwndProcess = OpenProcess(PROCESS_ALL_ACCESS, 0, lngPID)
If lngHwndProcess = 0 Then
MsgBox "Could Not obtain a handle For the Process ID: " & lngPID, vbCritical, "Error"
Exit Sub
End If
BitMasks() = GetBitMasks(AffinityMask)
'Use CPU0
MyMask = BitMasks(0)
'Use CPU1
'MyMask = BitMasks(1)
'Use CPU0 and CPU1
'MyMask = BitMasks(0) Or BitMasks(1)
'The CPUs to use are specified by the array index.
'To use CPUs 0, 2, and 4, you would use:
'MyMask = BitMasks(0) Or BitMasks(2) Or BitMasks(4)
'To Set Affinity, pass the application h
' andle and your custom affinity mask:
'SetProcessAffinityMask(lngHwndProcess,
' MyMask)
'Use GetCurrentProcess() API instead of
' lngHwndProcess to set affinity on the current app.
If SetProcessAffinityMask(lngHwndProcess, MyMask) = 1 Then
MsgBox "Affinity Set", vbInformation, "Success"
Else
MsgBox "Failed To Set Affinity", vbCritical, "Failure"
End If
End Sub
Private Function GetBitMasks(ByVal inValue As Long) As Long()
Dim RetArr() As Long, NumRet As Long
Dim LoopBits As Long, BitMask As Long
Const HighBit As Long = &H80000000
ReDim RetArr(0 To 31) As Long
For LoopBits = 0 To 30
BitMask = 2 ^ LoopBits
If (inValue And BitMask) Then
RetArr(NumRet) = BitMask
NumRet = NumRet + 1
End If
Next LoopBits
If (inValue And HighBit) Then
RetArr(NumRet) = HighBit
NumRet = NumRet + 1
End If
If (NumRet > 0) Then ' Trim unused array items and return array
If (NumRet < 32) Then ReDim Preserve RetArr(0 To NumRet - 1) As Long
GetBitMasks = RetArr
End If
End Function
Private Function GetProcessID(strProcessName As String) As Long
Dim RetVal As Long
Dim Count As Long
Dim i As Integer
Dim lpBuffer As Long
Dim p As Long
Dim udtProcessInfo As WTS_PROCESS_INFO
Dim lngProcessID As Long
Dim strTempProcessName As String
RetVal = WTSEnumerateProcesses(WTS_CURRENT_SERVER_HANDLE, 0&, 1, lpBuffer, Count)
If RetVal Then ' WTSEnumerateProcesses was successful
p = lpBuffer
For i = 1 To Count
' Count is the number of Structures in the buffer
' WTSEnumerateProcesses returns a pointer, so copy it to a
' WTS_PROCESS_INO UDT so you can access its members
CopyMemory udtProcessInfo, ByVal p, LenB(udtProcessInfo)
' Add items to the ListView control
lngProcessID = CLng(udtProcessInfo.ProcessID)
' Since pProcessName contains a pointer,call GetStringFromLP to get the
' variable length string it points to
If udtProcessInfo.ProcessID = 0 Then
'MsgBox "System Idle Process"
Else
strTempProcessName = GetStringFromLP(udtProcessInfo.pProcessName)
If UCase(strTempProcessName) = UCase(strProcessName) Then
GetProcessID = lngProcessID
End If
End If
p = p + LenB(udtProcessInfo)
Next i
WTSFreeMemory lpBuffer 'Free your memory buffer
Else
MsgBox "Error", vbCritical, "Fatal Error"
End If
End Function
Private Function GetStringFromLP(ByVal StrPtr As Long) As String
Dim b As Byte
Dim tempStr As String
Dim bufferStr As String
Dim Done As Boolean
Done = False
Do
' Get the byte/character that StrPtr is pointing to.
CopyMemory b, ByVal StrPtr, 1
If b = 0 Then ' If you've found a null character, then you're done.
Done = True
Else
tempStr = Chr$(b) ' Get the character For the byte's value
bufferStr = bufferStr & tempStr 'Add it To the String
StrPtr = StrPtr + 1 ' Increment the pointer To Next byte/char
End If
Loop Until Done
GetStringFromLP = bufferStr
End Function
★VB部分相关文章推荐:★
※VB 释放资源文件到指定目录函数
※VB 读取资源文件里面的字符串
※VB中资源文件.res的使用方法详解
※VB6.0中创建和使用文本资源文件
※VB WindowsMediaPlayer 播放
※vb中WindowsMediaPlayer的常用属性和方法
※VB Environ系统环境变量函数大全
※VB 去除文本框粘贴功能
※VB LISTBOX
※VB 删除数组中的重复元素
※VB数组快速排序算法
※关于三个概念:ActiveX、OLE和COM
※VB 获得磁盘的文件系统
※VB中用API实现文件拖放
※加密算法-MD5算法
※VB中使用MD5算法
※VB 全局热键HOOK (不占系统资源版本)
※VB 小技巧自定义TextBox文本框右键菜单
※VB 写下载者代码
※VB 一行代码的诀窍
※VBS教程-wscript对象
※vb枚举进程
※在VB中如何让线程或进程在指定的CPU上运行
※VB判断指定的WORD文档是否被打开
※VB如何读取快捷方式的目标路径
※VB用API控制输入法状态
※为系统加载右键注册控件选项【VB 注册控件】
※VB如何根据窗口标题获得进程名称
※VB快速查找大型文件中包含的字符串
※VB实现可执行文件运行时自删除
※VB 打开txt,bat,jpg 任意后缀程序
※VB 写文件关联程序
※VB 自启动建立右键菜单
※VB 判断IP能否ping通
※VB FTP操作类(可上传、下载、创建文件夹等等)
※VB部分文件汇总B
※Vb 求素数最经典的方法也是最快的方法
※vb用数组方式快速导出MSFlexGrid表格数据到Excel表格中
※VB中MsFlexGrid控件的使用细则
※点击MSFlexGrid数据控件的标题进行数据排序
※VB 获取鼠标坐标
※VB中NEW的用法(申请内存空间)
※VB CreateObject函数
※VB中的New 与 CreateObject的区别
※VB ListBox 添加不重复的值
※VB 单击ListView控件某列表头进行排序
※VB 简单实现简体与繁体互转
※VB 阿拉伯数字转换为中文大写数值函数
※VB 获取Textbox文本框中的行数函数
更多精彩>>>
在VB中如何让线程或进程在指定的CPU上运行相关推荐
- python如何让进程运行在指定的cpu上_java程序可以实现在指定CPU上运行吗?
java程序可以指定CPU运行吗?这是我以前遇到的一个面试问题,这两天又想起来了.一般我们都知道C.C++是可以实现程序指定CPU运行的,那么java到底可不可以呢?网上一部分人说可以,一部分人说不可 ...
- linux内核线程绑定到单个核,linux 将进程或者线程绑定到指定的cpu上
基本概念 cpu亲和性(affinity) CPU的亲和性, 就是进程要在指定的 CPU 上尽量长时间地运行而不被迁移到其他处理器,也称为CPU关联性:再简单的点的描述就将指定的进程或线程绑定到相应的 ...
- python中GIL和线程与进程
线程与全局解释器锁(GIL) 一.线程概论 1.何为线程 每个进程有一个地址空间,而且默认就有一个控制线程.如果把一个进程比喻为一个车间的工作过程那么线程就是车间里的一个一个流水线. 进程只是用来把资 ...
- 正在CPU上运行的进程_进程的概念,系统资源分配的单元
程序:所谓的程序,是硬盘上的一个可执行文件,是静态的. 进程:一个程序运行起来后,代码加上用到的资源称之为进程,它是操作系统分配资源的基本单元. 一个程序,对应进程可以有多个. 多任务不仅可以通过线程 ...
- linux多核单进程,Linux的在多核处理器3个处理(每个进程在不同的核心上运行)之间共享存储器/ SMP...
我想同步三种不同的过程,所以我想使用在进程之间共享内存.所以我从一个进程中分出了两个孩子,并在创建孩子之前创建了共享内存段. 我的意图是在不同的内核中运行子进程和父进程以使其并行执行.所以我使用亲和力 ...
- 运行linux中degui_Windows与Linux合二为一?终于能在windows上运行Linux了!
目前在PC端操作系统市场份额中,微软旗下的windows系统占据超过50%的比例. 作为微软旗下发布的产品之一,windows系统深受用户喜爱.从经典的XP和win7,因其操作简单,运行流畅吸粉无数, ...
- Linux中的mate程序的进程,终端下以后台模式运行Linux程序的过程详解
这是一个简短但是非常有用的教程:它向你展示从终端运行Linux应用程序的同时,如何保证终端仍然可以操作. 在Linux中有许多方式可以打开一个终端,这主要取决于你的发行版的选择和桌面环境. Linux ...
- Linux 查看进程在哪个CPU上运行
ps命令的输出格式可以通过-o参数定制,可以使用如下命令显示进程所对应的执行CPU: # ps -eo pid,args,psr 参数的含义: pid - 进程ID args - 该进程执行时传入的命 ...
- Linux Kernel中gicv3实现:SPIs中断routing到指定的CPU
快速链接: .
最新文章
- 26.angularJS $routeProvider
- UVa 1607 (二分) Gates
- 转:用GDB调试程序
- 全世界的狗都没有“生殖隔离” | 今日趣图
- 【机器学习】EM最大期望算法
- android edittext 正则限制,Android EditText 使用正则表达式进行输入过滤
- 语言在线组卷系统_如何使用在线考试系统创建题库?
- 为什么c++文件只能执行一次_numba从入门到精通(1)—为什么numba能够加速
- 写出规范化的高可读性的函数代码注释
- JavaScript栈和队列方法(Array类型)
- 测试人,测试魂,3年测遍32个城,主管的一句话给予了他源源不断的动力
- matlab绘制垂线(x轴或y轴)
- java菜鸟快速上手指南
- Ubuntu vi 方向键乱码 问题解决
- 哈工大计算机网络期末复习资料知识点总结
- mirna富集分析_miRNA富集分析数据库
- python安装anacondapanda_关于pandas:Pyarrow不安装python 3.7(anaconda 5.3.0,windows x64版本)...
- 从根儿上理解MySQL | 事务的隔离级别与MVCC
- PMI-ACP考试没过怎么办?如何补考?
- (转)认识SAP SD销售模式之寄售销售
热门文章
- 支离破碎的 Android
- 唯一被图灵求婚的女人,与他并肩破译纳粹德国 Enigma 密码,拯救千万人生命!| 人物志...
- 移动开发出路在哪里?是时候用物联网了!| 技术头条
- Google 工作 4 年,我最终还是选择了离开
- Java声明字符串数组,架构师必备!
- java程序设计是选修课_Java程序设计_中国大学 MOOC_章节考试选修课答案
- android web canvas,HTML5 - Canvas无法在Android WebView的第一次加载时渲染
- python 微信数据_python 处理微信对账单数据的实例代码
- linux基础实验报告6,Linux实验报告6参考答案.doc
- java中10个用户注册_JavaWeb(十)Session