网上讨论编程实现XP风格已经很久了，但对于VB编程实现XP风格，却终没有一个完美的解决方案。笔者通过N个日夜的刻苦钻研终于揭开其中奥秘。下面分为三个方面与大家共享之。下载源代码一．用manifest文件实现XP风格正常情况下，在WindowsXP系统中，用VB6开发的应用程序只有窗口标题条具备XP风格，窗体上的按钮...

[阅读全文]

在vb中常常需要对用户的输入进行验证，常见的有Ip，日期，时间验证等，用通常的方式验证要写完善的话需要考虑各种情况，分析各种原因，书写大量代码，维护也很困难，正则表达式得的应用能帮助我们快速正确的解决问题，下面就以一Ip地址验证为例说明：前提：画面上有一输入框，及一按钮，要求按钮按下时说出输入框的输入是否合法：先写代码...

[阅读全文]

PublicFunctionIsValidIPAddress(ByValstrIPAddressAsString)AsBooleanOnErrorGoToHandlerDimvarAddressAsVariant,nAsLong,lCountAsLongvarAddress=Split(strIPAddress,"."...

[阅读全文]

有网友要GBK转到UTF8的代码，暂时没有找到，提供一个UTF-8转换GB2312的，对照学习一下吧'*/-'*/模块名:mUTF8'*/功能:UTF-8转换GB2312函数'*/示例:UTF2GB("%E9%83%BD%E5%B8%82%E6%83%85%E7%B7%A3%E6%98%9F%E5%BA%A7")'*/...

[阅读全文]

　　搜索引擎给我们带来了莫大便捷，但众多搜索引擎各有特色，于是我们经常希望输入一个关键词就能得到多个搜索引擎提供的结果。这方面的工具蛮多，即使自制也并不困难，今天就和我们一起用VB6.0自制一个具有自主产权且小巧玲珑的网络搜索器吧！1.开发步骤　　首先运行VB6.0建立一个“标准EXE“的工程文件，根据如图所示添加一个...

[阅读全文]

　　一、前言　　尽管VisualBasic并不是我最喜欢的开发工具，但我喜欢它简单而又丰富的库集。每当开发一个需要处理大量文本数据的应用程序时，需要具有拼写错误纠正功能，例如，微软的Word程序，当运行"拼写检查"时，将提供给你一个改正错误的机会（尽管是建议），它同时也提供了"查找替换"工具，用以进行用户定义的单词替换...

[阅读全文]

　　大家对金山毒霸、瑞星等杀毒软件的在线升级一定不陌生吧？它们可以利用在线升级程序进行在线升级，无需用户访问网站下载。这样的功能的确对于使用者来说是十分方便的。那么，您是否也想为您的软件添加方便的在线升级的功能呢？下面介绍一个第三方控件，能够帮你非常容易地就实现。　　bkDLControl控件一个可以快速实现在线下载的...

[阅读全文]

　　创建开始菜单快捷方式OptionExplicitPrivateSubCommand1_Click()CreateProgManGroupMe,"测试","test.grp"CreateProgManItemMe,"d:\ghost.exe","Ghost"CreateProgManItemMe,"d:\setupQ...

[阅读全文]

　　安装程序制作是做项目必不可少的一道工序，网上的安装软件很多，可以用五花八门来开形容了　　在此笔者介绍一个最简单的安装方法，就是用ＶＢ自带的打包程序进行打包，虽然比较普通，不过内部却有不少窍门，相信这一点知道的人可能不多吧！！（请大家一定看到最后，好戏在后头）好了，不废话了，开始进入正题。　　作者：崔占民Email:...

[阅读全文]

　　中文实名无非是用ie的iurlsearchhook，但是3721可不是这么玩的，它是使用apihook拦截iecommbox的消息，你根本就快不过他，嘿嘿，3721阴险吧，虽然我们不能实现全局钩子，在vb中也只能使用subclass子类技术，这个东西我们不玩，我们玩另外一种（说白了就是找个中间层，让它翻译成vb能够...

[阅读全文]

　　木马，也称特伊洛木马，名称源于古希腊的特伊洛马神话，是一种远程控制软件。现在网络上流行的木马软件基本都是客户机/服务器模式也就是所谓的C/S结构，目前也有一些开始向B/S结构转变，在这里暂且不对B/S结构进行详谈，本文主要介绍C/S结构其原理就是在本机直接启动运行的程序拥有与使用者相同的权限。因此如果能够启动服务器...

[阅读全文]

　　在局域网内共享调制解调器以及共享打印机都是我们非常熟悉的，而对于显示器和声卡的共享一般比较陌生。　　当你在进行教学、演示或展示时，也许你希望主控电脑上的画面同时也出现在其它电脑上；当你在跟踪调试程序时，你也许梦想过两台显示器能够同步，以便观看源代码时不破坏运行程序画面；还有，出于管理的目的，或许你需要远程监控其它电...

[阅读全文]

　　本文的目的在于令大家掌握"黑客"程序的基本原理，进一步提高警惕及防范。只要掌握了原理，你也能写出一个所谓的"黑客"程序。下面笔者带领大家用VB亲自编写一个远程控制程序。从而揭开它的神秘面纱。　　一、所用控件　　在程序中将使用Winsock控件。Winsock控件是一个ActiveX控件，使用TCP协议或UDP协议连...

[阅读全文]

十一月开始没有做什么项目，每天站在在办公室窗前静静地看着楼下的行人来来往往，然后等待着领工资的时刻。为了让智慧的大脑不因无所事是而僵硬，我决定找点伤脑筋的事情来维持脑袋的正常运转。经过考虑，决定用VB.net实现红外线文件传输的例程。　　一、OBEX协议浅析　　目前的红外线传输大都遵循OBEX协议，这是由微软、苹果、诺...

[阅读全文]

　　一、简介　　首先，本文假定你已经熟悉VB.NET和VisualStudio.NETWindows表单设计器。　　在开发定制Windows表单控件时，提供我们自己的下拉框类型编辑器来操作控件的属性常常是非常方便的。定制的类型编辑器不仅可以提供更为丰富的设计时刻体验，而且可能成为用户是否喜欢你的控件的决定因素。　　如果...

[阅读全文]

WinSock简介Socket（套接字）最初是由加利福尼亚大学Berkeley（伯克利）分校为UNIX操作系统开发的网络通信接口，随着UNIX的广泛使用，Socket成为当前最流行的网络通信应用程序接口之一。20世纪90年代初，由SunMicrosystems,JSB,FTPsoftware,Microdyne和Mic...

[阅读全文]

当CuteFTP、GetRight软件刚刚问世的时候，我觉得断点续传非常神奇，它们肯定采用了什么高深的技术，不过认真一研究，发现也没有什么特别了不起的。断点续传的实质就是能在下载时自由指定下载的启始位置。要实现FTP的断点续传，FTP服务器必须支持REST指令，这条指令在FTP协议文本RFC959中就已经定义了，不过它...

[阅读全文]

昨晚2:30的时候还没睡着，觉得有必要把vb编写多线程程序再次写一次；主要是以前忽略的细节和重要的环节；今天在公司打开一年多没用的vb，写了如下的代码；想写多线程的朋友可以调试一下看看，关于多线程的任务模式，同步和互斥，临界资源和临界区（文中提到）欢迎跟帖讨论；'请将该部分数据保存为FORM1.frm文件VERSION...

[阅读全文]

在“通用声明”代码区声明(窗体)模块级变量OptionExplicitDimlettersAsInteger'声明模块级变量，此变量计算字母个数DimspaceAsInteger'空格个数DimdigitAsInteger'数字个数DimothersAsInteger'其他字符个数输入cmdStat_Click()事件...

[阅读全文]

'用途：将十进制转化为二进制'输入：Dec(十进制数)'输入数据类型：Long'输出：DEC_to_BIN(二进制数)'输出数据类型：String'输入的最大数为2147483647,输出最大数为1111111111111111111111111111111(31个1)PublicFunctionDEC_to_BIN(...

[阅读全文]

　　在图像处理中，恐怕大家最熟悉的就是对于图像的亮度和对比度调整了。　　前面一定也有很多人写过这样的文章了，但是想把我的这个系列作一个完整的小结，我就再罗嗦一番了。　　还是以24位色图像为例子，每种色彩都可以用0-255，一共256种深度来表示。如果我们把它画在一个二维坐标上，正好是一条直线。　　比如我们将像素的色深作...

[阅读全文]

　　在VB中绘制实时曲线是比较难的，一般要应用第三方控件或是WindowsAPI函数来完成，但是如果你对实时曲线的要求不是很高，只要能表示出当前的一般情况的话，我们可以直接应用VB提供给我们的空间来完成。　　原则上讲，直接在Form里绘制曲线都是可以的，MSDN上面很多例程就是直接在Form里面绘制图形的，Form作为...

[阅读全文]

　　以下是在VB中截获WIN2000下TCP/IP包的源代码，在VB6.0,win2000下测试通过，需要注意的地方是，1.必须和本地的一块网卡,2.每次获取数据后必须有一段延时。3.数据取到之后放在Buff的数组中。4.把以下的代码放在一个模块中就可以了。''-代码开始--DeclareFunctionbindLib...

[阅读全文]

　　命令行为模式（CommandBehaviorpattern）允许你在表现层（presentationlayer）封装行为，使得采用自己喜欢的方法组织、跟踪、撤销和调用这些行为更加容易。　　在现实生活中，次序是难以控制的。一旦某种东西处于运动状态，我们就很难操作这种动作的离散部分。当然，在现实生活中是不可能撤销某种动...

[阅读全文]

　　想当年东方不败，黑木崖密室一战，仅凭一根绣花针独战四大高手，神出鬼没，堪称天下武林第一高手。若想成为VB里的东方不败，熟习VB《葵花宝典》，掌握VB指针技术，乃是不二的法门。　　欲练神功，引刀……，其实掌握VB指针技术，并不需要那么痛苦。因为说穿了，也就那么几招，再勤加练习，终可至神出鬼没之境。废话少说，让我们先从...

[阅读全文]

　　抛弃Windows的默认图标吧，让自己的程序所在的目录拥有个性化的FolderIcon！其实作起来简单得很，实际上只需要一个Desktop.ini文件即可，下面我会从两个方面说明。　　1.手动方式：　　　首先要在需要改变的文件夹中创建一个Desktop.ini文件，例子如下：[.ShellClassInfo]Con...

[阅读全文]

　　电影或电视中经常可见到一些字幕或图片的动态变化特技，在制作多媒体教学软件或广告宣传等多媒体演示文档时，也常常需要用到一些图文的动态变化效果。VB6.0作为Windows软件的强有力开发工具，在多媒体程序设计方面具有广阔的应用前景。本文讨论运用VB6.0的定时器并结合WindowsAPI函数实现图片或文字的动态缩放和...

[阅读全文]

　　很长时间以来，都认为只能通过绝对路径引用标准DLL中的函数。其实，你也可以用相对路径。很简单的，现在就尝试一下吧。　　1）绝对路径方法　　比如你的DLL文件位于c:\testDLL\debug\testDLL.dll　　一般来说，你需要在VB中作如下声明DeclareSubmytestLib"c:\testDLL\...

[阅读全文]

　　我认为的绿色软件就是免安装，短小精干的软件，目前的大部分共享软件都属于此类（或向绿色软件靠拢）。　　连比较大的phoshop软件也把一些注册项放到一个专门的注册文件（reg文件）里，到时重装的操作系统，只需把reg文件导入的注册表即可。此外比如金山软件，基本上都是不用安装，即可运行。　　目前绝大部分的共享软件都是用...

[阅读全文]

一、前言　　数据类型转换在编程中经常用到，VB6提供了一整套类型转换的函数。但是，在进行类型转换时，有时候仅仅依靠VB提供的函数是不能达到自己的目的的。因此，需要考虑用其他的方法来完成数据类型转换。本文仅谈VB6中字节数组和字符串的相互转换过程中应注意的问题及其解决办法。　　在VisualBasic中使用Byte数组主...

[阅读全文]

控件和源码下载　　QQ的界面大家都不陌生吧？CtListBar就是一个十分优秀的第三方控件，利用它我们可以很轻松的做出一个象QQ一样的界面。这节中，我们将通过对CtListBar控件基本使用方法的学习，参照一个实例，打造出一个很酷的QQ菜单。　　CtListBar控件包含了许多很有用的方法和属性。开始实例学习前，我们有...

[阅读全文]

　　BillMcCarthy在那篇《ModifyaVarialbe''sPointer》里用SafeArray实现多进程的数组共享内存，他考虑了数组变量的类型，因此可以兼容大部分数值类型的数组，是一个非常不错的东西。我这里不讲它实现的具体方法，只是想和大家一起看看SafeArray还能做什么。　　修改SafeArray...

[阅读全文]

VB精彩教程:数据异步加载　　异步加载是ADO的一种数据加载方式，主要由记录集的options参数来控制！　　　　ADO210.CHM中的格式：　　recordset.OpenSource,ActiveConnection,CursorType,LockType,Options　　　　Options　　可选。Long值...

[阅读全文]

Fori=0To31''P变换CodeP(i)=RetS(P(i))''产生L7,R7R7(i)=L6(i)XorCodeP(i)L7(i)=R6(i)Next''进行第8次迭代Fori=0To47CodeE(i)=R7(E(i))''经过E变换扩充，由32位变为48位CodeE(i)=CodeE(i)XorK9(i)...

[阅读全文]

''sCode待解密字串''sKey密钥字串PublicSubDES_Decode(ByRefsCode()AsByte,ByValsKeyAsString,ByRefbReturn()AsByte)AttributeDES_Decode.VB_Description="解密sCode:密文16进制串sKey:密钥文本...

[阅读全文]

Fori=0To31''P变换CodeP(i)=RetS(P(i))''产生L11,R11R11(i)=L10(i)XorCodeP(i)L11(i)=R10(i)Next''进行第12次迭代Fori=0To47CodeE(i)=R11(E(i))''经过E变换扩充，由32位变为48位CodeE(i)=CodeE(i)...

[阅读全文]

''sCode待加密字串''sKey密钥字串(前8位有效)PublicSubDES_Encode(ByRefsCode()AsByte,ByValsKeyAsString,ByRefbReturn()AsByte)AttributeDES_Encode.VB_Description="加密sCode:明文16进制串sK...

[阅读全文]

用VB实现DES加解密算法(一)用VB实现DES加解密算法(一)--定义''DES加解密算法实现vb版v1.0''''作者:agamem''日期:2003年08月27日''''''OptionExplicitPrivateDeclareSubCopyMemoryLib"kernel32"Alias"RtlMoveMem...

[阅读全文]

用VB实现程序的隐形在一些系统，为了特定目的，经常要求程序隐藏起来运行，例如DCS（集散控制系统）中的后台监控系统、木马控制程序、源码防拷贝等，以减少被发现、截杀和反汇编的风险。这种功能模块要求程序在运行期间不仅不会在桌面出现，也不允许被操作者从任务管理器列表中发现。程序隐形的原理对于一个隐形程序而言，最基本的要求是：...

[阅读全文]

OptionExplicitPublicDeclareFunctionChangeDisplaySettingsLib"user32.dll"Alias"ChangeDisplaySettingsA"(ByReflpDevModeAsDEVMODE,ByValdwFlagsAsLong)AsLongPublicDecl...

[阅读全文]

　　1、如果一行程序太长，能不能换行？　　VB的程序代码是允许换行书写的，只要在每次换行的最后一个字符加上换行字符“_”就可以了。例如：　　SubPicMove()　　Frm.Picture2.Left=Frm.Picture1.Left+_’加上换行符　　Frm.Picture1.Width　　EndSub　　2、如...

[阅读全文]

　　随着Windows3.0的推出，越来越多的开发商对这个图形界面的操作系统产生了兴趣，大量的Windows应用程序开始涌现。但是，Windows程序的开发相对于传统的DOS有很大的不同，开发者必须将很多精力放在开发GUI上，这让很多希望学习Windows开发的人员却步。1991年，微软公司展示了一个叫Thunder的...

[阅读全文]

　　刚开始的时候，我把系统改成可管理性较强的Windows2000（文件系统必须采用NTFS格式），建立两个同属User组的受限制帐户Game（用于游戏）和Study（学习帐户）并为他们设置相应文件、文件夹的安全权限，然后利用系统管理工具中“本地安全策略”（开启“当登录时间用完时自动注销用户”）结合netuser命令来...

[阅读全文]

当我们升级VB的版本时，有时候会因为以前程序中使用的变量名称或函数名称变成了保留字，而使程序跑起来完全不正常，例如：print：VB3时不是保留字，但到了VB4却变成了保留字。array：VB4时不是保留字，但到了VB5却变成了保留字。遇到这种情形，其实也很简单！只要在VB中叫出该工程，打开任何一个表单的程序码，选择【...

[阅读全文]

当您的APP愈来愈大时，或是您要维护别人开发的大系统时，是否曾经有过一种情形，程序中call了某一个Function/Subroutine，您要找寻这个Function/Subroutine，除了一个一个Module找之外，大部份的人都是使用【编辑功能表】的【搜寻】功能。其实您可以使用【Shift+F2】快捷键！很简单...

[阅读全文]

有时候您会同时写几个不同的程序，或因为某种原因，程序停了一段时间，当您下一次要再继续写时，已经忘了上次写到那里了，其实有一个很简单的方法，可以马上唤起您的记忆！在您在写程序中要停下时，先随便写一行注解，但是拿掉注解符号〈''〉后存档，下一次您载入工程后，马上使用【执行功能表】中的【全部编译后开始】，此时第一个错误的地方...

[阅读全文]

很多VB程序设计师抱怨为了存取VB6.0的Help，必须一直将Msdn光碟放在光碟机中，否则就必须安装680MB的Help到硬盘中！其实还有一个比较人性化的方法，就是在安装Msdn时，选择【自订安装】，然后只要选择VisualBasic文件(13792K)即可。如此您便可以直接由硬盘存取VB的相关主题，若您想看其他非V...

[阅读全文]

由于在设计Form上的控制项时，不一定会依照输入的顺序，在完成设计之后，我们通常会重设各控制项的TabIndex顺序，当Form上的控制项比较多时，设定起来相当麻烦，常常还会设错。有一个很简单又不容易出错的方法，是从画面上的右下角往左上角(方向是先向左再往上)，逐一的将控制项的TabIndex属性设成0。1：右手用滑鼠...

[阅读全文]

我们都知道Boolean这个资料形态只有True/False二种值，但是当我们要存到资料库时，我们常常会将它转成数值，您可以直接设定True=-1/False=0，若您必须使用函数转换，很可能会用Val()，但是小心，其结果是错的！您必须使用Abs()或CInt()，为什么呢？看结果就知道了！Val(True)结果是0...

[阅读全文]

当我们呼叫子程序(Subroutine)时，有二种方法：1、CallMyRoutine(参数)2、MyRoutine参数注意第二个方法不可以使用括号()，否则VB会误认为是运算子，本来应该是传址(Reference)，就会变成了传值(Value)！看看以下的例子就知道了：CallMyRoutine(Text1)正确意思...

[阅读全文]