日本国产亚洲-日本国产一区-日本国产一区二区三区-日本韩国欧美一区-日本韩国欧美在线-日本韩国欧美在线观看

當前位置:雨林木風下載站 > 技術開發教程 > 詳細頁面

獲得系統中運行的程序及運用的DLL文件

獲得系統中運行的程序及運用的DLL文件

更新時間:2022-05-14 文章作者:未知 信息來源:網絡 閱讀次數:

     在Microsoft Visual Studio中提供了一個可以查看當前運行的程序的工具Process Viewer
可以查看系統中當前運行的程序,下面我來介紹在你的程序中如何實現這種功能。
    Windows提供了一系列的API函數可以建立當前的程序、模塊、線程的“快照”(SnapShot)
利用這些“快照”函數就可以獲得當前的程序、模塊等的信息。
    下面實現的步驟:

    1、在Form1中加入一個CommandButton控件、兩個ListBox控件
    2、在Form1中加入如下代碼:

Private Declare Function CreateToolhelp32Snapshot Lib "kernel32" _
        (ByVal dwFlags As Long, ByVal th32ProcessID As Long) As Long
Private Declare Function Process32First Lib "kernel32" _
        (ByVal hSnapshot As Long, lppe As PROCESSENTRY32) As Long
Private Declare Function Process32Next Lib "kernel32" _
        (ByVal hSnapshot As Long, lppe As PROCESSENTRY32) As Long
Private Declare Function Module32First Lib "kernel32" _
        (ByVal hSnapshot As Long, lppe As MODULEENTRY32) As Long
Private Declare Function Module32Next Lib "kernel32" _
        (ByVal hSnapshot As Long, lppe As MODULEENTRY32) As Long

Private Declare Function CloseHandle Lib "kernel32" (ByVal _
        hObject As Long) As Long
Private Declare Function SendMessage Lib "user32" Alias _
        "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As _
        Long, ByVal wParam As Long, lParam As Any) As Long

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 * 1024
End Type

Private Type MODULEENTRY32
    dwSize As Long
    th32ModuleID As Long
    th32ProcessID As Long
    GlblcntUsage As Long
    ProccntUsage As Long
    modBaseAddr As Byte
    modBaseSize As Long
    hModule As Long
    szModule As String * 256
    szExePath As String * 1024
End Type

Const LB_SETHORIZONTALEXTENT = &H194
Const TH32CS_SNAPHEAPLIST = &H1
Const TH32CS_SNAPPROCESS = &H2
Const TH32CS_SNAPTHREAD = &H4
Const TH32CS_SNAPMODULE = &H8
Const TH32CS_SNAPALL = (TH32CS_SNAPHEAPLIST Or TH32CS_SNAPPROCESS _
                        Or TH32CS_SNAPTHREAD Or TH32CS_SNAPMODULE)
Const TH32CS_INHERIT = &H80000000

Dim MyEntry(100) As PROCESSENTRY32

Private Sub Command1_Click()
    Dim my As PROCESSENTRY32
    Dim l As Long
   
    List1.Clear
    l = SendMessage(List1.hwnd, &H194, 640, 0)
    '建立當前程序快照
    l = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0)
    If l Then
        my.dwSize = 1060
        If (Process32First(l, my)) Then '遍歷第一個程序
            '遍歷所有程序直到返回值為False
            Do
                List1.AddItem (Trim$(my.szExeFile))
                MyEntry(List1.ListCount - 1) = my
            Loop Until (Process32Next(l, my) < 1)
End If
'關閉快照句柄
CloseHandle l
End If
End Sub

Private Sub Form_Load()
Command1_Click
End Sub

Private Sub List1_Click()
Dim l As Long
Dim mm As MODULEENTRY32
Dim lm As Long
Dim astr As String

If MyEntry(List1.ListIndex).th32ProcessID <> 0 Then
        l = SendMessage(List2.hwnd, &H194, 640, 0)
        List2.Clear
         
        '根據程序快照句柄建立程序的模塊句柄
        lm = CreateToolhelp32Snapshot(TH32CS_SNAPMODULE, _
            MyEntry(List1.ListIndex).th32ProcessID)
        If lm > 0 Then
            mm.dwSize = Len(mm)
            '獲得第一個模塊
            If Module32First(lm, mm) Then
                '遍歷所有模塊知道返回值為False
                Do
                    If MyEntry(List1.ListIndex).th32ProcessID = _
                        mm.th32ProcessID Then
                         
                        astr = Left$(mm.szModule, (InStr(1, _
                            mm.szModule, Chr(0)) - 1))
                         
                        List2.AddItem astr
                    End If
                Loop Until (Module32Next(lm, mm) < 1)
End If
CloseHandle (lm)
End If
End If
End Sub

運行程序,List1中就列出當前運行的所有的程序的名稱及路徑,點擊其中任一個列表,
在List2中就會列出這個程序所使用的DLL的文件名。按下Command1重新獲得系統中運行的程序。
上面只是通過簡單的程序介紹了“快照”的建立和使用,只要稍加改造,就可以獲得諸如
程序的線程數、模塊尺寸、模塊在內存的基地址等信息。
以上程序在Windows95、VB5.0下運行通過。 

溫馨提示:喜歡本站的話,請收藏一下本站!

本類教程下載

系統下載排行

主站蜘蛛池模板: wwww国产| 欧美性生活网址 | 国产精品久久久久一区二区 | 精品久久久久久久99热 | 亚洲欧美18v中文字幕高清 | 国产精品高清全国免费观看 | 欧美精品综合 | 免费看成人片 | 日本人xxxxx 日本人xx视频免费视频 | 国产日本在线播放 | 亚洲精品一区二区三区网址 | 久久国产首页 | 免费韩国美女爽快一级毛片 | 伊人久久精品线影院 | 日韩天堂网 | 牛牛影视成人午夜影视 | 国产成人精品亚洲77美色 | 成年人午夜影院 | 日本hdxxxxx护士免费的 | 国内精品久久久久久麻豆 | 在线观看午夜视频 | 日本zzzzzzz毛片| 欧美大片国产在线永久播放 | 2022国产成人福利精品视频 | 午夜欧美日韩 | 蕾丝视频成人★在线观看 | 中文字幕不卡在线观看 | 99久久2019re6热精品首页 | 日韩a在线看免费观看视频 日韩v | senima亚洲综合| 国产久视频 | 久久久穴| 日日噜噜夜夜狠狠视频无 | 人超级碰碰视频在线观看 | 夜夜艹图| 欧美 日本 亚洲 | 99国产精品久久久久久久... | 国产成人高清精品免费5388密 | 成人区视频爽爽爽爽爽 | 精品国产理论在线观看不卡 | 久久精品视频3 |