网易 
新闻 LOFTER 邮箱 相册 阅读 图书 有道 摄影 企业邮箱 优惠券 云笔记 闪电邮 邮箱大师 印像派 考拉海购
 
更多
博客 
手机博客 博客搬家 博客VIP服务 发现 小组 风格
 
群博客 博客油菜地 博客话题 博客热点 博客圈子 找朋友
 
登录  
 加关注
   显示下一条  |  关闭
温馨提示！由于新浪微博认证机制调整，您的新浪微博帐号绑定已过期，请重新绑定！立即重新绑定新浪微博》  |  关闭

miaozk2006

点滴积累与收藏:关于技术，关于生活

导航

 
 
 
 
 

日志

 
 
关于我
miaozk2006
文章分类

用VB如读取内存地址  

2012-08-02 00:11:46|  分类： 编程-VB |  标签： |举报 |字号大中小 订阅

  下载LOFTER 我的照片书  |
代码如下：

  

Private Declare Function CreateToolhelpSnapshot Lib "kernel32" Alias "CreateToolhelp32Snapshot" (ByVal lFlags As Long, ByVal lProcessID As Long) As Long
Private Declare Function ProcessFirst Lib "kernel32" Alias "Process32First" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long
Private Declare Function ProcessNext Lib "kernel32" Alias "Process32Next" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long


Private Const MAX_PATH As Long = 260

Private Type PROCESSENTRY32
dwSize As Long
cntUsage As Long
th32ProcessID As Long
th32DefaultHeapID As Long
th32ModuleID As Long
cntThreads As Long
th32ParentProcessID As Long
pcPriClassBase As Long
dwFlags As Long
szExeFile As String * MAX_PATH
End Type

Private Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Const TH32CS_SNAPPROCESS = &H2
Private Const TH32CS_SNAPheaplist = &H1
Private Const TH32CS_SNAPthread = &H4
Private Const TH32CS_SNAPmodule = &H8
Private Const TH32CS_SNAPall = TH32CS_SNAPPROCESS + TH32CS_SNAPheaplist + TH32CS_SNAPthread + TH32CS_SNAPmodule
Private Const PROCESS_TERMINATE As Long = (&H1)



Private Sub Command1_Click()
Dim proc As PROCESSENTRY32
Dim snap As Long
Dim exename As String
Dim theloop As Long
Dim ret As ListItem

snap = CreateToolhelpSnapshot(TH32CS_SNAPall, 0) '获得进程“快照”的句柄
proc.dwSize = Len(proc)
theloop = ProcessFirst(snap, proc) '获取第一个进程，并得到其返回值
While theloop <> 0 '当返回值非零时继续获取下一个进程
exename = proc.szExeFile
Debug.Print exename & " ID:" & proc.th32ParentProcessID
theloop = ProcessNext(snap, proc)
Wend
CloseHandle snap '关闭进程“快照”句柄

End Sub
Private Declare Function CreateToolhelpSnapshot Lib "kernel32" Alias "CreateToolhelp32Snapshot" (ByVal lFlags As Long, ByVal lProcessID As Long) As Long

Private Declare Function ProcessFirst Lib "kernel32" Alias "Process32First" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long

Private Declare Function ProcessNext Lib "kernel32" Alias "Process32Next" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long

Private Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long

Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long

Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long

Const MAX_PATH As Integer = 260

Private Type PROCESSENTRY32

dwSize As Long

cntUsage As Long

th32ProcessID As Long

th32DefaultHeapID As Long

th32ModuleID As Long

cntThreads As Long

th32ParentProcessID As Long

pcPriClassBase As Long

dwFlags As Long

szExeFile As String * MAX_PATH

End Type

Const TH32CS_SNAPheaplist = &H1

Const TH32CS_SNAPPROCESS = &H2

Const TH32CS_SNAPthread = &H4

Const TH32CS_SNAPmodule = &H8

Const TH32CS_SNAPall = TH32CS_SNAPPROCESS + TH32CS_SNAPheaplist + TH32CS_SNAPthread + TH32CS_SNAPmodule

Private Sub Command1_Click()

Dim i As Long, lPid As Long

Dim Proc As PROCESSENTRY32

Dim hSnapShot As Long

ListView1.ListItems.Clear '清空ListView

hSnapShot = CreateToolhelpSnapshot(TH32CS_SNAPall, 0) '获得进程“快照”的句柄

Proc.dwSize = Len(Proc)

lPid = ProcessFirst(hSnapShot, Proc) '获取第一个进程的PROCESSENTRY32结构信息数据

i = 0

Do While lPid <> 0 '当返回值非零时继续获取下一个进程

ListView1.ListItems.Add , "a" & i, Hex(Proc.th32ProcessID) '将进程ID添加到ListView1第一列

ListView1.ListItems("a" & i).SubItems(1) = Proc.szExeFile '将进程名添加到ListView1第二列

i = i + 1

lPid = ProcessNext(hSnapShot, Proc) '循环获取下一个进程的PROCESSENTRY32结构信息数据

Loop

CloseHandle hSnapShot '关闭进程“快照”句柄

End Sub

摘自：网络整理










★VB部分相关文章推荐：★





☆VB6 中善用ByRef 提升速度 


☆[vb] Set 语句 


☆VB_Format自定义格式 


☆用VB如读取内存地址 


☆vb FindwindowEx的用法实例 


☆进制转化进10进制数 


☆收藏:如何获取当前已经打开的IE对象(VB6代码) 


☆DXInput中键码的转换(VB6.0代码) 


☆如何在VB6.0里动态使用具有事件的对象 


☆[vb]格式输出Format函数 


☆读取和写入Windows的INI文件 


☆简述UTF－8编码原理及其文本文件的读写技术【转】 


☆VB中的文件操作 


☆VB中的文件操作文档 


☆vb 中拷贝文件 


☆VB反跟踪技术点滴 


☆VB共享软件防破解设计技术初探（二） 


☆VB共享软件防破解设计技术初探（三） 


☆VB共享软件防破解设计技术初探（一） 


☆RTF文件格式【转】


☆VB压缩技术 


☆[vb]FSO对象模型在VB中的应用 


☆VB 窗体实现文件拖拽获取路径方法 


☆VB：注册表的读写 


☆vb中空操作（等待）的指令、延时方法 


☆VB让控件可以当标题栏拖动 


☆FSO对象新建、打开、保存文件 


☆获取网关IP和MAC 的VB源码 


☆VB文件关联 


☆vb获得本地和远程的MAC地址(网卡地址) 


☆VB中ShellExeCute的应用 


☆VB打开网址方法大全 


☆vb简单控制音量大小及静音的方法 


☆拖动无边框窗体(VB6代码) 


☆VB使用FileSystemObject对象写文件 


☆VB 从注册表中删除项及其某个值 


☆vb 字符串转为数字和判断字符串是否是数字字符串【转】


☆vb按热键启动应用程序 


☆VB的坐标系统综述 


☆VB利用API函数来处理文件 


☆关于VB中Shell及ShellExecute的总结与记录 


☆[vb]On Error GoTo 0和On Error resume区别 


☆[vb]On Error 语句 


☆记录一下:在菜单上添加自绘图形的例子(VB6代码) 


☆vb中findwindow的疑惑 


☆[vb]FindWindow使用方法 


☆常用文件类[转，无法运行通，待调试] 


☆[vb]url utf-8编码 


☆VB中的Unicode 和Ansi 格式


☆VB中的format格式化函数 


☆VB中字符串匹配的多种方式 


☆VB抓图 


☆谈vb目录文件操作的三种方法－2 


☆谈vb目录文件操作的三种方法－1 


☆vb使用open方法读写文件 


☆VB的MD5加密模块 


☆VB 超简单的屏幕截图代码 


☆vb以类名或窗口标题查找句柄并关闭 


☆VB将配置保存到EXE本身（生成EXE木马程序） 


☆VB 调用腾讯截图控件CameraDLL.dll 


☆在VB6.0中怎么实现escape和unescape 


☆vb求任意两线交点 


☆VB中调用Windows API的注意事项[VB知识库] 


☆VB 一个获得自己外网IP 地址的程序代码 


☆VB程序中实现IP地址子网掩码网关DNS的更改[转] 


☆在VB 中应用FSO 对象模型介绍（摘自网络） 


☆[转] Vb中FSO 对象的介绍 


☆VB 画坐标轴 


☆VB 二进制文件的操作 


☆[VB]BMP转JPG 


☆VB中KeyCode常数用法 


☆vb实时曲线的绘制和保存 





更多精彩>>> 

        


        

		


        

		


		

      	  

		  	
		  

		


        

          
             
            评论这张
          
        

		
        

           
        

        
        


        

          
          
          

            阅读(1530)|
            评论(0)
          

          
          
          

            

              
              
              
              
              
            

            
          

        

      

      

        
        
        

	     

	    

          
历史上的今天

          

        

	    
	    
	    

	    
	    
	    
	    
	    

	      
评论

	      
	      

	    

	    

      

      

    

   

  





  
  
  
  <#--最新日志，群博日志-->
  
  <#--推荐日志-->
  
  <#--引用记录-->
  
  <#--博主推荐-->
  
  <#--随机阅读-->
  
  <#--首页推荐-->
  
  <#--历史上的今天-->
  
  <#--被推荐日志-->
  
    <#--上一篇，下一篇-->
  
  <#-- 热度 -->
  
  
  <#--  网易新闻广告  -->
  
  
  <#--右边模块结构-->
  
  <#--评论模块结构-->
  
  <#--引用模块结构-->
  
    <#--博主发起的投票-->
  








      
 

      
 

    

    

      
 

      
 

      
 

    

  




      
 

      
 

      
 

      
 

      
 

      
 

    

  

  
 
 
 



  

    
页脚

    
      我的照片书
      -
      手机博客
      -
      下载LOFTER APP
      
      
      - 订阅此博客
    

    
网易公司版权所有 ©1997-2018