Açık Oyunların İsimlerini Alma Vb6

[Admin]

Kod:

Public Sub GetKOWindows(ListBox As ListBox, WindowPointer As Long)
'//Esrarengiz 12.01.2012 20.34
Dim esrr(255) As Byte
Dim say As String
Dim NewHandle As Long
Dim Proc As Object
For Each Proc In GetObject("winmgmts:").ExecQuery("Select * from Win32_Process")
If Proc.Name = "KnightOnLine.exe" Then
NewHandle = OpenProcess(&H1F0FFF, False, Proc.ProcessID)
ReadProcessMem NewHandle, WindowPointer, esrr(0), 255, 0&
For i = 0 To 255
say = Chr$(esrr(i))
If Asc(say) = 0 Then Exit For
son = son & say
Next
CloseHandle (NewHandle)
ListBox.AddItem Trim(son)
End If
Next
End Sub

Kullandığım Apiler (Her Modülde Zaten Var)

Kod:

Private Declare Function ReadProcessMem Lib "kernel32.dll" Alias "ReadProcessMemory" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, ByRef lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Private Declare Function OpenProcess Lib "kernel32.dll" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function CloseHandle Lib "kernel32.dll" (ByVal hObject As Long) As Long

Nasıl Kullancam Dersen:

Kod:

GetKOWindows List1, &HA69180

Kod:

Alıntıdır.