资源文件相关函数 1 LoadResString函数函数功能：从资源文件中加载文本字符串资源格式： s=LoadResString(文本编号)2 LoadResPicture函数函数功能:用以从资源 (.res) 文件装载位图、图标或光标格式：LoadResPicture(index, format) 用于 format 的设置值有： 常数 值 描述 vbResBitmap 位图 0 位图资源 vbResIcon 图标 1 图标资源 vbResCursor 2 光标资源 3 LoadResData函数函数功能:用以从资源...

'约束用户输入的信息:只能为正整数(放在Text_Change中)Public Sub checkinput(obj As TextBox) Dim i As Integer If Left(obj.Text, 1) = "0" Then obj.Text = "" MsgBox "仅能输入正整数!", 0, "注意" Exit Sub End If For i = 1 To Len(obj.Text) If Asc(Mid(obj.Text, i)) > 57 Or Asc(Mid(obj.Text, i)) < 48 Then...

'************************************API函数声明****************************************************Private Declare ReleaseCapture Lib "user32" () As LongPrivate Declare SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As L...

'**********************************************关机，重启，注销的实现*************************************'资料收集:轻风工作室RedIce'**********************************************API函数声明************************************************ Public Declare GetCurrentProcess Lib "kernel32" () As Long Public Declare Open...

Private Declare AnimateWindow Lib "user32" (ByVal hwnd As Long, ByVal dwTime As Long, ByVal dwFlags As Long) As Long其中：　　　hwnd只对Form有效，其他像Picture1都无法产生效果。　　　dwTime是动画持续的时间，默认为200。　　　dwFlags可取以下值：　　　　　AW_HOR_POSITIVE （ &amp;H1 ） '从左到右打开窗口　　　　　AW_HOR_NEGATIVE （ &amp;H2 ） '从右到左打开窗口　　　　　AW_VER_POSIT...

Private Const SHERB_NOCONFIRMATION = 1 '执行清空操作时不会给出提示信息Private Const SHERB_NOSOUND = 4 '执行清空操作时不播放提示音乐 Private Declare SHEmptyRecycleBin Lib "Shell32" Alias "SHEmptyRecycleBinA" (ByVal HWND As Long, ByVal pszRootPath As String, ByVal dwFlags As Long) As Long Private Sub Comman...

[资料收集]在VB如何设定Hook Declare SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" _ (ByVal idHook As Long, _ ByVal lpfn As Long, _ ByVal hmod As Long, _ ByVal dwThreadId As Long) As Long idHook代表是何种Hook，有以下几种 Public Const WH_CALLWNDPROC = 4 Public Const WH_CALL...

Private Declare Writeini Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As String, ByVal lpFileName As String) As LongPrivate Declare Getini Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As ...

Option ExplicitPrivate Declare SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As LongPrivate Declare GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As LongPrivate Declar...

下面为灰度按钮克星的主要代码： Private Sub GoEnabled(hwndParent As Long) Dim hwndChild As Long hwndChild = GetWindow(hwndParent, GW_CHILD Or GW_HWNDFIRST) '获得子窗体的句柄 Do While hwndChild <> 0 Call EnableWindow(hwndChild, 0) '设置为不可用 GoEnabled hwndChild '递归查找出子窗体 hw...

Option ExplicitPrivate Declare GetCursorPos Lib "user32" (lpPoint As POINTAPI) As LongPrivate Declare WindowFromPoint Lib "user32" (ByVal xPoint As Long, ByVal yPoint As Long) As LongPrivate Declare GetParent Lib "user32" (ByVal hwnd As Long) As Long Private Type POINTAPI x As Long y...

下面为“调出目录选择对话框”的模块 '调出目录选择对话框'轻风工作室整理'**********************************************************API函数声明**********************************************Private Declare Sub CoTaskMemFree Lib "ole32.dll" (ByVal hMem As Long)Private Declare lstrcat Lib "kernel32" Alias "lstrcatA" (ByVal lpString1 A...

Visual Basic 6.0 精简版 VB6.0常用控件+控件信息注册工具 Spy++ API函数查询工具 API在线查询 在线翻译 各种数据库字符串连接方式 MSND For VB CODE PROJECT (注：解压密码www.bc-cn.net)

Private Declare Function GetForegroundWindow Lib "user32" () As LongPrivate Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As LongPrivate Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal h...

消息号 十六进制 十进制 消息说明WM_NULL 0 0 WM_CREATE 1 1 应用程序创建一个窗口WM_DESTROY? 2 2 一个窗口被销毁WM_MOVE 3 3 移动一个窗口WM_SIZE 5 5 改变一个窗口的大小WM_ACTIVATE 6 6 一个窗口被激活或失去激活状态WM_SETFOCUS 7 7 获得焦点后WM_KILLFOCUS 8 8 失去焦点WM_ENABLE A 10 改变enable状态WM_SETREDRAW B 11 设置窗口是否能重画??WM_SETTEXT C 12 应用程序发送此消息来设置一个窗口的文本WM_GETTEXT D 13 应用程序发...

键盘键与虚拟键码对照表 字母和数字键 数字小键盘的键 功能键 其它键 键 键码 键 键码 键 键码 键 键码 A 65 0 96 F1 112 Backspace 8 B 66 1 97 F2 113 Tab 9 C 67 2 98 F3 114 Clear 12 D 68 3 99 F4 115 Enter 13 E 69 4 100 F5 116 Shift...

Option Explicit Private Const TH32CS_SNAPPROCESS = &amp;H2 Private Const TH32CS_SNAPheaplist = &amp;H1 Private Const TH32CS_SNAPthread = &amp;H4 Private Const TH32CS_SNAPmodule = &amp;H8 Private Const TH32CS_SNAPall = TH32CS_SNAPPROCESS + TH32CS_SNAPheaplist + TH32CS_SNAPthread + TH32CS_SNAPmodul...

= = = = = = = = = = = = = = = = = = = = PostThreadMessage 函数功能：该函数将一个消息放入（寄送）到指定线程的消息队列里，不等待线程处理消息就返回。 函数原型：BOOL PostThreadMessage（DWORD idThread，UINT Msg，WPARAM wParam，LPARAM IParam）； 参数 idThread：其消息将被寄送的线程的线程标识符。如果线程没有消息队列，此函数将失败。当线程第一次调用一个Win 32 USER或GDI函数时，系统创建线程的消息队列。要得到更多的信息，参见备...

消息和消息总队列函数(Message and Message Queue) = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = BroadcastSystemMessage函数功能：该函数发送消息给指定的接受者。接受者可以是一个应用程序、安装驱动器、网络驱动器、系统级设备驱动器或这些系统组件的组合。 函数原型：long BroadcastSystemMessage（DWORD dwFIags，L...

众所周知windows9x系统安全不佳。Microsoft从windows2000开始引入了加密文件系统（EFS）。EFS能够以加密的形式把数据存储在硬盘中。一旦用户加密了一个文件，文件就会以加密的形式存在，只要该文件还存储在硬盘中。 1.EFS的特性 它在后台运行并且对用户和应用程序是透明。它仅允许认证的用户访问加密的文件。EFS自动为用户解密文件并且在文件存储的时候为文件自动加密。受权的数据恢复代理可以其他用户加密的数据。数据恢复代理是一个被设置为用于恢复数据的用户帐号。 EFS文件在本地或网络上都是保持加密状态的。文件可以在离线文件夹中被加密。加密的文件和文件夹是能够被颜色标示出来...