如何使用vb6获取当前运行的应用程序

时间:2014-12-11 10:32:24

标签: vb6

我目前正在使用VB 6处理一个简单的密钥记录器应用程序,我需要获取记录密钥时的应用程序名称。我尝试了一些在某些线程中的东西,但它没有帮助。

2 个答案:

答案 0 :(得分:0)

您可以获取当前应用程序的窗口标题。根据窗口标题和窗口句柄,您可以获得足够的详细信息。

代码在vb.net

<DllImport("user32.dll")> _
Private Shared Function GetForegroundWindow() As IntPtr
End Function

<DllImport("user32.dll")> _
Private Shared Function GetWindowText(hWnd As IntPtr, text As StringBuilder, count As Integer) As Integer
End Function

Private Function GetCurrentWindowTitle() As String
    Const  nChr As Integer = 256
    Dim str As New StringBuilder(nChr)
    Dim handle As IntPtr = GetForegroundWindow()

    If GetWindowText(handle, str, nChr) > 0 Then
        Return str.ToString()
    End If
    Return Nothing
End Function

答案 1 :(得分:0)

把目光投向这一个,它是一个VB6的帖子,可以指向正确的方向filenames of the process that is currently running

如果那个人没有帮助,那么试试这个VB6 listing running processes