vb制作分享一起玩，免费玩，然后去讨论创作游戏去学习。

vb6.0 写的仿windows自带扫雷，有联想功能.适合初学vb的人参考

用VB6+ActiveReport所带的控件编写的ActiveReport报表设计器，加在程序中可以让用户自己编写报表

VB 代码遍历文件夹下 所有文件夹,超简短代码，速度超快

对大漠插件的再次封装,优化代码,便于调试输出,查找BUG,支持窗口绑定,注册与卸载插件,错误提示,找图,色,字的函数的封装,在VB6测试完后,便于移植到按键上使用

获得汉字的拼音简码程序(VB6.0代码编写) 获得汉字的拼音简码，在你输入汉字的同时，汉字的首字母就会显示出来。 QQ223857666勾月

If Combo.Text = "" Then MsgBox "请选择加密方案", vbExclamation: Exit Sub '空狗 et99pid = "FFFFFFFF" et99pin = "FFFFFFFFFFFFFFFF" retcode = et_FindToken(et99pid, et99count) '查找加密狗 If retcode = 0 Then retcode = et_OpenToken(et99handle, et99pid, 1) '打开加密狗 retcode = et_Verify(et99handle, 1, et99pin) '验证SOPIN retcode = et_GenPID(et99handle, LenB(StrConv(et99seed, vbFromUnicode)), et99seed, et99pid) '设置硬件PID retcode = et_GenSOPIN(et99handle, Len("33102150"), "33102150", et99pin) '修改SOPIN retcode = et_ChangeUserPIN(et99handle, "FFFFFFFFFFFFFFFF", "1984011219840112") '修改USERPIN writestr = Format(Date, "YYYY-MM-DD") writearr = StrConv(writestr, vbFromUnicode) retcode = et_Write(et99handle, 0, Len(writestr), writearr(0)) '写入日期 retcode = et_CloseToken(et99handle) '关闭加密狗 MsgBox "加密狗设置成功，采用的方案：" & 产品名称, vbInformation Exit Sub End If '已经写过的狗 Call OpenEt99数据表 If Et99数据表.RecordCount <= 0 Then GoTo Er: For i = 0 To Et99数据表.RecordCount - 1 et99pid = Et99数据表("硬件PID") retcode = et_FindToken(et99pid, et99count) If retcode = 0 Then retcode = et_OpenToken(et99handle, et99pid, 1) '打开加密狗 et99pin = "FFFFFFFFFFFFFFFF" '可以修改成自己的SOPIN retcode = et_Verify(et99handle, 1, et99pin) '验证SOPIN If retcode 0 Then et99pin = "FFFFFFFFFFFFFFFF" retcode = et_Verify(et99handle, 1, et99pin) '验证SOPIN If retcode 0 Then GoTo Er: End If retcode = et_GenPID(et99handle, LenB(StrConv(et99seed, vbFromUnicode)), et99seed, et99pid) '设置硬件PID writestr = Format(Date, "YYYY-MM-DD") writearr = StrConv(writestr, vbFromUnicode) retcode = et_Write(et99handle, 0, Len(writestr), writearr(0)) '写入日期 retcode = et_CloseToken(et99handle) '关闭加密狗 MsgBox "加密狗设置成功，采用的方案：" & 产品名称, vbInformation Call CloseEt99数据表 Exit Sub End If Et99数据表.MoveNext Next i Er: Call CloseEt99数据表 MsgBox

VB6.0小程序－网页方式登录-自动填写账号密码快速登录工具： 因为要用网页登录无线网络，但又不想每次都手动输入账号密码，尤其是信号不稳定的情况，经常掉线，严重的时候一个小时内就好几次，要是每次都手动登录的话，那人都要累死，所以写了这个快速登录程序，还加了个断线自动重新登录的功能，前提是网卡能自动连接到服务器（路由端）！而且这只是针对特定的简单页面，其他类型的，要视情况修改才行……另外，没有采取数据库或ini之类的文件来保存账号密码，所以只能把它们都编译到程序中，一旦登录的IP和账号信息有改动，程序就要重新编译，否则不可用。程序因包含登录信息，所以仅供自己专用的，不外传。2012-05

在baidu和google上，VB6给listbox 加图标（图片）的程序一个都没有，只好自已编了一个程序，补了VB6空白。不足三十行代码程序，非常巧妙给VB6自带的listbox控件加上了图标，图标可以是任意图片！程序代码简洁明了，一看就懂，其中涉及如何改变列表项的行间距。

本文件夹中所带的例子可操作以下型号设备 PC104-CAN PC104-CAN2 ISA-9620 ISA-5420 PCI-5110 PCI-5121 PCI-9810 (PCI-9810I) PCI-9820 PCI-9820I PCI-9840 USBCAN (USBCAN-I USBCAN-I+ USBCAN-II USBCAN-II+ USBCAN-2A) DNP9810 PEC9920 PCIE9220