解除网虫心病VB做定时断线程序

运行VB 6向窗体添加7个标签控件、1个定时器控件、3个文本输入框和4个命令按钮。

原理介绍:利用定时器控件的真值或假值来控制倒计时的开始。到了设定的时间，会弹出一个对话框提示断开。

选项显式

整数形式的模糊小时数

将分钟显示为整数

将秒调成整数

模糊时间作为日期

私有声明函数RasHangUp Lib "RaSAPi32.dll "别名" RasHangUpA "(ByVal hras conn As Long)As Long

私有声明函数RasEnumConnections Lib " rasapi 32 . dll "别名" RasEnumConnectionsA "(lprasconn As Any，lpcb As Long，lpcConnections As Long)

Const RAS95_MaxEntryName = 256

Const RAS95_MaxDeviceName = 128

Const RAS_MaxDeviceType = 16

私人型RASCONN95

dwSize一样长

hRasConn一样长

szEntryName(RAS95_MaxEntryName)作为字节

szDeviceType(RAS_MaxDeviceType)作为字节

szDeviceName(ras 95 _ max device name)作为字节

结束类型

下面的代码是定时器的控件，以及在设定的时间断开连接的代码。

私有子定时器1_Timer()

定时器1。启用=假

If (Format100 100time，" hh ")& ":& & format 100 100 time，" nn ")& & ":& & format 100 100 time，" ss ")《÷" 00:00:00 "那么

time = DateAdd("s "，-1，time)

标签1。可见=假

标签1。Caption = Format100 100time，" hh ")& & ":& & format 100 100 time，" nn ")& & ":& & format 100 100 time，" ss ")

标签1。可见=真

定时器1。启用=真

Else