更改SysListView32内的项

以下代码是更改SysListView32内的项

 

 

Option ExplicitPrivate Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPrivate Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As LongPrivate Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hWnd As Long, lpdwProcessId As Long) As LongPrivate Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcId As Long) As LongPrivate Declare Function VirtualFreeEx Lib "kernel32" (ByVal hProcess As Long, ByVal lpAddress As Long, ByVal dwSize As Long, ByVal dwFreeType As Long) As LongPrivate Declare Function VirtualAllocEx Lib "kernel32" (ByVal hProcess As Long, ByVal lpAddress As Long, ByVal dwSize As Long, ByVal flAllocationType As Long, ByVal flProtect As Long) As LongPrivate Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, ByRef lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As LongPrivate Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByRef lParam As Any) As LongPrivate Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As LongPrivate Const LVM_FIRST = &H1000Private Const LVM_SETITEMTEXT = (LVM_FIRST + 46)Private Const STANDARD_RIGHTS_REQUIRED = &HF0000Private Const SYNCHRONIZE = &H100000Private Const PROCESS_ALL_ACCESS = (STANDARD_RIGHTS_REQUIRED Or SYNCHRONIZE Or &HFFF)Private Const MEM_COMMIT = &H1000Private Const MEM_RELEASE = &H8000Private Const PAGE_READWRITE = &H4Private Type LVITEM mask As Long iItem As Long iSubItem As Long State As Long stateMask As Long pszText As Long cchTextMax As Long iImage As Long lParam As Long iIndent As LongEnd TypePrivate Sub Command1_Click() Dim hWnd As Long hWnd = FindWindow(vbNullString, "Windows 任务管理器") hWnd = FindWindowEx(hWnd, 0, "#32770", "") hWnd = FindWindowEx(hWnd, 0, "SysListView32", "进程") Call ListView_SetItemText(hWnd, 5, 0, "天姥鞋帮")End Sub'*************************************************************************'**函 数 名：ListView_SetItemText'**输 入：ByVal hWnd(Long) - ListView控件句柄'** ：ByVal iItem(Long) - 行'** ：ByVal iSubItem(Long) - 列'** ：ByVal ItemText(String) - 更改的内容'**输 出：(Boolean) -'**功能描述：更改其他程序ListView控件中某个Item的内容'**全局变量：'**调用模块：'**作 者：bbb620'**日 期：2008-07-27 13:26:03'**修 改 人：'**日 期：'**版 本：V1.0.0'*************************************************************************Public Function ListView_SetItemText(ByVal hWnd As Long, ByVal iItem As Long, ByVal iSubItem As Long, ByVal ItemText As String) As Boolean Dim PID As Long Dim hProcess As Long Dim nSize As Long Dim plvItem As Long Dim p_MyItemText As Long Dim myItem As LVITEM nSize = LenB(StrConv(ItemText, vbFromUnicode)) '获取字符串长度 GetWindowThreadProcessId hWnd, PID '获取与指定窗口关联在一起的一个进程和线程标识符 hProcess = OpenProcess(PROCESS_ALL_ACCESS, False, PID) '打开一个现有进程的句柄 If hProcess <> 0 Then plvItem = VirtualAllocEx(hProcess, 0, Len(myItem), MEM_COMMIT, PAGE_READWRITE) '分配内存 p_MyItemText = VirtualAllocEx(hProcess, 0, nSize, MEM_COMMIT, PAGE_READWRITE) '分配内存 '初始化结构 myItem.iSubItem = iSubItem myItem.pszText = p_MyItemText If plvItem And p_MyItemText Then Call WriteProcessMemory(hProcess, p_MyItemText, ByVal ItemText, nSize, 0) '写入内存 Call WriteProcessMemory(hProcess, plvItem, myItem, Len(myItem), 0) '写入内存 Call SendMessage(hWnd, LVM_SETITEMTEXT, iItem, ByVal plvItem) ListView_SetItemText = True '释放内存 CloseHandle (hWnd) CloseHandle (hProcess) Call VirtualFreeEx(hProcess, plvItem, 0, MEM_RELEASE) Call VirtualFreeEx(hProcess, p_MyItemText, 0, MEM_RELEASE) End If End IfEnd Function

 

http://www.vbgood.com/viewthread.php?tid=89266