如何让窗体标题栏中的关闭无效?

霖湘凝 2004-11-16 12:18:34

如何让窗体标题栏中的关闭无效?
不要是把 unload 中 Cancel = 1
有其他比较好的的方法吗?
就像不可以最大化,就maxbutten属性直接设为false那样?

谢谢!!!
...全文
61 1 打赏 收藏 转发到动态 举报
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
daisy8675 2004-11-16
  • 打赏
  • 举报
回复
那就用API 咯
Option Explicit
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Private Const MF_REMOVE = &H1000&
Private Const SC_CLOSE = &HF060&

Private Sub Form_Load()
RemoveMenu GetSystemMenu(Me.hwnd, False), SC_CLOSE, MF_REMOVE
End Sub
第1章 用户界面 1.1 窗体 范例1-1 创建箭头形窗体 ∷相关函数:CreatePolygonRgncSetWindowRgn 范例1-2 窗体闪烁特效 ∷相关函数:FlashWindowcGetActiveWindow 范例1-3 带进度条的窗体 范例1-4 工作区透明的窗体 ∷相关函数:SetWindowLongcGetWindowLong 范例1-5 带洞的窗体 ∷相关函数:CreateRectRgn ombineRgncSetWindowRgn 范例1-6 窗体百叶窗效果 ∷相关函数:Sleep 范例1-7 背景颜色渐变的窗体 范例1-8 设置总在最前的窗体 ∷相关函数:SetWindowPos 范例1-9 实现多文档窗体的排列 范例1-10 逐渐展开的程序运行窗口 范例1-11 拖动无标题窗体 ∷相关函数:ReleaseCapturecSendMessage 范例1-12 带滚动条的窗体 范例1-13 设置能动态改变控件大小的窗体 范例1-14 随分辨率大小改变的窗体 ∷相关函数:SystemParametersInfo 范例1-15 运行窗体的托盘显示 ∷相关函数:Shell_NotifyIcon 范例1-16 窗体关闭时的提示 范例1-17 放大镜 ∷相关函数:SystemParametersInfocGetCursorPoscStretchBlt 范例1-18 全部透明的窗体 ∷相关函数:SetLayeredWindowAttributescSetWindowLong 1.2 菜单 范例1-19 树形导航菜单 范例1-20 带图标显示的菜单 ∷相关函数:GetMenucGetSubMenucSetMenuItemBitmaps 范例1-21 显示历史文件的菜单 ∷相关函数:GetSettingcSaveSetting 范例1-22 右键弹出式菜单 ∷相关函数:PopupMenu 范例1-23 下拉式菜单 范例1-24 动态显示菜单 范例1-25 系统菜单DIY ∷相关函数:GetSystemMenucAppendMenu 范例1-26 炫彩菜单 ∷相关函数:RGB 范例1-27 动态增加菜单 ∷相关函数:GetMenucAppendMenucGetSubMenu 范例1-28 隐藏和显示菜单 ∷相关函数:GetMenucSetMenu 范例1-29 设置多列菜单 ∷相关函数:GetMenu GetMenuItemInfocSetMenuItemInfocDrawMenuBar 范例1-30 隐藏系统菜单 ∷相关函数:RemoveMenucGetSystemMenu 范例1-31 闪烁菜单 ∷相关函数:RGB 1.3 工具栏 范例1-32 可竖排显示的工具栏 ∷相关函数:SendMessage ReleaseCapture GetWindowRect 范例1-33 下拉式工具栏 范例1-34 工具栏按钮的灰度显示 范例1-35 浮动的工具栏 ∷相关函数:GetCursorPos 1.4 状态栏 范例1-36 在状态栏显示鼠标位置 ∷相关函数:GetCursorPos 范例1-37 状态栏显示系统时间和日期 ∷相关函数:Now 范例1-38 循环滚动文字的状态栏 ∷相关函数:Right cLeft 范例1-39 状态栏按钮的灰度显示 范例1-40 显示文本行数的状态栏 ∷相关函数:SendMessage 范例1-41 状态栏显示当前文本的列数 ∷相关函数:SendMessage 1.5 标题栏 范例1-42 显示或隐藏标题栏 ∷相关函数:SetWindowLong GetWindowLongcSetWindowPos 范例1-43 标题栏双击无效 ∷相关函数:SetWindowLong allWindowProc 范例1-44 屏蔽标题栏关闭按钮 ∷相关函数:GetSystemMenu cGetMenuItemCountcDeleteMenu 1.6 任务栏 范例1-45 设置透明的任务栏 ∷相关函数:GetWindowLong SetWindowLong FindWindowSetLayeredWindowAttributes 范例1-46 在任务栏上隐藏运行程序图标 1.7 风格按钮 范例1-47 立体阴影按钮 范例1-48 炫彩立体按钮 1.8 本章小结 第2章 控件 第3章 文字处理 第4章 文件操作 第5章 图形图像处理 第6章 网络通信与控制 第7章 多媒体操作 第8章 系统控制 第9章 硬件相关操作 第10章 数据库处理 第11章 游戏制作 第12章 程序运行控制 第13章 程序性能优化 第14章 特殊API函数 第15章 OLE与ActiveX文档 第16章 报表与打印 第17章 其他应用
目录 01001获取Excel版本 01002获取Excel的安装路径 01003获取当前用户名称 01004获取注册组织名称 01005获取当前操作系统的名称和版本号 01006获取启动Excel的路径 01007获取打开Excel文件时的默认路径 01008获取模板保存的默认路径 01009获取库文件夹的路径 01010获取路径分隔符 01011获取Excel主窗口标题栏的名称 01012获取Excel窗口的状态(大小) 01013获取Excel主窗口的高度和宽度 01014获取Excel主窗口的左边界位置和顶端位置 01015获取在Excel主窗口一个窗口所能占有的最大高度和宽度 01016获取当前打印机名称 01017获取MicrosoftExcel剩余内存 01018获取MicrosoftExcel的总内存 01019获取计算机被Excel占用的内存 01020改变Excel窗口大小 01021改变Excel的显示位置 01022将Excel移动到屏幕以外 01023隐藏Excel 01024改变Excel的标题文字 01025删除Excel的标题文字 01026将Excel设置为全屏显示 01027在状态栏显示信息 01028显示、隐藏状态栏 01029显示、隐藏编辑栏 01030显示、隐藏常用工具栏 01031显示、隐藏格式工具栏 01032显示、隐藏任务窗格 01033改变鼠标指针形状 01034切换手动、自动计算 01035切换A1引用样式、R1C1引用样式 01036设置按【Enter】键后单元格的移动方向 01037设置最近使用的文件清单的最多文件数 01038设置新工作簿的工作表个数 01039设置文件的默认位置 01040设置保存自动恢复文件的时间间隔和保存位置 01041停止屏幕刷新 01042使事件无效 01043使取消键无效 01044不显示警告信息对话框 01045设置使用的打印机 01046安装加载宏 01047利用GetOpenFilename方法获取文件名 01048利用GetOpenFilename方法获取某类型文件名 01049改变GetOpenFilename方法的默认路径 01050改变GetOpenFilename方法的标题文字 01051使用GetOpenFilename方法时出现错误的处理 01052利用GetSaveAsFilename方法获取文件名 01053利用CentimetersToPoints方法将计量单位从cm转换为磅 01054利用InchesToPoints方法将计量单位从in转换为磅 01055显示Excel内置对话框 01056显示常用的Excel内置对话框 01057获取Excel菜单栏信息 01058获取Excel图表工具栏信息 01059获取Excel常用工具栏信息 01060获取Excel格式工具栏信息 01061获取Excel数据透视表工具栏信息 01062获取Excel的Web工具栏信息 01063获取Excel审阅工具栏信息 01064获取Excel窗体工具栏信息 01065获取Excel外部数据工具栏信息 01066获取Excel公式审核工具栏信息 01067获取Excel控件工具箱工具栏信息 01068获取Excel绘图工具栏信息 01069获取Excel命令按钮的外观图像和FaceID号(添加到自定义工具栏) 01070获取Excel命令按钮的外观图像和FaceID号(输出到工作表) 01071改变Excel命令按钮的外观图像 01072删除、恢复Excel菜单栏和工具栏 01073隐藏Excel菜单栏和工具栏 01074显示Excel默认的菜单栏和工具栏 01075执行菜单栏和工具栏的命令按钮 01076改变工作表单元格的快捷菜单 01077在工作表的任意位置快速显示快捷菜单 01078在单元格输入公式 01079在单元格输入数字 01080在单元格输入文本 01081单元格区域引用 01082在单元格输入数字和文本 01083为输入对话框设置默认值 01084在指定时间运行程序(之一) 01085在指定时间运行程序(之二) 01086计划在未来运行一定时间的宏 01087计划每隔一段时间运行宏 01088取消以前计划运行的宏 01089结束应用程序 02001通过索引指定工作簿 02002通过名称指定工作簿 02003引用当前的活动工作簿 02004引用最后打开的工作簿 02005引用当前宏代码运行的工作簿 02006引用新建的工作簿 02007引用包含特定工作表的工作簿 02008判断工作簿是否已经打开(之一) 02009判断工作簿是否已经打开(之二) 02010判断工作簿是否已经保存(之一) 02011判断工作簿是否已经保存(之二) 02012判断工作簿是否为以只读方式打开的 02013判断工作簿是否为加载宏工作簿 02014获取所有打开的工作簿名称 02015获取当前活动工作簿的名称 02016获取当前宏代码运行的工作簿名称 02017获取所有打开的工作簿路径 02018获取当前活动工作簿的路径 02019获取当前宏代码运行的工作簿路径 02020获取包括完整路径的工作簿名称 02021获取工作簿的基本名称 02022获取工作簿的文档属性 02023获取工作簿的保护状态 02024判断工作簿是否创建了自定义工具栏 02025将工作簿设定为已保存 02026将工作簿设定为加载宏工作簿或解除加载宏 02027设定工作簿的文档属性信息 02028通过指定文件名打开工作簿 02029通过指定索引打开工作簿 02030通过对话框打开工作簿(之一) 02031通过对话框打开工作簿(之二) 02032在不更新链接的情况下打开工作簿 02033新建工作簿,并以新名称保存 02034保护工作簿 02035撤销工作簿保护 02036保存工作簿 02037另存工作簿 02038设定保护密码并另存工作簿 02039设定写保护密码并另存工作簿 02040保存工作簿副本 02041通过对话框指定文件名和保存位置并保存工作簿(之一) 02042通过对话框指定文件名和保存位置并保存工作簿(之二) 02043关闭工作簿,不保存 02044关闭工作簿前进行保存 02045关闭所有打开的工作簿,不保存 02046关闭所有打开的工作簿,保存所有更改 02047删除工作簿所有定义的名称 02048引用当前工作簿窗口 02049引用新建的工作簿窗口 02050引用特定工作簿的窗口 02051获取工作簿窗口的拆分状态 02052获取工作簿窗口的窗格信息 02053获取工作簿窗口的冻结窗格状态 02054获取工作簿窗口的各种显示状态 02055获取工作簿窗口的大小状态 02056改变工作簿窗口的大小 02057改变工作簿窗口的显示位置 02058拆分窗口并冻结窗格 02059取消工作簿窗口的拆分和冻结 02060设定工作簿窗口的各种显示状态 02061设定工作簿窗口的显示比例 02062隐藏、显示工作簿窗口 02063将指定的单元格显示在窗口的左上角 02064设置工作簿窗口的网格线颜色 02065新建窗口 02066重排窗口 02067关闭窗口 03001通过索引引用工作表 03002通过名称引用工作表 03003通过Sheets集合引用工作表 03004引用当前活动工作表 03005引用第一个工作表 03006引用最后一个工作表 03007引用所有的工作表 03008引用指定的多个工作表 03009引用新建的工作表 03010引用包含特定单元格的工作表 03011引用工作表名称包含特定字符串的工作表 03012获取工作表名称 03013获取全部工作表名称 03014判断某个表是否为工作表 03015获取工作表的显示状态 03016获取工作表的保护状态 03017判断工作表是否处于筛选模式 03018判断工作表是否存在(之一) 03019判断工作表是否存在(之二) 03020判断工作表是否自动重新计算 03021判断工作表被保护时是否可以进行自动筛选的操作 03022判断工作表被保护时是否启用分级显示符号 03023判断工作表被保护时是否启用数据透视表控件和操作 03024判断工作表被保护时是否可以选定单元格 03025重命名工作表 03026重命名新建的工作表 03027改变工作表标签颜色 03028设置工作表的显示状态 03029设置工作表是否自动重新计算 03030设定工作表被保护时是否可以进行自动筛选的操作 03031设定工作表被保护时是否启用分级显示符号 03032设定工作表被保护时是否启用数据透视表控件和操作 03033设定工作表被保护时是否可以选定单元格 03034新建工作表并重命名 03035复制工作表 03036移动工作表 03037删除工作表 03038保护工作表 03039撤销保护工作表 03040按工作表名称重新排列工作表 03041选定工作表 03042激活工作表 03043显示选定工作表的快捷菜单 03044删除工作表级的定义名称 03045删除图表工作表 03046显示、隐藏行列标题 04001通过Range属性引用某个单元格 04002通过Range属性引用连续的单元格区域 04003通过Range属性引用不连续的单元格区域 04004通过字符串的方式引用某个单元格 04005通过字符串的方式引用连续的单元格区域 04006通过Range属性引用单列 04007通过Columns属性引用单列 04008通过Range属性引用连续的多列 04009通过Range属性引用不连续的多列 04010通过Range属性引用单行 04011通过Range属性引用连续的多行 04012通过Range属性引用不连续的多行 04013通过定义名称引用单元格区域 04014引用单元格的快捷方式 04015通过Cells属性引用某个单元格 04016通过Cells属性引用工作表的全部单元格 04017通过Cells属性引用连续的单元格区域(之一) 04018通过Cells属性引用连续的单元格区域(之二) 04019通过输入框(InputBox)引用所选择的单元格 04020引用活动单元格 04021引用已选定的单元格 04022引用已使用的单元格区域 04023引用被空白行和列包围的单元格区域 04024利用Offset属性动态引用某个单元格 04025利用Offset属性动态引用单元格区域 04026利用Resize属性引用变更为指定大小的单元格区域 04027引用不包括标题行的单元格区域 04028引用不包括标题列的单元格区域 04029引用任意单元格区域的右下角单元格(之一) 04030引用任意单元格区域的右下角单元格(之二) 04031引用输入了计算公式的所有单元格 04032引用输入了常量的全部单元格 04033引用输入了数字的全部单元格 04034引用输入了文本的全部单元格 04035引用输入了逻辑值的全部单元格 04036引用输入了批注的全部单元格 04037引用没有输入任何数据和公式的空单元格 04038引用所有可见单元格 04039引用输入了日期的单元格 04040引用含有相同计算公式的所有单元格 04041引用合并单元格区域 04042引用定义名称所指定的单元格区域(之一) 04043引用定义名称所指定的单元格区域(之二) 04044引用输入了任何内容的最后一行单元格(单列情况之一) 04045引用输入了公式或值的最后一行单元格(单列情况之二) 04046引用输入了任何内容的最后一行单元格(多列情况之一) 04047引用输入了公式或值的最后一行单元格(多列情况之二) 04048引用输入了任何内容的最后一列单元格(单行情况之一) 04049引用输入了公式或值的最后一列单元格(单行情况之二) 04050引用输入了任何内容的最后一列单元格(多行情况之一) 04051引用输入了公式或值的最后一列单元格(多行情况之二) 04052引用多个非连续单元格区域的集合(Union方法) 04053引用多个非连续单元格区域的集合(循环处理) 04054引用多个单元格区域的交叉区域 04055获取计算公式的所有引用单元格 04056获取计算公式引用的其他工作表单元格 04057获取某个单元格的从属单元格 04058引用某个单元格所在的整个行 04059引用某个单元格所在的整个列 04060引用单元格区域所在的行范围 04061引用单元格区域所在的列范围 04062引用隐藏的行或列 04063引用单元格区域未隐藏的单元格 04064引用锁定的单元格 04065引用不连续单元格区域集合内的各个连续的单元格区域 04066引用工作簿窗口范围内所有的单元格 04067引用设定了允许滚动区域的单元格区域 04068引用指定了左上角和右下角的单元格区域(之一) 04069引用指定了左上角和右下角的单元格区域(之二) 04070引用指定了左上角和右下角的单元格区域(之三) 04071引用以单一编号指定的单元格 04072引用工作表任意对象左上角、右下角的单元格 04073引用输入了数组公式的所有单元格区域 04074引用输入了某数组公式的单元格区域 04075引用输入了某个函数的全部单元格 04076引用含有特定文本字符串的所有单元格 04077引用设置了数据有效性的所有单元格 04078获取单元格地址 04079获取单元格区域内的单元格数 04080获取单元格区域的行数 04081获取单元格区域的列数 04082获取单元格的行号 04083获取单元格的列号 04084获取单元格的列标字母 04085获取指定列号单元格的列标字母(之一) 04086获取指定列号单元格的列标字母(之二) 04087获取单元格区域的行号范围 04088获取单元格区域的列号范围 04089获取单元格区域的列标字母范围 04090获取数据区域的最后一行行号 04091获取数据区域的最前一行行号 04092获取数据区域的最后一列列号 04093获取数据区域的最前一列列号 04094获取单元格的任何显示值 04095获取单元格的显示字符串 04096获取单元格文本字符串的一部分(之一) 04097获取单元格文本字符串的一部分(之二) 04098获取单元格内输入的公式 04099判断单元格内是否输入了公式(之一) 04100判断单元格内是否输入了公式(之二) 04101判断工作表内是否有公式 04102判断某单元格区域是否为数组公式区域 04103判断工作表内是否有数组公式 04104判断单元格的计算公式是否引用了其他工作表数据 04105判断单元格的计算公式是否引用了其他工作簿数据 04106判断某单元格是否为合并单元格区域的一部分 04107获取单元格区域内的值,并使其矩阵化 04108获取单元格内的前缀字符 04109判断单元格内的数字是否为文本字符 04110获取单元格的格式 04111获取单元格的字体(Font)对象 04112获取单元格的内部(Interior)对象 04113获取单元格的边框(Borders)对象 04114获取单元格边框线的状态 04115获取单元格的样式(Style)对象 04116获取单元格的条件格式 04117获取单元格的输入规则(有效性设置) 04118获取单元格的超链接 04119获取单元格的批注 04120获取单元格的大小(行高和列宽) 04121获取单元格的坐标 04122向单元格输入数值 04123向单元格输入字符串 04124向单元格输入数字字符串 04125向单元格输入日期 04126向单元格输入时间 04127向单元格输入分数 04128向单元格输入邮政编码 04129向连续的单元格行区域一次性输入不同的数据 04130向连续的单元格列区域一次性输入不同的数据 04131向单元格区域一次性输入相同的数据 04132通过数组向单元格区域一次性输入数据 04133向单元格区域输入连续值 04134向单元格区域输入连续的日期 04135向单元格区域输入连续的字符 04136向单元格输入公式(A1格式) 04137向单元格输入公式(R1C1格式) 04138向单元格或单元格区域输入数组公式 04139替换单元格内的字符(Replace方法) 04140替换单元格内的字符(工作表函数) 04141设置单元格字符串一部分字符的格式(上标、下标) 04142设置单元格字符串一部分字符的格式(其他字体属性) 04143设置单元格的下画线 04144设置单元格的字体属性(字体、字号、加粗、斜体、颜色等) 04145设置单元格区域的外部边框 04146设置单元格区域的全部边框 04147设置单元格区域的除对角框线以外的全部边框 04148删除单元格区域的全部边框 04149设置单元格的颜色和背景 04150设置单元格的格式 04151设置单元格的对齐方式 04152缩小单元格内容以全部显示 04153设定、删除单元格的输入规则和信息提示(有效性设置) 04154为单元格设置条件格式、删除条件格式 04155为单元格插入指向工作簿内部的超链接、删除超链接 04156为单元格插入指向工作簿外部的超链接、删除超链接 04157为单元格添加批注、删除批注 04158修改单元格的批注 04159为单元格区域定义名称、删除名称(Name属性) 04160为单元格区域定义名称、删除名称(Add方法) 04161自动调整单元格大小 04162自动调整工作表全部单元格的大小 04163设置单元格的大小(以磅为单位) 04164设置单元格的大小(以cm为单位) 04165设置单元格的大小(以in为单位) 04166锁定单元格、解除单元格锁定 04167隐藏单元格的公式 04168隐藏、显示某单元格所在的行或列 04169隐藏、显示单元格区域 04170单元格区域自动套用格式 04171选定单元格 04172选定单元格,并显示在窗口的左上角处 04173激活单元格 04174合并单元格 04175取消单元格的合并 04176清除单元格的全部信息 04177清除单元格的公式和值 04178清除单元格的批注 04179清除单元格的格式 04180清除单元格的批注和语音批注 04181清除单元格的超链接 04182插入单元格 04183插入整行或整列 04184删除单元格 04185删除某单元格所在的整行或整列 04186删除多行或多列 04187删除工作表的全部单元格 04188移动单元格 04189复制单元格(复制全部内容) 04190复制单元格的值(PasteSpecial方法) 04191复制单元格的值(Value属性) 04192复制单元格的数据和公式(去掉前缀字符) 04193复制单元格的数据和公式(保留前缀字符) 04194复制单元格的格式 04195复制单元格的批注 04196复制单元格的有效性设置 04197复制单元格的列宽 04198复制单元格的公式和数字格式 04199复制单元格的值和数字格式 04200转置复制单元格区域 04201复制单元格的边框 04202对单元格进行加减乘除运算 04203将单元格区域作为图像对象进行复制(无链接) 04204将单元格区域作为图像对象进行复制(有链接) 04205复制大小可变的单元格区域 05001获取嵌入图表的名称 05002获取图表工作表的名称 05003获取图表的某个系列的数据源 05004获取图表的全部系列的数据源 05005获取图表的标题信息 05006获取图表的图例信息 05007获取图表的位置 05008获取图表的大小 05009获取图表的坐标轴信息 05010获取图表的趋势线信息 05011获取工作表的全部嵌入图表名称和类型 05012制作图表 05013制作多个图表 05014对多个图表进行合理布置 05015制作能够选择任意图表类型的图表 05016制作能够随数据数量变化而变化的图表 05017改变图表的源数据区域 05018更改图表的名称 05019更改图表的类型 05020更改图表的标题格式 05021更改图表的图例格式 05022改变图表的大小 05023设置绘图区的格式 05024设置图表区的格式 05025设置坐标轴的格式 05026为图表添加趋势线 05027将嵌入图表显示在图表视窗 05028将图表保存为图像文件 05029将图表放置在批注 05030将图表图像加载到工作表 05031删除图表 06001获取Shape对象的类型 06002获取Shape对象的名称 06003获取Shape对象的文字 06004获取Shape对象的大小 06005获取Shape对象的位置 06006获取Shape对象的左上角、右下角单元格地址 06007获取工作表内全部Shape对象的基本信息 06008判断Shape对象是否指定了宏 06009插入Shape对象(一般方法) 06010插入Shape对象并指定名称 06011插入Shape对象并添加文字 06012插入Shape对象并指定宏 06013插入自选图形对象 06014更改Shape对象的文字 06015更改Shape对象的大小 06016更改Shape对象的位置 06017选择任意的Shape对象 06018对Shape对象进行群组化处理 06019移动、旋转Shape对象(制作动画) 06020将Shape对象固定在工作表的某一位置 06021删除Shape对象 06022设置Shape对象大小和位置是否随单元格而改变 06023使Shape对象充满整个单元格区域 06024为Shape对象插入超链接 06025利用透明的Shape对象保护单元格 07001获取工作表所有的Excel窗体控件清单 07002插入Excel窗体控件(之一) 07003插入Excel窗体控件(之二) 07004插入Excel窗体控件并指定名称 07005在Excel窗体控件上设置文字(标签、按钮、单选按钮和复选框) 07006设置Excel窗体控件的颜色和线条 07007更改Excel窗体控件大小 07008更改Excel窗体控件的位置 07009选定或取消选定单选按钮和复选框 07010为列表框和组合框设置项目(指定单元格区域) 07011为列表框和组合框设置项目(使用AddItem方法) 07012为列表框和组合框设置项目(使用List属性) 07013为列表框和组合框设置单元格链接 07014获取列表框和组合框的项目值 07015当选定列表框和组合框某个项目时立即得到项目值 07016一次性插入多个Excel窗体控件并指定不同的宏 07017每单击一次Excel窗体控件,就改变背景颜色或字体颜色 07018获取工作表所有的ActiveX控件清单 07019在工作表插入ActiveX控件对象 07020在工作表插入ActiveX控件对象并重命名 07021引用ActiveX控件(利用Shape对象) 07022引用ActiveX控件(利用OLEObject对象) 07023设置ActiveX控件上的文字 07024设置ActiveX控件的前景和背景 07025设置ActiveX控件对象的位置 07026更改ActiveX控件对象的大小 07027设置、获取文本框的值 07028为列表框和组合框添加项目值(指定单元格区域) 07029为列表框和组合框设置项目(使用AddItem方法) 07030为列表框和组合框设置项目(使用List属性) 07031获取列表框和组合框的项目值 07032在列表框和组合框选定项目后立即得到所选项目值 07033设置单选按钮和复选框的值(是否选定) 07034取得单选按钮和复选框的值(选定状态) 07035设置切换按钮的值 07036取得切换按钮的值 07037设置微调按钮的值 07038获取微调按钮的值 07039设置滚动条的值 07040获取滚动条的值 07041设置、获取标签的标题文字 07042设置、获取框架的标题文字 07043在图像控件显示、清除图片 07044以无模式状态显示用户窗体 07045将用户窗体显示在窗口的指定位置(之一) 07046将用户窗体显示在窗口的指定位置(之二) 07047改变用户窗体的大小 07048改变用户窗体的标题文字 07049将用户窗体显示在上次关闭时的位置上 07050在工作表同时显示多个窗体 07051禁止以窗体右上角的按钮【×】关闭窗体 07052引用窗体的控件 07053引用窗体的某一类控件 07054引用窗体所有的控件 07055引用其他窗体的控件 07056初始化用户窗体的所有控件 07057获取被选定的控件的有关信息 07058将控件设置为不可操作(显示为灰色) 07059将控件设置为不可操作(锁定) 07060使控件隐藏、显示(利用Visible属性) 07061使控件隐藏、显示(利用Top属性和Left属性) 07062当鼠标指针停留在控件上方时显示提示信息 07063当鼠标指针停留在控件上方时改变鼠标指针类型 07064当鼠标指针停留在控件上方时改变鼠标指针的图像 07065设置控件的焦点 07066设置控件的背景色和前景色 07067设置控件的字体格式 07068为控件添加图片 07069设置默认按钮 07070设置取消按钮 07071在按钮显示程序运行状态 07072将文本框设置为必须输入状态 07073设置文本框内字符的对齐方式 07074设置文本框内字符的格式 07075限制文本框内的输入值 07076限制文本框内的字符长度 07077限制只能在文本框内输入阿拉伯数字和小数点 07078限制只能在文本框内输入阿拉伯数字、小数点和负号 07079限制只能在文本框内输入英文字母 07080转换文本框内数据类型 07081将文本框内的字符在任意字符后换行 07082将文本框设定为自动换行状态 07083为组合框设置项目(利用RowSource属性) 07084为组合框设置项目(利用AddItem方法) 07085为组合框设置项目(利用List属性) 07086为组合框设置项目(利用Column属性) 07087获取组合框的项目值(利用Value属性) 07088获取组合框的项目值(利用List属性) 07089获取组合框的项目值(利用Column属性) 07090获取组合框的项目值(利用数组) 07091删除组合框内所有的项目(利用Clear方法) 07092删除组合框内所有的项目(利用RowSource属性) 07093删除组合框内的某个项目(利用RemoveItem方法) 07094取消组合框项目的选定 07095将组合框设置为必须选定状态 07096将组合框设置为只能从项目列表选定 07097选定组合框后自动弹出项目列表 07098设置组合框项目的选择外观 07099为列表框设置项目(利用RowSource属性) 07100为列表框设置项目(利用AddItem方法) 07101为列表框设置项目(利用List属性) 07102为列表框设置项目(利用Column属性) 07103获取列表框的项目值(利用Value属性) 07104获取列表框的项目值(利用List属性) 07105获取列表框的项目值(利用Column属性) 07106获取列表框的项目值(利用数组) 07107删除列表框内所有的项目(利用Clear方法) 07108删除列表框内所有的项目(利用RowSource属性) 07109删除列表框内的某个项目(利用RemoveItem方法) 07110取消列表框项目的选定 07111将列表框设置为必须选定状态 07112设置列表框的单选、多选状态 07113在列表框和文本框之间进行拖曳操作 07114利用标签显示程序运行进程 07115获取框架内所有的控件名称 07116利用框架实现单选按钮的多选 07117获取选定的单选按钮 07118获取选定的复选框 07119实现旋转按钮与文本框的联动 07120实现旋转按钮的反向自动变化 07121实现滚动条与工作表滚动条的同步联动 07122动态更改切换按钮的标题文字 07123实现多页控件各个页面的自动反向切换 07124利用图像控件浏览图像文件 07125向Spreadsheet控件输入数据 07126将Excel工作表的数据输入到Spreadsheet控件 07127将Spreadsheet控件的数据输入到Excel工作表 07128利用ChartSpace控件在窗体上绘制动态图表 07129利用DTPicker控件获取日期和时间 07130利用ProgressBar控件设置进度条 07131利用ListView控件在窗体制作报表 07132利用TreeView控件在窗体以树形结构显示数据 07133快速调整用户窗体大小 07134在运行时添加控件 07135删除运行时添加的控件 07136利用标签条(TabStrip控件)动态显示数据 07137隐藏、显示用户窗体的【×】按钮 07138将用户窗体的【×】按钮设置为有效、无效 07139在用户窗体上增加【最大化】和【最小化】按钮 07140在启动工作簿时仅显示用户窗体,而不显示Excel界面 08001当新建工作簿时执行程序(NewWorkbook事件) 08002当激活工作表时执行程序(SheetActivate事件) 08003当双击工作表时执行程序(SheetBeforeDoubleClick事件) 08004当右击工作表时执行程序(SheetBeforeRightClick事件) 08005当对工作表进行计算时执行程序(SheetCalculate事件) 08006当任何单元格的值变更时执行程序(SheetChange事件) 08007当工作表不是活动状态时执行程序(SheetDeactivate事件) 08008当超链接被执行时执行程序(SheetFollowHyperlink事件) 08009当单元格的选择范围变更时执行程序(SheetSelectionChange事件) 08010当任意工作簿窗口被激活时执行程序(WindowActivate事件) 08011当工作簿窗口不是活动窗口时执行程序(WindowDeactivate事件) 08012当活动工作簿窗口被变更时执行程序(WindowResize事件) 08013当工作簿成为活动工作簿时执行程序(WorkbookActivate事件) 08014当工作簿成为非活动工作簿时执行程序(WorkbookDeactivate事件) 08015当工作簿被打开时执行程序(WorkbookOpen事件) 08016当工作簿被关闭时执行程序(WorkbookBeforeClose事件) 08017当工作簿被保存时执行程序(WorkbookBeforeSave事件) 08018当工作簿被打印时执行程序(WorkbookBeforePrint事件) 08019当打开工作簿时执行程序(Open事件) 08020当关闭工作簿时执行程序(BeforeClose事件) 08021当激活工作簿时执行程序(Activate事件) 08022当工作簿不是活动状态时执行程序(Deactivate事件) 08023当保存工作簿时执行程序(BeforeSave事件) 08024当打印工作簿时执行程序(BeforePrint事件) 08025当新建工作表时执行程序(NewSheet事件) 08026当工作表被激活时执行程序(SheetActivate事件) 08027当工作表不是活动状态时执行程序(SheetDeactivate事件) 08028当工作表被计算时执行程序(SheetCalculate事件) 08029当双击工作表时执行程序(SheetBeforeDoubleClick事件) 08030当右击工作表时执行程序(SheetBeforeRightClick事件) 08031当工作表任何单元格数据发生变更时执行程序(SheetChange事件) 08032激活、非活动工作表时执行程序(Activate事件和Deactivate事件) 08033当对工作表进行计算时执行程序(Calculate事件) 08034当单元格数据发生变化时执行程序(Change事件) 08035当选定单元格区域发生变化时执行程序(SelectionChange事件) 08036超链接被执行时执行程序(FollowHyperlink事件) 08037当双击工作表时执行程序(BeforeDoubleClick事件) 08038当在工作表右击时执行程序(BeforeRightClick事件) 08039当图表被激活和被更改时执行程序(Activate事件) 08040双击图表时执行程序(BeforeDoubleClick事件) 08041在图表上单击或右击时执行程序(MouseDown事件) 08042在选定了图表要素时执行程序(Select事件) 08043在选定了图表要素时执行程序(Select事件) 08044在图表上移动鼠标时执行程序(MouseMove事件) 08045使用图表工作表的事件来执行程序 08046装载显示用户窗体时执行程序(Initialize事件) 08047激活用户窗体时执行程序(Activate事件) 08048关闭用户窗体时执行程序(QueryClose事件) 08049单击用户窗体时执行程序(Click事件) 08050单击时执行程序(Click事件) 08051双击时执行程序(DblClick事件) 08052控件值被改变时执行程序(Change事件之一) 08053控件值被改变时执行程序(Change事件之二) 08054在鼠标指针移到控件上面时执行程序(MouseMove事件) 08055在获得焦点前执行程序(Enter事件) 08056在失去焦点且数据有变更时执行程序(BeforeUpdate事件) 08057在数据有变更时执行程序(AfterUpdate事件) 08058在按键时执行程序(KeyPress事件) 08059Excel工作表的ActiveX控件对象事件的使用示例 09001为现有的菜单控件添加、删除自定义菜单命令 09002在Excel菜单栏创建、删除自定义菜单控件 09003创建、删除多级自定义菜单控件 09004创建、删除自定义主菜单栏 09005在Excel工具栏添加、删除自定义命令按钮 09006在Excel工具栏添加、删除自定义组合框按钮 09007在Excel工具栏添加、删除自定义下拉命令按钮 09008创建、删除自定义工具栏,并指定显示位置 09009创建、删除由内置命令组成的自定义工具栏 09010为Excel系统默认的快捷菜单添加、删除新菜单命令 09011为快捷菜单添加、删除内置命令 09012创建一个全新的快捷菜单 09013获取Excel的全部快捷菜单信息 09014使Excel的快捷菜单无效 09015为用户窗体和控件添加自定义快捷菜单 10001查询数值及公式字符串(Find方法) 10002查询数值及公式结果(Find方法) 10003查询数值及公式结果(Match函数) 10004查询数值及公式结果(VLookup函数) 10005查询数值及公式结果(Find方法和Offset属性) 10006查询数值及公式结果(Collection对象) 10007查询数值及公式结果(DGet函数) 10008查询含有某字符的单元格数据(Like运算符) 10009查询含有某字符的单元格数(CountIf函数) 10010使用数据库函数DCountA实现复杂查询 10011从多个工作表或工作簿查询数据 10012自动排序 10013使用自定义序列进行排序 10014使用多个关键字进行排序 10015先进行排序然后再恢复排序前的状态 10016按照单元格的颜色、字体颜色进行排序 10017按照字符的长度进行排序 10018字母与数字混合情况下的排序 10019对数组的元素值进行排序 10020执行自动筛选 10021撤销自动筛选 10022执行高级筛选(与条件) 10023执行高级筛选(或条件) 10024撤销高级筛选 10025复制筛选出的数据 10026删除没有出现在筛选结果的所有行 10027筛选不重复的数据 10028获取两个工作表相同数据的行数据 10029获取只存在于某个工作表的行数据 10030删除数据区域内的所有空行 10031删除数据区域内的所有空列 11001从一个工作表查询数据(ADO+SQL) 11002从多个工作表查询数据(ADO+SQL) 11003查询其他工作簿数据(ADO+SQL) 11004利用DAOSQL查询工作簿数据 11005在不打开工作簿的情况下对多个工作簿进行汇总 12001利用DAO对象创建Access数据库和数据表 12002利用ADO对象创建Access数据库和数据表 12003检查数据表是否存在 12004获取数据库所有的数据表名称 12005检查字段是否存在 12006获取数据库某数据表的所有字段信息 12007字段类型常量与字段类型英文名称的转换函数 12008将Access数据库的数据全部导入到Excel工作表 12009将Access数据库的某些字段导入到Excel工作表 12010查询不重复的记录(Distinct) 12011查询最前面的若干条记录(Top) 12012利用Like运算符进行模糊查询 12013对查询结果进行排序(Order) 12014查询某一区间内的数据(Between) 12015进行复杂条件的查询(Where) 12016利用合计函数进行查询(查询最大值和最小值) 12017利用合计函数进行查询(查询合计数和平均值) 12018将第一个查询结果作为查询条件进行查询 12019对查询结果进行分组(Group) 12020将查询结果作为窗体控件的源数据 12021添加新记录 12022修改更新记录 12023删除特定的记录 12024删除全部记录 12025通过窗体编辑记录 12026将整个工作表数据都保存为Access数据库 12027将工作表的某些数据保存到Access数据库 12028将工作表数据保存到已有的Access数据库(循环方式) 12029为数据表增加字段 12030改变字段的类型 12031改变字段的长度 12032删除一个字段 12033删除一个数据表 13001将TXT格式文本文件打开为工作簿 13002将CSV格式文本文件打开为工作簿 13003利用QueryTables对象导入文本文件(之一) 13004利用QueryTables对象导入文本文件(之二) 13005利用ADO导入文本文件的全部内容 13006利用ADO导入文本文件的部分内容 13007获取文本文件的行数和列数 13008逐行获取文本文件的行数据,并拆分成列 13009将工作表的全部数据保存为CSV格式文本文件 13010将工作表部分数据保存为CSV格式文本文件 13011创建新的文本文件并写入数据 13012向已有的文本文件写入数据 13013以行为单位读取文本文件数据 13014以字符为单位读取文本文件数据 13015读取文本文件的全部数据 13016读取文本文件的指定行数据 14001调用数学函数 14002调用财务函数 14003调用日期和时间函数 14004调用字符串函数 14005调用强制转换函数 14006调用检查函数 14007调用数组函数 14008使用判断函数(IIf函数) 14009使用格式函数(Format函数) 14010设计参数可选的自定义函数 14011设计参数个数不确定的自定义函数 14012设计返回数组的自定义函数 14013为自定义函数添加信息提示 14014对自定义函数进行归类 14015快速创建列标题和行标题 14016快速向单元格区域输入数据 14017快速获取单元格区域数据 14018使用数组提高计算效率 14019向单元格输入一般公式 14020向单元格区域输入数组公式 14021快速复制公式 14022列举工作簿内所有的公式 14023对指定的单元格区域进行计算 14024删除工作表的所有数据,但保留所有公式 15001按指定次数进行循环(ForNext) 15002在循环过程退出(ExitFor) 15003不确定次数进行循环(DoLoop) 15004在循环过程退出(ExitDo) 15005对数组的所有元素进行循环 15006对没有规律性的元素进行循环 15007对集合的所有对象进行循环 15008进行多重循环 15009判断是否为数值 15010判断是否为日期 15011判断是否为数组 15012判断是否为对象 15013判断变量是否保存有对象 15014判断程序是否有错误 15015判断字母的大小写 15016判断字符的全角和半角 15017使用SelectCase进行多条件处理(数值区间) 15018使用SelectCase进行多条件处理(关键字Is) 15019使用SelectCase进行多条件处理(Like运算符) 16001设置、取消打印区域(固定区域) 16002设置、取消打印区域(不固定区域) 16003设置、取消打印区域(全部工作表) 16004设置打印列标题和行标题 16005设置页边距(以磅为单位) 16006设置页边距(以in为单位) 16007设置页边距(以cm为单位) 16008设置页眉 16009设置页脚 16010设置页面的水平、垂直居位置 16011设置纵向或横向打印模式 16012设置打印纸张大小 16013将工作表的全部数据都缩印在一页内 16014设置打印行号、列标和网格线 16015显示打印预览 16016打印工作表 16017在任意位置设置换页 16018获取打印总页数 16019显示打印机设置对话框 16020显示打印内容对话框 16021显示页面设置对话框 16022显示分页预览 16023隔页打印工作表 16024设置是否打印工作表的Shape对象 17001获取VBA工程信息资料 17002设置VBA工程信息资料 17003获取工程所有的对象名称和类型 17004更改模块和用户窗体的名称 17005导出模块和用户窗体 17006导入模块和用户窗体 17007清除立即窗口内容 17008获取对象所有定义的变量 17009获取对象所有过程的名称 17010获取引用的项目信息 17011增加引用项目 17012取消引用项目 17013利用VBA插入用户窗体和控件,并为控件编写事件程序代码 17014利用VBA插入标准模块并写入程序代码 17015利用VBA插入类模块 18001获取文件夹内的所有文件(FileSearch) 18002获取文件夹内的某一类型的所有文件(FileSearch) 18003获取文件夹内的所有文件(Dir函数) 18004判断文件是否存在 18005复制文件 18006移动文件 18007删除文件 18008重命名文件 18009获得文件的修改日期和时间 18010获得文件大小 18011获取文件的属性 18012设置文件的属性 18013获取当前驱动器的名称 18014变更当前驱动器的名称 18015判断文件夹是否存在 18016创建文件夹 18017获取当前的文件夹 18018移动文件夹 18019删除文件夹 18020更改文件夹名 18021获取文件夹的属性 18022判断文件是否存在(FileExists) 18023复制文件(CopyFile) 18024删除文件(DeleteFile) 18025移动文件(MoveFile) 18026获取文件的属性(Attributes) 18027获取文件的信息资料(GetFile) 18028获取文件的基础名称(GetBaseName) 18029获取文件的扩展名(GetExtensionName) 18030获取文件的全名(GetFileName) 18031获取文件所在的文件夹名(GetParentFolderName) 18032获取文件所在的驱动器名(GetDriveName) 18033获取文件夹内的所有文件清单 18034判断文件夹是否存在(FolderExists) 18035复制文件夹(CopyFolder) 18036删除文件夹(DeleteFolder) 18037移动文件夹(MoveFolder) 18038创建文件夹(CreateFolder) 18039获取文件夹的属性(Attributes) 18040获取文件夹的信息资料(GetFolder) 18041获取文件夹的所有子文件夹名(SubFolders) 18042获取特定文件夹的路径(GetSpecialFolder) 18043判断驱动器是否存在(DriveExists) 18044获取所有可以使用的驱动器清单(Drives) 18045获取驱动器的信息资料(GetDrive) 19001创建新的Word文档(前绑定) 19002创建新的Word文档(后绑定) 19003打开已有的Word文档(前绑定) 19004打开已有的Word文档(后绑定) 19005将Word文档内容复制到工作表 19006将工作表数据复制到Word文档 19007创建新的PowerPoint文档 19008打开已有的PowerPoint文档(前绑定) 19009打开已有的PowerPoint文档(后绑定) 19010以Excel工作表数据为基础制作PowerPoint幻灯片 19011将Excel工作表的图表复制到PowerPoint幻灯片 19012按工作表的地址发送邮件(前绑定) 19013将工作簿作为附件发送邮件(前绑定) 20001打开记事本(Shell函数) 20002打开计算器 20003以指定的文件夹打开Windows资源管理器 20004打开控制面板的某个项目窗口 20005创建文件的快捷方式 20006从Excel启动指定的网页 20007建立Web查询 20008定时刷新Web查询 20009利用OutlookExpress发送邮件 20010获取显示器分辨率 20011利用VBA播放声音
模块名称:阿杰皮肤库 作者:阿杰 版本:1.1 阿杰皮肤库 @备注: 创建日期:2010年1月15日 更新日期:2010年3月07日 ------------------------------ .版本 2 .全局变量 皮肤, 皮肤库, 公开, , 这个您可以拿来直接使用,就不用再定义了。 .程序集 皮肤库, , 公开, 阿杰皮肤库 .子程序 窗口可否移动, 整数型, 公开, 设置窗体是否可以移动。成功返回0,失败返回非0 .参数 句柄, 整数型, , 窗口句柄 .参数 是否移动, 整数型, , 0为不可移动,1为可移动 .子程序 绘制设备元素, 整数型, 公开, 绘制指定设备上下文的元素。成功返回0,失败返回非0 .参数 目标设备, 整数型, , 目标设备上下文 .参数 X1, 整数型, 可空, 左上角水平坐标 .参数 Y1, 整数型, 可空, 左上角垂直坐标 .参数 X2, 整数型, 可空, 右下角水平坐标 .参数 Y2, 整数型, 可空, 右下角垂直坐标 .参数 元素ID, 整数型, 可空, 元素id .子程序 加载皮肤, 逻辑型, 公开, 加载皮肤的高级方式,可以指定加载皮肤的亮度、色调、饱和度,成功返回真。 .参数 皮肤路径, 文本型, 可空, she皮肤文件存放的路径,如果为空刚启用默认皮肤 .参数 皮肤口令, 文本型, 可空, 皮肤文件的密码,没有请留空 .参数 色调, 整数型, 可空, 1~360 .参数 饱和度, 整数型, 可空, 1~256 .参数 亮度, 整数型, 可空, 1~256 .子程序 加载皮肤_从PE资源, 整数型, 公开, 从exe或dll资源加载皮肤,成功返回0 .参数 资源名, 文本型, , PE内的皮肤资源名 .参数 资源类型, 文本型, , PE内的皮肤资源类型 .子程序 加载皮肤_从资源, 逻辑型, 公开, 从字节集加载皮肤(可以是资源的资源),成功返回真。 .参数 资源皮肤, 字节集, 可空, 皮肤数据 .参数 皮肤密码, 文本型, 可空, 皮肤密钥 .参数 色调, 整数型, 可空, 取值范围 -180-180 .参数 饱和度, 整数型, 可空, 取值范围 -100-100 .参数 亮度, 整数型, 可空, 取值范围 -100-100 .子程序 取指定点颜色, 整数型, 公开, 获取指定窗口或控件在nX,nY处的颜色值,无符号整型 返回颜色值(RGB) .参数 句柄, 整数型, , 指定窗口或控件的句柄 .参数 横坐标, 整数型, , 指定横坐标点 .参数 纵坐标, 整数型, , 指定纵坐标点 .子程序 锁定组件刷新, 整数型, 公开, 用于填充表格或者列表控件数据时,重复绘制滚动条影响执行效率问题。成功返回0 .参数 句柄, 整数型, , 窗口或控件的句柄 .参数 是否锁定, 整数型, , 是否锁定。1为锁定,0为解锁 .子程序 调整皮肤颜色, 整数型, 公开, 调整色调,饱和度,亮度,成功返回0 .参数 色调, 整数型, , 取值范围 -180 - 180 .参数 饱和度, 整数型, , 取值范围 -100 - 100 .参数 亮度, 整数型, , 取值范围 -100 - 100 .子程序 卸载皮肤, 逻辑型, 公开, 关闭皮肤,成功返回真。 .子程序 卸载皮肤_指定窗口, 逻辑型, 公开, 卸载指定窗口或组件上的皮肤,成功返回真。 .参数 句柄, 整数型, , 要卸载皮肤的窗口句柄,可以用 对象.取窗口句柄() 取得 .子程序 指定不使用皮肤的组件, 整数型, 公开, 卸载指定句柄的窗体或者控件的皮肤,成功返回0 .参数 句柄, 整数型, , 指定窗体或控件的句柄 .子程序 指定换肤类型, 整数型, 公开, 指定窗体和控件的换肤类型,成功返回0。换肤类型参见常量表 .参数 句柄, 整数型, , 窗口或控件的句柄 .参数 换肤类型, 整数型, , 换肤类型:换肤类型参见常量表 .子程序 置Vista特效, 逻辑型, 公开, 为指定句柄的窗体或者控件设置Vista特效。成功返回真。 .参数 是否有效, 整数型, 可空, 默认为“1”。1为有效,0为无效 .子程序 置Vista特效阴影, 整数型, 公开, 设置Vista特效的阴影大小。成功返回0,失败返回非0 .参数 透明度, 整数型, 可空, 1-255 默认值0 .参数 亮度, 整数型, 可空, 1-255 默认值0 .参数 锐度, 整数型, 可空, 1-255 默认值0 .参数 阴影大小, 整数型, 可空, 2-19 默认值0 .参数 水平偏移, 整数型, 可空, 默认值0 .参数 垂直偏移, 整数型, 可空, 默认值0 .参数 红色分量, 整数型, 可空, 0-255 默认值 -1 .参数 绿色分量, 整数型, 可空, 0-255 默认值 -1 .参数 蓝色分量, 整数型, 可空, 0-255 默认值 -1 .子程序 置标题栏菜单, 逻辑型, 公开, 在窗口标题栏定义菜单,成功返回真。 .参数 窗口句柄, 整数型, , 欲换肤的窗口句柄 .参数 是否启用, 整数型, 可空, 是否启用标题菜单栏;0停用,1启用 .参数 菜单高度, 整数型, 可空, 0为默认;一般设置为22或10;根据需要设置 .参数 顶部偏移, 整数型, 可空, 顶部偏移 .参数 右部偏移, 整数型, 可空, 右部偏移 .子程序 置菜单透明度, 整数型, 公开, 设置菜单的透明度,成功返回0 .参数 透明度, 整数型, , 取值范围 0-255 .子程序 置控件的背景色, 整数型, 公开, 目前仅对单选框,复选框,分组框有效。成功返回0,失败返回非0 .参数 句柄, 整数型, , 控件句柄 .参数 红色分量, 整数型, 可空, 取值范围0-255 .参数 绿色分量, 整数型, 可空, 取值范围0-255 .参数 蓝色分量, 整数型, 可空, 取值范围0-255 .子程序 置控件的文本颜色, 整数型, 公开, 目前仅对单选框,复选框,分组框有效。成功返回0,失败返回非0 .参数 句柄, 整数型, , 控件句柄 .参数 红色分量, 整数型, , 取值范围0-255 .参数 绿色分量, 整数型, , 取值范围0-255 .参数 蓝色分量, 整数型, , 取值范围0-255 .子程序 置皮肤透明度, 逻辑型, 公开, 设置指定句柄的窗体的透明度,成功返回真。 .参数 句柄, 整数型, , 窗体句柄。 .参数 透明度, 整数型, , 0~255 .图片 皮肤_QQ2008, 公开
Ring3下注入DLL的另类方法,能过杀软和游戏NP(源码) 注入DLL是做全局钩子或者拦截类软件都有可能用到的技术,如果做外挂的话我们也有 可能需要注入一个DLL到游戏进程去干点什么“坏事”。 但我们知道现在要注入DLL是越 来越难了。场景1:制作火星文输入法外挂,原理是利用API HOOK拦截并修改输入法相关函 数,需要注入一个DLL到所有进程,但是后来发现,在开启了瑞星的帐号保险箱后,用户 将不能在QQ输入火星文。原因是瑞星保护了QQ进程,禁止对其注入DLL,解决方法是提示 用户关闭帐号保险箱 -_-| 确实是很降低用户体验的一个不是办法的办法。场景2:制作某 游戏外挂,需要注入一个DLL到游戏进程去直接调用游戏函数完成某一功能。结果发现该 游戏有NP保护,OpenProcess打不开,创建远程线程也不行,试用其它方法也一一失败。遇 到上面的情况,高手们自然是转到Ring0下面去,使用驱动之类的办法来对付啦,不过吾等 菜鸟可就是酒井没法子了 -_-| 不过也别太灰心,凡事总会有办法的。我想我们需要一种持久的、稳定的、不容易被安 全软件屏蔽的DLL注入方法,后来发现,输入法程序就是能完成这一任务的理想人选。输入 法程序程序到底是什么?它没有自己的进程,并且在系统还没有登录时就已被加载(在欢迎 界面你也可以调出输入法),它可以在游戏打开,也可以在控制台程序打开,还可以在 瑞星保护下的QQ打开,在杀软也可以打开,这不就是我们要找的特性吗。那么,输入法 到底是什么呢?根据Windows的规定,输入法其实就是一个DLL,不过它是一个特殊的DLL, 它必须具有标准输入法程序所规定的那些接口,输入法是由输入法管理器(imm32.dll)控 制的,输入法管理器又是由user32.dll控制的。输入法在系统目录是以IME为扩展名的文件 ,当在应用程序激活某个输入法时,输入法管理器就会在那个应用程序的进程加载对应 的IME文件,注意,加载IME文件跟加载普通的DLL并没有本质区别,所以,可以认为,输入 法其实就是注入到应用程序的一个DLL文件,并且,这种“注入”是不会被杀软和游戏NP 拦截的(至少目前是)。现在,我们已经有了一个注入DLL的另类方法,那就是利用输入法 。具体流程是这样,首先制作一个标准输入法文件,但是这个输入法并不完成文字输入工作 ,它的唯一任务就是用来注入DLL,所以称为“服务输入法”,然后,制作一个控制程序, 来控制服务输入法,当然最后还需要一个用于注入的目标DLL,这样一共就有3个文件。开始 工作后,控制程序首先将服务输入法安装到系统,然后传递几个参数给服务输入法,参数 包括了需要注入的DLL文件的名称和路径,然后,控制程序将服务输入法设置为系统的默 认输入法,这样新的程序一打开,服务输入法就会注入那个程序。当然,在服务输入法安装 之前打开的程序不会被注入,这时需要向系统的所有窗口POST一条 WM_INPUTLANGCHANGEREQUEST消息,该消息可以在指定窗口后台激活服务输入法,这样, 系统所有拥有窗口的进程就都被我们的服务输入法注入了。服务输入法注入程序之后,就 会根据控制程序传递过来的参数加载目标DLL,这样目标DLL也就随着服务输入法一同注入到 目标程序了。注意服务输入法是控制程序用WM_INPUTLANGCHANGEREQUEST消息在所有窗口 自动激活的,如果某个窗口自动激活失败,你就需要在那个窗口手工切换到服务输入法 ,这样才能注入进去了。至于注入以后,你就可以在窗口切换到别的输入法,这并不会影 响已经注入进去的DLL。我将这一套功能制作成一个完整的示例,你可以在以下地址下载: http://www.pen88.com/download/imehook.rar 压缩包的第6个和第8个文件夹演示了此 功能并包含所有源代码。其文件imedllhost09.dll就是服务输入法,运行时会被安装到系 统,控制程序退出时会自动卸载该输入法,这样用户就不太容易察觉,你还可以重新编译 该输入法,将名称改为“文(国)”,这样隐蔽性更好。文件hxwdllwx.dll是演示用的 目标DLL,你可以替换成自己的DLL,然后那个exe文件就是控制程序了。输入法 imedllhost09.dll在运行时会被复制到系统目录并更名为imedllhost09.ime,它导出了2个 函数用于控制。在VB的声明为: Public Declare Function IMESetPubString Lib "imedllhost09.ime" (ByVal RunDLLStr As String, ByVal UnloadDll As Long, ByVal loadNextIme As Long, ByVal DllData1 As Long, ByVal DllData2 As Long, ByVal DllData3 As Long) As Long Public Declare Function IMEClearPubString Lib "imedllhost09.ime" () As Long 其IMESetPubString用于向输入法传递要注入的DLL等参数。RunDLLStr,要注入的DLL命令 和完整路径。UnloadDll,当输入法退出时,是否同时卸载目标DLL 0-是,1-否。 loadNextIme,当切换至该服务输入法时,是否直接切换到下一个输入法(这样服务输入法 就好像被跳过了,可最小限度影响用户的输入法顺序) 0-否,1-是。DllData1,DllData2 ,DllData3是传递给目标DLL的回调函数(函数名称必须为RunDllHostCallBack)的参数, 你可以在目标DLL导出一个函数,名称为RunDllHostCallBack,这样当输入法注入时会调 用目标DLL的该回调函数并向其传递这3个参数。函数原型为(VC): DWORD RunDllHostCallBack(DWORD calldata1, DWORD calldata2,DWORD calldata3); IMEClearPubString函数用于清除输入法的配置,清除后,输入法将停止在新的程序注入 目标DLL,但已注入的DLL不会卸载。 好了,利用输入法来注入DLL基本上就是这样了,详细的用法大家可以看压缩包的第8个文 件夹,其服务输入法是VC写的,控制程序是VB的,代码都是有注释的。测试发现该方法能 过目前所有杀软,也能注入冰刃。当然缺点还是有的,就是目标程序如果不接受输入法那就 没办法了,但是现在一般的游戏都不会禁止玩家在里面打字吧,而且杀软也不能禁止用户输 入汉字吧,哈哈,所以通用性应该还是蛮好的。 最后,我再介绍另一个注入DLL的方法,估计也很少被用到。是利用一个未公开函数 RegisterUserApiHook,可以在网上搜索关键词“RegisterUserApiHook”,查到有人在 Windows 2003下测试成功,但是我在Windows XP测试却失败。后来终于找到了失效的原因。 RegisterUserApiHook函数可以在系统注册一个全局钩子,你需要在钩子指定一个DLL和 一个回调函数,然后,所有加载了user32.dll的程序就都会在启动时加载你指定的这个DLL 。用这个函数来注入DLL也是很不错的。但是测试发现它的注入能力似乎赶不上上面提到的 利用输入法来注入的办法,可以注入一般的程序和某些安全程序,但是对冰刃无效。而且它 有一个限制,就是系统只能同时存在一个这样的钩子。实际上这个钩子平时是被系统的 Themes服务占用了,Themes服务正是利用这个钩子HOOK了绘制窗口的相关API,所以才让所 有程序窗口变成XP主题样式的。所以我们要用这个钩子的话,必须先关闭Themes服务,这样 在XP下也可以用了,但是这样系统就变成Windows 2000的样式了 -_-| RegisterUserApiHook函数的VB声明如下: Public Declare Function RegisterUserApiHookXP Lib "user32" Alias "RegisterUserApiHook" (ByVal hInstance As Long, ByVal fnUserApis As Long) As Long Public Declare Function RegisterUserApiHook2003 Lib "user32" Alias "RegisterUserApiHook" (pRegInfo As HookAPIRegInfo2003) As Long 可以看到,在XP和2003下这个函数的参数是不一样的。关于此函数的示例代码,请参见压缩 包的第5个文件夹。 最后的最后,再介绍一个未公开函数InitializeLpkHooks,这个函数在网上能找到的资料更 少,只有一个声明而已。但是它名称最后那个“Hooks”误导了我,我以为又是一个可以 用来注入DLL的不错函数,用OD反出来一看,原来只是个局部HOOK而已。虽然没太大用,还 是一并写上吧,也许谁用得着呢。InitializeLpkHooks顾名思义就是HOOK LPK的,Windows 有个lpk.dll,就是支持多语言包的那么个功能。测试发现好多程序在TextOut之前似乎是要 调用lpk.dll里面的相关函数的,可能是支持多语言的程序就需要用这个来判断到底要显示 那种语言吧。而InitializeLpkHooks,就是用来HOOK lpk.dll里面的4个函数的,这4个函数 是LpkTabbedTextOut,LpkPSMTextOut,LpkDrawTextEx,LpkEditControl。我们先打开VB, 在窗体加入以下代码吧: Private Sub Form_Load() DLLhwnd = LoadLibrary("lpk.dll") '加载DLL DLLFunDre = GetProcAddress(DLLhwnd, "LpkDrawTextEx") '获取回调函数地址 LpkHooksInfo.lpHookProc_LpkTabbedTextOut = 0 LpkHooksInfo.lpHookProc_LpkPSMTextOut = 0 LpkHooksInfo.lpHookProc_LpkDrawTextEx = GetLocalProcAdress(AddressOf HookProc1) '设置要HOOK的LPK函数 LpkHooksInfo.lpHookProc_LpkEditControl = 0 InitializeLpkHooks LpkHooksInfo End Sub Private Sub Form_Unload(Cancel As Integer) LpkHooksInfo.lpHookProc_LpkTabbedTextOut = 0 LpkHooksInfo.lpHookProc_LpkPSMTextOut = 0 LpkHooksInfo.lpHookProc_LpkDrawTextEx = DLLFunDre LpkHooksInfo.lpHookProc_LpkEditControl = 0 InitializeLpkHooks LpkHooksInfo FreeLibrary DLLhwnd End Sub 然后新建一个模块,在模块加入以下代码: Public Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long Public Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As Long, ByVal lpProcName As String) As Long Public Declare Function FreeLibrary Lib "kernel32" (ByVal hLibModule As Long) As Long ' ----------------未公开函数-------------------------------------- Public Declare Sub InitializeLpkHooks Lib "user32" (lpProcType As Any) Type LpkHooksSetting lpHookProc_LpkTabbedTextOut As Long lpHookProc_LpkPSMTextOut As Long lpHookProc_LpkDrawTextEx As Long lpHookProc_LpkEditControl As Long End Type ' ------------------------------- Public DLLhwnd As Long, DLLFunDre As Long Public LpkHooksInfo As LpkHooksSetting Public Function GetLocalProcAdress(ByVal lpProc As Long) As Long GetLocalProcAdress = lpProc End Function Function HookProc1(ByVal a1 As Long, ByVal a2 As Long, ByVal a3 As Long, ByVal a4 As Long, ByVal a5 As Long, ByVal a6 As Long, ByVal a7 As Long, ByVal a8 As Long, ByVal a9 As Long, ByVal a10 As Long) As Long HookProc1 = 0 End Function 运行一下看看,是不是窗体标题栏和按钮上的文字都没有了,因为我们把函数 LpkDrawTextEx替换成自己的函数HookProc1了。这个函数有10个参数,其几个好像是字符 串指针,似乎可以用来截获窗体要显示的文字,然后改成另一种语言的文字,我猜想,也许 就是这个用途吧。哈哈,纯属猜测。以上就是函数InitializeLpkHooks的用法了。 以上就是全部。 本文所有示例代码的下载地址是: http://www.pen88.com/download/imehook.rar 我的QQ511795070,欢迎交流。

7,759

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧