Visual Basic 6.0
关注
分享
扫一扫
文章平均质量分 68
迈克揉索芙特
这个作者很懒，什么都没留下…
展开
-
vb6中用zlib.dll实现压缩/解压缩字节数组
(声明：魏滔序原创，转贴请注明出处。) Option ExplicitDeclaresPrivate Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (hpvDest As Any, hpvSource As Any, ByVal cbCopy As Long)Private Declare Function Compres原创 2006-04-13 17:03:00 · 7210 阅读 · 4 评论 -
用API关闭或打开显示器
(声明：魏滔序原创，转贴请注明出处。)Private Declare Function SendScreenMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As LongPrivate Const MONIT原创 2006-11-22 19:32:00 · 2785 阅读 · 1 评论 -
最新Viking(维金)病毒专杀工具，纯VB编写。(升级版)
维金的泛滥愈演愈烈,10月份发布了几个专杀工具帮助千百万计的用户脱离苦海,近日又接到了很多用户发来的维金病毒报告邮件,没想到这个病毒比原来更猖獗了.原来的工具源码在一次意外中丢失,这次又狠下心重新编写了,也加入了最新的维金病毒特征码.请有需要的广大的用户下载使用,更希望能把在使用时发现的问题反馈给我们,或到下面的"支持博客"中留言. 该工具可以有效解除被感染的exe中的病毒并还原ex原创 2006-11-29 13:06:00 · 6311 阅读 · 1 评论 -
支持多曲线的历史曲线控件源码
(声明：魏滔序原创，转贴请注明出处。)早就想亲自DIY一个类似Windwos任务管理器中的CPU和内存的曲线图，因时间关系直到现在才如愿以偿。虽然做的粗糙点，但勉强说的过去。功能：可以设置是否显示值刻度、网格、曲线、时间刻度等，可以定义背景颜色、网格颜色、刻度颜色、曲线颜色等，可以设置网格大小、刻度间隔、曲线进展长度，最重要的是可以支持多曲线运行。名称：GraphVERSION 5.00Beg原创 2007-07-27 16:41:00 · 5557 阅读 · 5 评论 -
绿软必备：ActiveXDLL免注册调用的方法(改良自阿国哥的源码)
(声明：魏滔序原创，转贴请注明出处。)阿国哥的代码(找到链接后再补上)，我稍微改良了一下，做绿色软件的朋友肯定用的到。IDE下可以引用那个dll使用。编译后可以在未注册dll的计算机上正常工作了。使用方法：Dim pDll As Long 记录Dll，用来最后完美释放Dim Update As Update.Handle 要实例化的对象Set Update = LoadObjectByNa原创 2007-09-01 09:01:00 · 6928 阅读 · 7 评论 -
首发：变态VB之HookAPI(陈辉作品)
(声明：魏滔序原创，转贴请注明出处。) 标题的名字本身就变态，因为VB做HookAPI的确让人难以理解，没两把刷子的人也不敢轻易尝试。但陈辉兄弟写出了目前最简单的Hook代码，初步测试效果还不错。 早期研究过憨豆豆(超级绿豆)的版本，也是一部惊世之作。现在，VB的Fans们又多了一项选择。 这个HookAPI，在注入的目标为VB编译的EXE或Explorer原创 2007-09-18 14:57:00 · 6285 阅读 · 4 评论 -
VB6实现枚举进程所拥有的特权
特权嘛，当然就是特殊权限了。至于什么是进程的特殊权限，请参考MSDN。提升进程权限的方法请参考笔者的《Win32汇编实现提升进程Debug权限的两种方法》一文，可以很容易修改成提供进程其他权限的程序。本文的内容是枚举进程中所有的特殊权限，以数组的方式返回权限值。每个权限值具体代表了什么，从变量的名称可考究一二，不明白的地方还是参考MSDN。(声明：魏滔序原创，转贴请注明出处。)代码及示例如下：原创 2008-03-07 12:55:00 · 3027 阅读 · 2 评论 -
VB6实现枚举进程所拥有的特权(增强版)
原文参见：http://blog.youkuaiyun.com/Modest/archive/2008/03/07/2156291.aspx 本文在原文基础上增加了两个转换函数LookupPrivilegeName和LookupPrivilegeDisplayName，从而可以完美的输出权限的名称和权限的描述。(声明：魏滔序原创，转贴请注明出处。)::::::::::::::::::::::::::原创 2008-03-10 10:02:00 · 2370 阅读 · 3 评论 -
VB6中使用32位图标
看到带Alpha通道的32位图标那绚丽性感的外表，对于无法逃离“爱美之心人皆有之”这句俗话的人(包括我)早就垂涎三尺了。感谢微软给我们选择美丽的机会，能让我们自己的软件也在外表上成为让别人倾慕甚至以身相许的筹码。想起来容易，做起来才发现整容工作原来还真没那么简单。对于饱读“有志者事竟成,破釜沉舟百二秦关终属楚......”的我......嗯嗯嗯，夸张的天昏地暗、飞沙走石...... 终于皇原创 2008-05-06 11:27:00 · 4901 阅读 · 18 评论 -
很久以前收集的一个替换exe图标的源码
很久以前收集的一个替换exe图标的源码，来源已经无法考证。标准模块1Option ExplicitType DIB_HEADER Size As Long Width As Long Height As Long Planes As Integer Bitcount As Integer Reserv原创 2008-07-19 19:14:00 · 2250 阅读 · 0 评论 -
突破：VB6中使用安全多线程
旧瓶装新酒，老树开新花。 遥想当年研究vb6中的多线程，为求解而网际上四处奔波、八方碰壁，程序的一次次崩溃无情的摧残和消磨着我的耐心、精力和时间，被折磨的简直没有人样。匆匆数年，这个问题就像邻家女孩般始终在心里悄悄的占据着一席之地。时至今日忆起往昔，独怆然而泣下之老泪纵横有过之而无不及。唉，往事不堪回首...... 说书唱戏劝人芳，三条大道走中央，善恶到头终有报，人间正道是沧桑原创 2008-05-08 15:56:00 · 11704 阅读 · 39 评论 -
VB6中使用32位图标(第二版)
第一版参见：http://blog.youkuaiyun.com/Modest/archive/2008/05/06/2399774.aspx本版添加了hIcon属性和SetFormIcon方法，顾名思义SetFormIcon就是实现vb6窗体的32位Icon应用。实现起来非常简单，发一个消息足矣。hIcon属性会根据图标索引返回图标句柄，用这个句柄还可以实现32位Icon在托盘中的美化应用。(声明：魏滔原创 2008-05-22 11:12:00 · 7961 阅读 · 12 评论 -
通过URL从Temporary Internet Files得到本地文件路径的函数
通过URL从Temporary Internet Files得到本地文件路径的函数(声明：魏滔序原创，转贴请注明出处。) Option ExplicitPrivate Declare Function GetUrlCacheEntryInfo Lib "wininet.dll" Alias "GetUrlCacheEntryInfoW" (ByVal szUrlName As Lo原创 2008-06-04 14:21:00 · 2216 阅读 · 0 评论 -
vb6内嵌汇编实现图像快速对比
vb6内嵌汇编实现图像快速对比，1024x768的两个图像对比最快仅用时4ms (XP/2.4G/512M)。(声明：魏滔序原创，转贴请注明出处。) ;:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: vb6内嵌汇编实现图像快速对比 Programmed b原创 2008-06-08 11:36:00 · 4723 阅读 · 8 评论 -
发布VB6安全多线程组件MT32.dll(1.0.0.2)
相关介绍：http://blog.youkuaiyun.com/Modest/archive/2008/05/08/2416967.aspx下载地址：http://download.youkuaiyun.com/source/925790原创 2008-12-30 17:54:00 · 3746 阅读 · 4 评论 -
VB6结合GDI+实现内存(Stream)压缩/解压缩JPG(JPEG)图像
优快云论坛vb版中有一个讨论内存压缩JPEG的帖子，在此我贴出解决代码。代码原理原本就简单，所以注释也很简单。希望能帮助到苦苦思索的朋友们。(魏滔序原创，转帖请注明出处。) 首先要下载一个IStream库，用该库可以减少代码量，如果直接全部用API也未尝不可。IStream下载地址：IStream.zip 下面是代码，可以贴在一个模块中：Option Explic原创 2009-08-31 22:58:00 · 17032 阅读 · 9 评论 -
用API使计算机休眠或待机
(声明：魏滔序原创，转贴请注明出处。)Private Declare Function SetSuspendState Lib "Powrprof" (ByVal Hibernate As Boolean, ByVal ForceCritical As Boolean, ByVal DisableWakeEvent As Boolean) As Boolean示例:SetSuspendState原创 2006-11-22 19:30:00 · 3846 阅读 · 1 评论 -
对MSDN中关于ToolboxBitmap属性补充
(声明：魏滔序原创，转贴请注明出处。)MSDN中的描述如下：返回或设置位图，作为工具箱中的用图片表示。工具箱中位图的空间大小为 16x15 像素；在需要时，将把该属性指定的位图按这个尺寸缩放。在创建控件时，ToolboxBitmap 属性可读可写，在控件运行时，该属性不可用。说明：不要把图标赋值给 ToolboxBitmap 属性。图标不能很好地缩放到工具箱位图尺寸。当用户将鼠标指针放在工原创 2006-11-01 18:53:00 · 2832 阅读 · 1 评论 -
VB中实现GIF嵌入到RichTextBox
(声明：魏滔序原创，转贴请注明出处。) 实际上还可以嵌入其他组件，比如Windows Media Player等，下面以比较成熟的QQ的ImageOle为例。需要组件：ImageOle.dll 在QQ的目录下找，如果非XP系统则还需要GdiPlus.dll。OleLib.tlb 下载地址：http://www.mvps.org/emorcillo/download/vb6/tl原创 2006-04-12 19:38:00 · 3842 阅读 · 0 评论 -
用金山词霸的dll文件实现屏幕取词
(声明：魏滔序原创，转贴请注明出处。) 引用XdictGrb.dll，自己到词霸目录找。严重注意：要金山词霸2005的版本中的dll，2003版的我未测试成功。新建项目，在新窗体中添加3个Label，名称默认。窗体中代码如下：Option ExplicitImplements IXDictGrabSinkPrivate gp As GrabProxyPrivate Sub Form_Loa原创 2006-04-29 10:43:00 · 3895 阅读 · 7 评论 -
用CDO保存网页到MHT文件
(声明：魏滔序原创，转贴请注明出处。) 引用：Microsoft CDO For Windows 2000 Library 和 Microsoft ActiveX Data Objects 2.x Library代码：Private Function SavePageToMHT(ByVal URL As String, ByVal FileName As String) As Boolean原创 2006-04-29 11:00:00 · 2521 阅读 · 4 评论 -
我的组件之MD5Lib.dll(MD5编码效率奇高)
(声明：魏滔序原创，转贴请注明出处。) 我的组件之MD5Lib.dll(MD5编码效率奇高),可以引用ActiveX DLL的方法使用，也可以以动态连接库的形式使用。下载地址：http://www.chenoe.com/developer/library/md5lib.dll示例代码：Option ExplicitPrivate Enum MD5BitConstants MD5_16B原创 2006-10-08 18:18:00 · 3107 阅读 · 1 评论 -
最新Viking(维金)病毒专杀工具，纯VB编写。 (代码续)
(声明：魏滔序原创，转贴请注明出处。) 原文地址：http://blog.youkuaiyun.com/Modest/archive/2006/10/11/1330505.aspx?Pending=true 下面贴出本工具中用到的关闭本地计算机共享目录的代码(与其相对应的创建共享的代码也整理出来一同贴上)，实际上用这个代码还可以关闭网络中其他计算机的共享目录，但原创 2006-10-12 09:29:00 · 5036 阅读 · 0 评论 -
我的组件之Base64.dll(Base64编/解码效率奇高)
(声明：魏滔序原创，转贴请注明出处。) 我的组件之Base64.dll(Base64编/解码效率奇高),可以引用ActiveX DLL的方法使用，也可以以动态连接库的形式使用。下载地址：http://www.chenoe.com/developer/library/base64.dll示例代码：Option ExplicitPrivate Declare Sub Base64Encode L原创 2006-10-08 18:39:00 · 4940 阅读 · 2 评论 -
最新Viking(维金)病毒专杀工具，纯VB编写。
(声明：魏滔序原创，转贴请注明出处。) Viking的肆虐让很多受害者忍无可忍，更可气的是专业软件公司提供的专杀工具竟然无法彻底清除。 无奈之余自己动手写了一个，请需要的朋友到这里下载：http://www.chenoe.com 该工具可以有效解除被感染的exe中的病毒并还原exe文件，网上的大部分工具是直接删除exe文件。另外，本工具还具有Vikin原创 2006-10-11 17:47:00 · 12840 阅读 · 79 评论 -
通过IEmptyVolumeCacheCallBack接口清理IE缓存的类
(声明：魏滔序原创，转贴请注明出处。) 在IE缓存目录中积累着很多的文件， 这些文件虽然可以提高浏览旧网页的速度，但是对磁盘空间的占用也与时俱进。对于爱“干净”的人，总觉得有点得不偿失。下面就贴出清理缓存的源码，清理缓存的方法有很多，这里介绍的是通过IEmptyVolumeCacheCallBack接口实现的例子。新建工程，引用 olelib.tlb (可以从ht原创 2006-10-17 17:01:00 · 3622 阅读 · 3 评论 -
判断URL是否在IE缓存中，并仅删除该URL。
(声明：魏滔序原创，转贴请注明出处。) 判断URL是否在IE缓存中，并仅删除该URL，源码如下：Option ExplicitPrivate Declare Function GetUrlCacheEntryInfo Lib "wininet.dll" Alias "GetUrlCacheEntryInfoA" (ByVal sUrlName As String, lpCacheEntryIn原创 2006-10-17 17:31:00 · 2998 阅读 · 1 评论 -
实用的内存块操作类(vb源码)
(声明：魏滔序原创，转贴请注明出处。) Option ExplicitPrivate Declare Function VirtualAlloc Lib "kernel32" (ByVal lpAddress As Long, ByVal dwSize As Long, ByVal flAllocationType As Long, ByVal flProtect As Long) As Long原创 2006-10-20 15:22:00 · 2633 阅读 · 1 评论 -
拨号、断网、枚举连接名称，判断是否在线、连接方式。
(声明：魏滔序原创，转贴请注明出处。) Option Explicit拨号/断网Private Declare Function InternetDial Lib "wininet.dll" (ByVal hwndParent As Long, ByVal lpszConnectoid As String, ByVal dwFlags As Long, lpdwConnection As Lon原创 2006-10-20 14:44:00 · 6069 阅读 · 4 评论 -
VB6实现键盘鼠标全局Hook
(声明：魏滔序原创，转贴请注明出处。) 标准模块(mHook)：Option ExplicitPrivate Declare Sub CopyMemory Lib "kernel32.dll" Alias "RtlMoveMemory" (ByRef Destination As Any, ByRef Source As Any, ByVal Length As Long)Private De原创 2006-10-21 16:36:00 · 6153 阅读 · 7 评论 -
VB6中判断用户是否按下了InputBox的取消按钮
(声明：魏滔序原创，转贴请注明出处。)Private Sub Command1_Click() Dim str As String Dim Cancel As Boolean str = InputBox("") Cancel = Not CBool(StrPtr(str)) MsgBox CancelEnd Sub原创 2006-10-21 17:51:00 · 4089 阅读 · 0 评论 -
可替代VB自带的Timer控件的Timer类
(声明：魏滔序原创，转贴请注明出处。) 用这个类可以替代VB自带的Timer控件，这样就不用在无窗体的项目中仅为了使用Timer而多加一个窗体了。我一般用在ActiveX exe中用来分离系统控制权，用Timer的好处是避免控制权死锁，这样也就模拟出了多线程(实际上是多进程)，能给用户更好的体验。代码如下： 想直接使用的请到这里下载：http://www原创 2006-10-23 09:25:00 · 5271 阅读 · 6 评论 -
CLSID与ProgID彼此间相互转换
(声明：魏滔序原创，转贴请注明出处。)Option ExplicitPrivate Type UUID Data1 As Long Data2 As Integer Data3 As Integer Data4(7) As ByteEnd TypePrivate Declare Function CLSIDFromProgID Lib "ole32.dll" (ByVa原创 2006-11-01 18:56:00 · 3360 阅读 · 1 评论 -
快速加载文件到流对象
(声明：魏滔序原创，转贴请注明出处。)引用olelib.tlb (可以从http://www.mvps.org/emorcillo/download/vb6/tl_ole.zip下载) Global Memory FlagsPrivate Const GMEM_MOVEABLE = &H2Private Const GMEM_ZEROINIT = &H40Private Const GENERI原创 2006-11-01 19:03:00 · 2022 阅读 · 1 评论 -
2009年9月25日微软发布VB6-SP6b
概述Service Pack 6 for Visual Basic 6.0 提供了对 Visual Basic 6.0 所做的最新更新。建议所有的 Visual Basic 6.0 用户都使用这个 Service Pack。详细信息及下载地址：http://www.microsoft.com/downloads/details.aspx?FamilyID=9ef9bf70-dfe1-4原创 2009-09-27 22:46:00 · 7558 阅读 · 2 评论