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: ...
Delphi实现窗口文字淡入淡出渐变效果的方法
本文所述实例为Dlephi实现的窗口渐变文字效果，文字可以不停的变化，颜色由浅入深，由清淅变模糊，文字渐变的时间可在代码中自己调整。主要实现代码如下：
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class ...
Delphi实现获取磁盘空间大小的方法
本文所述Delphi实例用以获取指定的磁盘空间容量大小，检测磁盘大小，从combox中选择磁盘代号等功能。点击“检测驱动器”容量信息的按钮，就可以在下边显示出该磁盘的总空间大小以及要用容量的大小。读者可根据需求添加对应的Button与label控件。
主要程序代码如下所示：
unit Unit1;
interface
uses
Windows, Messages, ...
Delphi实现限定软件使用时间的方法
我们经常看到很多网上下载的试用版软件，都有使用时间的限制，就其商业角度而言也是处于软件效益保护的一种措施，可以让用户免费试用一段时间，若满意就可以购买商业软件。本文所述实例代码功能就是如何为Delphi所编写的程序添加使用时间的限制功能，这里默认的时限为30天。
主要代码如下：
unit Unit1;
interface
uses
...
VBA中操作Excel常用方法总结
要用VBA来关闭工作簿，用Workbook.Close 方法即可，而要退出Excel，则用Application.Quit 方法。
下面是一些代码示例： 关闭活动工作簿，如果工作簿有更改，提示是否保存：
复制代码 代码如下:
Sub CloseWorkbook()
ActiveWorkbook.Close
End Sub
如果要避免出现 ...
VB实现的16位和32位md5加密代码分享
在各种登陆系统中，用户密码的md5加密是不可少的。
这么说吧，即使你通过各种手段看到了用户的登陆密码，但那一串古古怪怪的东西你也不可能知道它是什么，这就是保护。
md5加密运算是不可逆的，就是说你不能通过那一串古古怪怪的东西算出它原始的样子。
下面是完整的md5代码，不要去理解算法了，用到时拿去直接调用。
Pri ...
VBA中连接SQLSERVER数据库例子
我们在使用excel编程时，很多时候都需要使用数据库。
那么如何连接数据库然后从数据库读取数据呢？
VBA 连接 SQL SERVER 数据库 实例:
Dim strConn As String, strSQL As String
Dim conn As ADODB.Connection
Dim ds As ADODB.Recordset
Dim col As Integer
'连接数据库的字符串
strConn = "Provider=SQLOLE ...
Delphi实现图像文本旋转特效完整实例代码
本文以实例讲述了Delphi实现图像文本旋转特效的解决方法，在本程序中利用的控件主要是Panel 控件、Image 控件、Edit 控件、Label 控件和Button 控件。本程序的关键是利用Delphi 的bmp_rotate()函数来实现旋转图像的功能。并巧妙地调用相关Windows API 函数来实现对文本的旋转特效。
完整的实例代码如下：
unit Unit1;
int ...
Delphi实现图片滚动切换的完整实例代码
本文以实例介绍了Delphi实现图片滚动切换的方法。该程序可以实现图像的滚动播出，并且通过本代码可控制窗口中的图像向上滚动，通过调节速度滚动条的值还可以调整滚动的速度；点击“停止”按钮，图像即停止滚动。
完整的功能代码如下：
unit Unit1;
interface
uses
Windows, Classes, Graphics, Forms, Controls, Menus,
D ...
Delphi之Pascal语言中的关键字及保留字汇总
本文汇总了Pascal语言中的关键字及保留字如下，供大家参考：
absolute//指令(变量)
abstract//指令(方法)
and//运算符(布尔)
array//类型
as//运算符(RTTI)
asm//语句
assembler//向后兼容(汇编)
at//语句(异常处理)
automated//访问类别符(类)
begin//块标记
case//语句
cdecl//函数调用协定
class//类型
const//声明或 ...
Delphi实例演示Rect、Bounds生成TRect的区别
本文以实例演示Rect、Bounds生成TRect的区别，实例代码如下：
unitUnit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
RadioGroup1: TRadioGroup;
procedure RadioGroup1Click(Sender: T ...
