鸿 网 互 联 www.68idc.cn

当前位置 : 服务器租用 > 网站制作教程 > vbs > >

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

来源:互联网 作者:佚名 时间:2015-10-15 13:31
运行VB6,向窗体添加7个Label控件、1个Timer控件、3个Text文本输入框以及4个Command按钮。 原理简介:用Timer控件的True或者False值,控制倒计时的开始,当到达设 定时 间的时候,弹出对话框提示断开连接。 OptionExplicit DimHoursAsInteger DimMinutesAsIn
运行VB6,向窗体添加7个Label控件、1个Timer控件、3个Text文本输入框以及4个Command按钮。



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

  OptionExplicit

  DimHoursAsInteger

  DimMinutesAsInteger

  DimSecondsAsInteger

  DimtimeAsDate

  PRivateDeclareFunctionRasHangUpLib"RasApi32.dll"Alias"RasHangUpA"(ByValhRasConnAsLong)AsLong

  PrivateDeclareFunctionRasEnumConnectionsLib"RasApi32.dll"Alias"RasEnumConnectionsA"(lprasconnAsAny,lpcbAsLong,lpcConnectionsAsLong)AsLong

  ConstRAS95_MaxEntryName=256

  ConstRAS95_MaxDeviceName=128

  ConstRAS_MaxDeviceType=16

  PrivateTypeRASCONN95

  dwSizeAsLong

  hRasConnAsLong

  szEntryName(RAS95_MaxEntryName)AsByte

  szDeviceType(RAS_MaxDeviceType)AsByte

  szDeviceName(RAS95_MaxDeviceName)AsByte

  EndType

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

  PrivateSubTimer1_Timer()

  Timer1.Enabled=False

  If(Format100100time,"hh")&&":"&&Format100100time,"nn")&&":"&&Format100100time,"ss"))〈〉"00:00:00"Then

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

  Label1.Visible=False

  Label1.Caption=Format100100time,"hh")&&":"&&Format100100time,"nn")&&":"&&Format100100time,"ss")

  Label1.Visible=True

  Timer1.Enabled=True

  Else

  Timer1.Enabled=False

  EndIf

  IfLabel1.Caption="00:00:01"Then

  dsdklj.WindowState=0

  Command1.Enabled=True

  MsgBox"时间到了,正在断开连接"

  DimlngRetCodeAsLong

  DimlpcbAsLong

  DimlpcConnectionsAsLong

  DimintArraySizeAsInteger

  DimintLoOperasInteger

  ReDimlprasconn95(intArraySize)AsRASCONN95

  lprasconn95(0).dwSize=412

  lpcb=256*lprasconn95(0).dwSize

  lngRetCode=RasEnumConnections(lprasconn95(0),lpcb,lpcConnections)

  IflngRetCode=0Then

  IflpcConnections〉0Then

  ForintLooper=0TolpcConnections-1

  RasHangUplprasconn95(intLooper).hRasConn

  NextintLooper

  UnloadMe

  Else

  MsgBox"时间到了,没有拨号网络连接"

  UnloadMe

  EndIf

  EndIf

  EndIf

  EndSub

  其实,这个程序还可以进一步的完善,比如添加暂停功能、或者经过改造,适用于宽带的,等等。这不,笨笨拿着电话单正偷着乐呢!笨笨已经利用这个小程序省下了不少网费,你呢?->

网友评论
<