下载本文档
版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
1、'eu ?-?"o ?Option ExplicitPrivate Const WM_USER = &H400Private Const TB_BUTTONCOUNT = (WM_USER + 24)Private Const TB_HIDEBUTTON = (WM_USER + 4)Private Const TB_GETBUTTONTEXTA = (WM_USER + 45)Private Const TB_AUTOSIZE = (WM_USER + 33)Private Const MEM_COMMIT = &H1000Private Const MEM
2、_RESERVE = &H2000Private Const MEM_RELEASE = &H8000Private Const PAGE_READWRITE = &H4Private Const PROCESS_VM_OPERATION = (&H8)Private Const PROCESS_VM_READ = (&H10)Private Const PROCESS_VM_WRITE = (&H20)Private Declare Function FindWindowLib "user32" Alias "Fi
3、ndWindowA"(ByVal lpClassName As String, ByVal lpWindowName As String) As LongPrivateDeclareFunctionFindWindowExLib"user32"Alias"FindWindowExA"(ByVal hWnd1 As Long, ByVal hwnd2 As Long, ByVal lpsz1As String, ByVal lpsz2 As String) As LongFunction SendMessage Lib "user32&
4、quot; AliasPrivate Declare"SendMessageA"(ByVal hWnd AsLong, ByVal wMsg AsLong, ByVal wParam AsLong, lParamAs Any) As LongPrivateDeclareFunctionVirtualAllocExLib"kernel32.dll"(ByValhProcess As Long, lpAddress As Any, ByRef flAllocationType As Long, ByVal flProtect As Long) As Long
5、dwSize AsLong,ByValPrivateDeclareFunctionVirtualFreeExLib"kernel32.dll"(ByValhProcess As Long, lpAddressAs Any, ByRefdwSize AsLong,ByValdwFreeType As Long) As LongPrivateDeclareFunctionOpenProcessLib"kernel32"(ByValdwDesiredAccessAs Long,ByValbInheritHandleAs Long,ByValdwProcessI
6、d As Long) As LongPrivateDeclare FunctionCloseHandleLib "kernel32"(ByVal hObject AsLong) As LongPrivate Declare FunctionGetWindowThreadProcessIdLib "user32"(ByValhWnd As Long, lpdwProcessId As Long) As LongPrivateReadProcessMemory hProcess As Long, lpBaseAddress As Any, lpBuffer
7、As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As LongDeclareFunctionLib"kernel32"(ByValPrivateWriteProcessMemoryhProcess As Long, lpBaseAddress As Any, lpBuffer As Any, ByVal nSizeDeclareFunctionLib"kernel32"(ByValAs Long, lpNumberOfBytesWritten As Long) As LongPri
8、vate Declare Function GetCurrentProcessId Lib "kernel32" () As Long'Form '°i ?'D eo a 卩?t £ oCommand£ ?Commandg ?Command氏?ListBoxPrivate Sub Command1_Click() ' o t2?±eDim pIdExplorer As Long, hwnd2 As Long, hExplorer As Long, lpIconText As LongDim i As I
9、ntegerDim BtnCount As IntegerDim IconText As Stringhwnd2 = FindWindow("Shell_TrayWnd", vbNullString)hwnd2 = FindWindowEx(hwnd2, 0, "TrayNotifyWnd", vbNullString) hwnd2 = FindWindowEx(hwnd2, 0, "SysPager", vbNullString)hwnd2 = FindWindowEx(hwnd2, 0, "ToolbarWindow32
10、", vbNullString)GetWindowThreadProcessId hwnd2, pIdExplorerhExplorer = OpenProcess(PROCESS_VM_OPERATION Or PROCESS_VM_READ Or PROCESS_VM_WRITE, False, pIdExplorer)lpIconText= VirtualAllocEx(ByValhExplorer,ByVal 0&,Len(IconText), MEM_COMMIT Or MEM_RESERVE, PAGE_READWRITE)BtnCount = SendMessa
11、ge(hwnd2, TB_BUTTONCOUNT, 0, 0)Dim lLen As Long, sBuff As StringFor i = 0 To BtnCount - 1IconText = Space$(256)lLen= SendMessage(hwnd2,TB_GETBUTTONTEXTA, i, ByVallpIconText)ReadProcessMemoryhExplorer, ByVal lpIconText, ByVal IconText,Len(IconText), 0IflLen <> -1 Then IconText = Left$(IconText,
12、InStr(1, IconText,Chr$(0) - 1)IfIconText= List1.List(List1.ListIndex)Then 'i ?aDeo a o t2?卩? i ?±e ?3?£ o? e ?eo±e?±ee ?e± ? e ?口 ?XSendMessage hwnd2, TB_HIDEBUTTON, i, ByVal TrueSendMessage hwnd2, TB_AUTOSIZE, 0, 0End IfNextVirtualFreeEx hExplorer, lpIconText, Len(IconT
13、ext), MEM_RELEASE CloseHandle hExplorerEnd SubPrivate Sub Command2_Click() '?e ?,r ?±eDim pIdExplorer As Long, hwnd2 As Long, hExplorer As Long, lpIconText As LongDim i As IntegerDim BtnCount As IntegerDim IconText As Stringhwnd2 = FindWindow("Shell_TrayWnd", vbNullString)hwnd2 =
14、FindWindowEx(hwnd2, 0, "TrayNotifyWnd", vbNullString)hwnd2 = FindWindowEx(hwnd2, 0, "SysPager", vbNullString)hwnd2 = FindWindowEx(hwnd2, 0, "ToolbarWindow32", vbNullString)GetWindowThreadProcessId hwnd2, pIdExplorerhExplorer = OpenProcess(PROCESS_VM_OPERATION Or PROCESS
15、_VM_READ Or PROCESS_VM_WRITE, False, pIdExplorer)lpIconText= VirtualAllocEx(ByValhExplorer,ByVal 0&,Len(IconText), MEM_COMMIT Or MEM_RESERVE, PAGE_READWRITE)BtnCount = SendMessage(hwnd2, TB_BUTTONCOUNT, 0, 0)Dim lLen As Long, sBuff As StringFor i = 0 To BtnCount - 1IconText = Space$(256)lLen= Se
16、ndMessage(hwnd2,TB_GETBUTTONTEXTA, i, ByVallpIconText)ReadProcessMemoryhExplorer, ByVal lpIconText, ByVal IconText,Len(IconText), 0If lLen <> -1 Then IconText = Left$(IconText,InStr(1, IconText,Chr$(0) - 1)IfIconText = List1.List(List1.ListIndex)Then''i ?aDed a o t2?卩? i ?±e ?3?
17、163; o?ie ?eo±e?±ee ?e± ? e ?口 ?XSendMessage hwnd2, TB_HIDEBUTTON, i, ByVal FalseSendMessage hwnd2, TB_AUTOSIZE, 0, 0End IfNextVirtualFreeEx hExplorer, lpIconText, Len(IconText), MEM_RELEASECloseHandle hExplorerEnd SubPrivate Sub Command3_Click() '? C D?i ?±ea D±iList1.C
18、learDim pIdExplorer As Long, hwnd2 As Long, hExplorer As Long, lpIconText As LongDim i As IntegerDim BtnCount As IntegerDim IconText As Stringhwnd2 = FindWindow("Shell_TrayWnd", vbNullString)hwnd2 = FindWindowEx(hwnd2, 0, "TrayNotifyWnd", vbNullString)hwnd2 = FindWindowEx(hwnd2, 0, "SysPager", vbNullString)hwnd2 = FindWindowEx(hwnd2, 0, "ToolbarWindow32", vbNullString)GetWindowThreadProcessId hwnd2, pIdExplorer hExplorer = OpenProcess(PROCESS_VM_OPERATION Or PROCESS_VM_READ Or PROCESS_VM_WRITE, False, pIdExplorer)lpIconText = Virtua
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 公司材料盘点表
- 云南省临沧市临翔区2024届中考语文模试卷含解析
- FZ∕T 93091-2014 纺粘、熔喷复合法非织造布生产联合机
- 电子油门踏板行业相关投资计划提议
- 抗痛风药行业相关投资计划提议范本
- 盘碟托盘行业相关投资计划提议
- 2024年广东省广州市九强校中考物理一模试卷(含解析)
- 高考语文复习五年高考语文知识点汇编:古诗词赏析
- 2024年江苏省无锡市锡山区锡东片中考语文一模试卷(CF)(含解析)
- 食品工厂项目盈利能力分析报告
- GB/T 34924-2024低压电气设备安全风险评估和风险降低指南
- (茅台酒)白酒酿造工职业技能认定-制曲制酒考试题库汇编
- 首届全国“红旗杯”班组长大赛知识考试题库大全-下(判断题部分)
- 班组长成本绩效管理能力考试题库-上(选择题)
- 2024年重庆三峰环境集团股份限公司及所属子企业招聘32人公开引进高层次人才和急需紧缺人才笔试参考题库(共500题)答案详解版
- 24春国家开放大学《市场调查》形考任务1-3参考答案
- 期末测试卷(一)(试题)-2023-2024学年一年级下册数学人教版
- 中小学生心理健康问题课件
- 江苏省+苏州市吴江、吴中、相城、新区四区统考++2023-2024学年七年级下学期数学试题
- 烟草制品代理佣金协议书
- 硫酸钠在环境保护中的应用研究
评论
0/150
提交评论