本例演示了怎样通过API的调用向一个IP地址发送一个包的数据并等待回音。
新建一个工程，添加一个标准模块，写入以下代码：

Option Explicit

Public Const IP_STATUS_BASE = 11000

查看更多...

1、新建一个窗体，创建一个文本框和命令按钮，加入下面代码：

Option Explicit
Private Sub Command1_Click()
Dim c1 As New Class1
MsgBox c1.DigestStrToHexStr(Text1.Text)

查看更多...

大家都知道共享软件都有它们的试用期，即给你一个固定的期限免费使用，超出一定的期限免费使用。超出一定和期限如果你坚决拒付使用费的话，呵 呵，那个软件就不能启动了。你想不想也编一个带试用期的程序呢？不难，方法如下：
    编程思路
    应有的功能：
    1）给定一个试用期限，在系统每次启动时会判断软件已经使用了几天，还有几天可以及启动的次数。
    2）当系统日期被修改成往日的日期后，系统能自动判别，禁止修改日期 ，不予正常启动。
    3)当试用期到，显示信息，不予启动程序。

查看更多...

运行VB 6，向窗体添加7个Label控件、1个Timer控件、3个Text文本输入框以及4个Command按钮。



　　 原理简介：用Timer控件的True或者False值，控制倒计时的开始，当到达设定时间的时候，弹出对话框提示断开连接。

查看更多...

打开一文本文件并放入textBox中

Dim FileNumber
Dim Lstr as String
FileNumber = FreeFile   ' 取得未使用的档案代码。
Open "TEST" For input As #FileNumber

查看更多...

含子目录的搜寻文件

标题：非递归、无使用界面的文件搜寻

      一般来说，搜寻目录及子目录底下符合条件之所有文件功能的程式撰写，一向
颇令人头疼，而最后的解决方式多用 Recursive(程式递归呼叫) 来解决，像 VB5.0

查看更多...

取得某个目录底下所有文件大小总和


含目录底下的子目录，求得其所有文件大小之总和
其第二个叁数的目的是起始Static型态的totbyte, 呼叫它时，请不要传叁数进去

查看更多...

制作一个本企业的屏幕保护，在客户运行本企业的应用软件的时候，为客户更改屏幕保护，是个广告宣传的好办法。在第一VB论坛(http://www.d1vb.com)上有很多朋友提出这个问题，现解答如下：

　　要更换屏幕保护，首先得做好一个屏幕保护(scr文件)，本例以 工程1.scr 这个文件为例。由于windows是把屏幕保护文件存放在system下，但记录屏幕保护文件位置的文件却是windows目录下的system.ini，所以，首先需要找出系统的windows和system目录的确切安装位置。因此，可以分如下几步进行：

　　1、找到windows和system目录的安装位置

查看更多...

1 网络管理系统的功能

　　用户登录认证，电子邮件系统，文件传送，消息通知

　　2 Winsock控件介绍

查看更多...

编程思路：当光驱里有光盘，立即检测此光盘是否已经注册，如不是，则弹出光驱，从而达到保护光驱的作用。

实现方法：
一.注册光盘
利用INI配置文件记录光盘的卷标号和序列号，比如一张卷标号为Sys、序列号为38972126的光盘，可在INI文件中在[CDRom]下按如下格式记录：ys=38972126。
二.检测光盘是否已经注册

查看更多...