VB简单实现防止文件被改写
最近在写的一个小程序中有个配置文件，这个文件对整个程序来说是至关重要的，如果它被删除或者改写的话，整个程序无法运行，或者运行后无法关闭。所以我一直在寻找如果让手工无法改写文件的方法。
对于“删除”来说是很容易解决的，程序中查找配置文件的路径，若为空则创建，并给些默认值。VB的示例代码如下：
FileName = ...
Basic求10000以内的完美数
完全数（Perfect number），又称完美数或完备数，是一些特殊的自然数。它所有的真因子（即除了自身以外的约数）的和（即因子函数），恰好等于它本身。
Dim a as Integer,b as Integer,c as Integer
For a = 1 To 10000
c = 0
For b = 1 To a \ 2
If a Mod b = 0 Then c = c + b
Next b
If a = c Then Print Str(a)
Next a ...
VB6.0 支持鼠标滚轮教程
操作步骤如下：
1、下载
http://download.microsoft.com/download/e/f/b/efb39198-7c59-4ace-a5c4-8f0f88e00d34/vb6mousewheel.exe
这是一个自解压的包，其中包含VB6IDEMouseWheelAddin.dll和其源程序，将其解压到桌面即可。
2、选择直接使用VB6IDEMouseWheelAddin.dll，或者无聊地将源程序自行编译出一个新的VB6IDE ...
VB语言使用ADO连接、操作SQLServer数据库教程
几年前学过的VB几乎忘光了，这几天复习了下。VB连接ADO数据库并不是非常难。
连接第一步（要仔细看）
对于小白来讲，这里的教程最详细，连接ADO数据库第一步，要添加什么部件呢？全称是Microsoft ADO Data Control 6.0 (SP6) (OLEDB) 部件。
在Microsoft ADO Data Control 6.0 (SP6) (OLEDB)部件里有一个名叫：Adodc数据控 ...
VB使用shell函数打开外部exe程序的实现方法
本文实例主要实现了VB调用外部exe程序来运行的功能，这里主要是使用shell函数来执行，shell函数主要用来打开一个外部的exe可执行文件，例如，在sub模块内：Shell "notepad", vbNormalFocus，代表以正常模式运行记事本程序，vbNormalFocus是shell的参数，意思是正常模式，当然它还有vbMaximizedFocus最大化模式,vbMinimizedF ...
VB6实现连接Access数据库的ADODB代码实现方法
本文实例讲述了使用ADODB.Connection连接access数据库的方法，驱动类型版本为：Microsoft.Jet.OLEDB.4.0。在VB的数据库操作中，连接数据库是第一步，也是最基本的，本文所述的这个例子，对于初学者学习如何在VB中连接Access数据库有着很好的借鉴参考价值。
具体实现代码如下：
VERSION 5.00
Begin VB.Form 操作数据库
...
VB的TextBox文本框实现垂直居中显示的方法
本文实例代码可以实现让VB的TextBox文本框垂直居中显示效果。此处需要注意：Form_Load()窗体代码中的多行属性设置必须为真，即Text1.MultiLine = True，该属性为只读属性，请在设计时修改，换行会被之后的代码屏蔽，不想屏蔽可自行修改，调用此函数就好了。
具体的功能代码如下：
'===================================== ...
VB的32位程序在64位系统中出现文件和注册表自动转向的解决方法
通常用VB 写的程序在32位系统上可以正常的运行，但到了64位系统中虽然可以运行但是无法修改OEM信息。经过查找原因可以发现，当我们在访问文件夹"SYSTEM32"的时候系统会自动转向到文件夹"SYSWOW64"下，当我们在访问某些注册表键值的时候，和文件转向类似，系统也会自动地把程序的访问转向到Wow6432Node下面。
先来谈谈文件系 ...
VB实现鼠标绘图实例代码
本文所述为VB实现鼠标绘图的实例，该实例实现线条颜色和线宽可自设，当按下鼠标按键时绘图开始并记录最初的起点，如果不是处在绘图状态则退出该过程，如果处在绘图状态则从起点到目前鼠标所在点绘制直线，然后将当前鼠标所在点作为新的起点，当释放鼠标按键时绘图结束。
具体的功能代码如下：
VERSION 5.00
Object = "{F9 ...
VB实现屏蔽文本框右键菜单的复制、粘贴等功能的方法
本文实例讲述了VB屏蔽文本框中的右键菜单、复制、粘贴等功能的实现方法。该功能就是禁止文本框的右键功能，造成点击鼠标右键无效。是非常常见的一类实用功能。
具体的功能模块代码如下：
'==========================================================
'| 模 块 名 | TextBoxDisableAbility
'| 说 明 | 禁止文本框的功能 ...
VB使用XMLHTTP实现Post与Get的方法
本文所述为visual basic6.0的一个模块方法，是使用XMLHTTP实现Post与Get功能，虽然是一个老代码，但是可以替代Inet控件，实现数据通讯。很值得学习借鉴一下。
主要模块代码如下：
'==========================================================
'| 模 块 名 | XMLHTTP
'| 说 明 | 替代Inet控件，实现数据通讯
'========= ...
VB读取线程、句柄及写入内存的API代码实例
本文所述实例为VB读取内存、线程及句柄的一个API，对涉及系统底层操作的VB编程有一定的帮助，需要的读者可以参考使用。这个API可获取到线程ID，写内存，包括进程句柄,ByVal 内存区地址,数据,总长度,已经完成长度，读取进程，包括进程句柄,ByVal 内存区地址,读取来的数据存放处,要读取的长度,已经读取的长度，内存分配(进程 ...
VB实现的倒计时类代码详解
本文所述为用VB制作倒计时程序用到的一个Module类代码，是基于控制台的倒计时程序，可供VB初学者或者VB爱好者参考学习，当然读者也可以将其拷贝代码到VB工程里面直接使用，不过需要自己创建相关的代码，对于初学者来说，也是很容易看懂的一段代码。
具体功能代码如下：
Module Module1
Sub Main()
Dim a As Date
Dim h ...
VB调用Word拼写检查功能实例
众所周知，Word有自带的拼写检查功能。VB中想要实现调用 Word 拼写检查功能其实很简单就可以实现，方法是先建立word对象，然后把需要检查的字符串放到 WORD中，调用word拼写检查，再取出返回值，最后关闭对象。
各个步骤的具体实现代码如下所示：
Function CheckSpell(IncorrectText as string) as string
Dim Word As Ob ...
VB6中的LSet语句和RSet语句详解
VB6中有几种长得很像的语句：Let、Set、LSet、RSet。
Let用于一般变量的赋值：
复制代码 代码如下:
[Let] varname = expression
大部分情况下我们都省略Let，直接用等号赋值，以致于不少人根本不知道Let的存在。
Set用于对象的赋值，将变量指向对象并增加对象的引用计数，也有不少人不知道引用计数为何物。
那么LSet是干什 ...
Delphi创建开机启动项的方法示例
Delphi可以通过创建开机启动项键值的方法，将程序添加到开机启动项中。通过本实例代码就可以为您的程序添加到快速启动中，随着Windows一起启动，开机即运行的程序。该实例代码简单，主要是通过添加注册表键值来实现。
具体的功能代码如下所示：
unit dy97;
interface
uses
Windows, Messages, SysUtils, Variants, Class ...
Delphi编程常用快捷键大全
快捷键对于提高编程速度有着很重要的影响，本文汇总整理了Delphi常用的快捷键，供大家参考之用：
Ctrl+PageUp将光标移至本屏的第一行，屏幕不滚动。
Ctrl+PageDown将光标移至本屏的最后一行，屏幕不滚动。
Ctrl+↓向下滚动屏幕，光标跟随滚动不出本屏。
Ctrl+↑向上滚动屏幕，光标跟随滚动不出本屏。
Ctrl+Shift+NUM在光标 ...
Delphi实现获取句柄并发送消息的方法
本文以实例形式详细说明了Delphi获取句柄并发送消息的方法，具体用法说明如下：
查找另外一个窗口的句柄：
handle := FindWindow(nil,PChar('窗口的标题'));//查到窗体句柄
查找子窗体：
childHandle := FindWindowEx(handle,0,'子窗体类','子窗体标题');
另外有个枚举子窗体的API，
EnumChildWindows(主创体句 ...
Delphi实现木马文件传输代码实例
本文以实例形式讲述了Delphi下木马的文件传输方法的实现过程，具体步骤如下：
服务器端代码:
unit ServerFrm;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, StdCtrls, ExtCtrls,WinSock;
type
TfrmMain = class(TForm)
Panel1: TPanel;
Lab ...
Delphi实现木马自我拷贝方法
木马实现自我拷贝的原理是程序运行时先查看自己是不是在特定目录下,如果是就继续运行,如果不是就把自己拷贝到特定目录下,然后运行新程序,继而退出旧程序.
本例即以Delphi实现木马的自我拷贝。
首先打开Delphi,新建一个工程,在窗口的Create事件中写入如下代码:
procedure TForm1.FormCreate(Sender: TObject);
var myname: ...
