以下代码是更改SysListView32内的项 Option Explicit Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hWnd As Long, lpdwProcessId As Long) As Long Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcId As Long) As Long Private Declare Function VirtualFreeEx Lib "kernel32" (ByVal hProcess As Long, ByVal lpAddress As Long, ByVal dwSize As Long, ByVal dwFreeType As Long) As Long Private 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 Long Private 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 Long Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByRef lParam As Any) As Long Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long Private Const LVM_FIRST = &H1000 Private Const LVM_SETITEMTEXT = (LVM_FIRST + 46) Private Const STANDARD_RIGHTS_REQUIRED = &HF0000 Private Const SYNCHRONIZE = &H100000 Private Const PROCESS_ALL_ACCESS = (STANDARD_RIGHTS_REQUIRED Or SYNCHRONIZE Or &HFFF) Private Const MEM_COMMIT = &H1000 Private Const MEM_RELEASE = &H8000 Private Const PAGE_READWRITE = &H4 Private 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 Long End Type Private 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 If End Function http://www.vbgood.com/viewthread.php?tid=89266