[资料收集]关于AnimateWindow函数
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 （ &H1 ） '从左到右打开窗口 AW_HOR_NEGATIVE （ &H2 ） '从右到左打开窗口 AW_VER_POSIT...
清空回收站API
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
[资料收集]在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...
Ini文件的操作
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)
[原创]QQ尾巴模拟
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 = &H2 Private Const TH32CS_SNAPheaplist = &H1 Private Const TH32CS_SNAPthread = &H4 Private Const TH32CS_SNAPmodule = &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...
[收集资料]关于EFS
众所周知windows9x系统安全不佳。Microsoft从windows2000开始引入了加密文件系统（EFS）。EFS能够以加密的形式把数据存储在硬盘中。一旦用户加密了一个文件，文件就会以加密的形式存在，只要该文件还存储在硬盘中。 1.EFS的特性 它在后台运行并且对用户和应用程序是透明。它仅允许认证的用户访问加密的文件。EFS自动为用户解密文件并且在文件存储的时候为文件自动加密。受权的数据恢复代理可以其他用户加密的数据。数据恢复代理是一个被设置为用于恢复数据的用户帐号。 EFS文件在本地或网络上都是保持加密状态的。文件可以在离线文件夹中被加密。加密的文件和文件夹是能够被颜色标示出来...
让一张CD盘刻下WinXP镜像
我的机器硬盘很小(只有20G),要把1G多的系统镜像放在硬盘上我很心疼,于是我就想把这个镜像刻到光盘上,由于普通的CD盘最多也就750MB,为了减小体积我将所有的软件全卸了然后再做了系统镜像,而且使用了ghost的高度压缩,做完后一看我的天竟然800多兆,这可咋办?突然我想起了windows\system32\下的 dllcache文件夹,这个文件夹中存放了许多动态连接库文件和exe文件,这些文件是系统备份的,当系统中的某系统文件被删除了,windows文件保护会从dllcache中恢复这个文件.这个系统文件备份文件夹竟有350MB,如果我们把它删除了就能节省好多空间.于是我使用ghos...
如何取消快捷方式上的小箭头?
如何取消快捷方式上的小箭头 ?（1）启动注册表编辑器，然后依次展开如下分支：“HKEY_CLASSES_ROOT\lnkfile”； （2）删除“lnkfile”子项中的“IsShortcut”字符串值项，因为“IsShortcut”项是用来控制是否显示普通应用程序和数据文件快捷方式中小箭头的； （3）再依次展开如下分支：“HKEY_CLASSES_ROOT \piffile”； （4）删除“piffile”子项中的“IsShortcut”字符串值项，IsShortcut值项用来控制是否显示MS_DOS程序快捷方式的小箭头； （5）退出注册表编辑器，这时快捷方式图标上的小箭头就消失不见了
在ADO中如何取得数据库中的各表名/
ADO中的Connection对象有一个OpenSchema的方法可以从数据库中获得数据库的相关信息：数据表名，表类型。如下代码：
Dim conn1 as ADODB.ConnectionDim infor as ADODB.RecordsetDim str as stringSet conn1 = New ADODB.Connectionconn1.open "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data
Source=c:\exam.mdb"Set infor =conn1.OpenSch...
文章归档
最新评论
- redice：附件传不上来，源代码下载地址：http://bbs.710071.cn/attachment....
- redice：C实现的 有很多呀 例如著名的socket管道木马
- vfdff：由没有c方式实现的<br /> VB看不懂
- vfdff：<div class="quote"><span class="q"><b>redice</b...
- redice：代码粘上去有点乱，如果哪位朋友需要 可以E-mail:redice@163.com 索取
- laybor：Wait Mutex后时其他线程不是像critical一样被锁在外面吗？Event与Mutex...