- 博客(7)
- 收藏
- 关注
RSS订阅原创 获取进程列表
Option Explicit OnPrivate Const MAX_PATH As Integer = 260Private Declare Function CreateToolhelpSnapshot Lib "kernel32" Alias "CreateToolhelp32Snapshot" (ByVal lFlags As Long, ByVal lProcessID As Lo
2006-09-05 18:55:00
938
原创 API-PolylineTo绘制曲线
Option ExplicitDim X As Double Private Type POINTAPI X As Long y As Long End TypePrivate Declare Function PolylineTo Lib "gdi32" (ByVal hdc As Long, ByVal lppt As POINTAPI, ByV
2006-09-05 18:28:00
1650
原创 通过获取菜单的Rect来映射相关的菜单事件
建立一个menu1的菜单,并建立menu1的子菜单menu2 Private Type POINTAPI x As Long y As Long End Type Private Type RECT Left As Long Top As Long Right As Long
2006-09-05 18:24:00
1086
原创 自动完成的TextBox,类似Windows的运行框
Option Explicit OnPublic Enum SHAutoCompleteFlags SHACF_DEFAULT = &H0 SHACF_FILESYSTEM = &H1 SHACF_URLHISTORY = &H2 SHACF_URLMRU = &H4 SHACF_USETAB = &H8 SHACF_URLALL = (SHACF_URLH
2006-09-05 18:13:00
917
原创 复制出IE临时文件夹内的SWF文件
复制出IE临时文件夹内的SWF文件,也可以是其他类型的文件,这里只是简单演示用FSO遍历文件夹引用Microsoft Scripting RunTimeDim m_objFSO As New FileSystemObject 定义文件系统对象Private Declare Function SHGetSpecialFolderLocation Lib "Shell32" (ByVal
2004-10-23 22:35:00
2063
原创 API操作其他程序中的按钮
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPrivate Declare Function FindWindowEx Lib "user32" Alias "FindWi
2004-10-20 23:14:00
1409
2
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人