Delphi7.0按要求生成指定位数编号，自动生成编号，请在文本框中输入编号，编号输入完成后按回车键。以下是完成核心功能的代码： 　　procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; 　　 Shift: TShiftState); 　　var 　　 i:integer; 　　 s:string; 　　begin 　　 S:=''; 　　 if key=vk_return then 　　 begin 　　 if length(edit1.Text)>8 then 　　 edit1.Text:=copy(edit1.Text,1,8); 　　 if length(edit1.Text)<8 then 　　 begin 　　 i:=8-length(edit1.Text); 　　 for i:=1 to (8-length(edit1.Text)) do 　　 begin 　　 s:=s '0'; 　　 end; 　　 edit1.Text:=trim(s) trim(edit1.Text); 　　 end; 　　 end; 　　end; 　　完整实例需要下载本源码。

VB6.0软件注册的一个应用，本序列号生成器需要在您的程序读取用户的硬件编号，如硬盘序列号，然后您再根据用户的硬件编号生成25位数字序列号.用这种方法生成的注册码是唯一的，不容易被破解，不过在盗版盛行的中国，这一方法虽可以避免，但不是绝对，要想写出不被破解的软件注册体系，你当然要从这些常用的软件注册码生成方法中去学习，去研究，因此本代码仅供参考。 　　序列号: (可以使用ctrl v 在第一输入框种粘贴),序列号是本产品的唯一注册码，请妥善保存好。如果您重新安装本产品后将仍会用到这个注册码. 　　使用帮助，单击每一项目的提示按钮，将显示改功能的相应解释说明.左边的蓝色按钮是生成相应序列号的功能按钮.

C#创建线程与循环的例子，此为演示代码，创建新线程，并创建ThreadStart委托对象，消息传输方法AddMsg，在方法中使用循环实现传输功能，在循环中创建线程，在循环中创建并使用线程，传输一行，并将该行删除，点击测试按钮“传输”即可完成测试。

添加程序开机启动项，Vb操作注册表的源代码，指定下次开机时自动运行的程序，简单的操作注册表，更复杂的操作也是基于此，供初学者参考。

VC 获取TCP/IP 配置信息，轻轻点下鼠标，即可获取您电脑的网络配置信息，这些信息主要包括：主机名、DNS服务器名、是否启用IP路由、网络适配器(网卡)型号、网卡MAC地址、默认网关、Dns服务器序列、子网掩码等，获取的网络参数比较全了，大家用到某一项参数，都可以从本代码中查找到。

VC 在不重启电脑的情况下修改本机IP地址、掩码以及网关，可以使用GetAdaptersInfo来取得网卡信息，但其显示的名称不是很具体，大家似乎觉得奇怪，修改这些似乎就不需要重启电脑吧？对，不过本程序当时写的时候是适用于Windows2000的，在当时修改IP什么的，是要重启电脑的，所以本程序在当时实现了不重启电脑而成功修改本机IP地址、掩码以及网关，在当时很牛哦。

VC++ 枚举桌面所有顶层窗口，列出窗口类名和窗口标题等。

VB6.0开发的系统托盘图标管理器。注意，本程序不是为你程序加入托盘图标的，而是管理托盘的图标，所有在托盘显示的图标都可以被监测到，部分程序没有汉化。程序中有几个类感觉挺不错，主要有获取托盘图标模块、把ICON文件转为一般图像文件与获取EXE文件图标的模块、获得 Windows 操作系统版本的模块等。

VB监测键盘按键按下状态，并显示形象图，主要是使用api实现了键盘钩子，把检测到的状态用一个形象的键盘图来表示，可能对你比较有用。比如，你要编写一个小型的打字软件，或是音乐编辑软件的时候，就要用上了，感觉挺好。

VC VC 正弦信号发生器源代码，实现输入指定频率发出声音，主要用在一些多媒体设备中用以测试声音基准。源代码可在VC6.0下顺利编译。