解除网虫的心病用VB做定时断线程序 -pc6资讯

您的位置：首页 → 精文荟萃 → 破解文章 → 解除网虫的心病用VB做定时断线程序

解除网虫的心病用VB做定时断线程序 时间：2004/10/15 1:01:00来源：本站整理作者：蓝点我要评论(0)

　作为网虫，最头疼的事情之一就是每月高额的电话费。笨笨也是一样，每个月都想着少上一会儿网，然而银子仍然像流水一样飞逝……一天，笨笨突然想到了VB中有一个强大的时间控件——Timer，为什么不做一个能定时断开连接的程序呢？经过了一番研究和N次的调试，笨笨终于成功了。不敢独占，拿来和大家一起分享，也解救一下为了网费而过得“水深火热”的网虫。

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

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

　　Option Explicit

　　Dim Hours As Integer

　　Dim Minutes As Integer

　　Dim Seconds As Integer

　　Dim time As Date

　　Private Declare Function RasHangUp Lib "RasApi32.dll" Alias "RasHangUpA" (ByVal hRasConn As Long) As Long

　　Private Declare Function RasEnumConnections Lib "RasApi32.dll" Alias "RasEnumConnectionsA" (lprasconn As Any, lpcb As Long, lpcConnections As Long) As Long

　　Const RAS95_MaxEntryName = 256

　　Const RAS95_MaxDeviceName = 128

　　Const RAS_MaxDeviceType = 16

　　Private Type RASCONN95

　　dwSize As Long

　　hRasConn As Long

　　szEntryName(RAS95_MaxEntryName) As Byte

　　szDeviceType(RAS_MaxDeviceType) As Byte

　　szDeviceName(RAS95_MaxDeviceName) As Byte

　　End Type

　　下面一段代码是对Timer的控制，以及到设定时间的时候断开连接的代码

　　Private Sub Timer1_Timer()