VB
文章平均质量分 66
lxcc
这个作者很懒,什么都没留下…
展开
-
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 · 1386 阅读 · 0 评论 -
复制出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 · 2045 阅读 · 0 评论 -
自动完成的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 · 903 阅读 · 0 评论 -
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 · 1632 阅读 · 0 评论 -
通过获取菜单的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 · 1056 阅读 · 0 评论 -
获取进程列表
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 · 918 阅读 · 0 评论