用设计控制上网时间程序覆盖

可能有许多跟我一样用小猫上的朋友都有过这样的烦恼，那就是每个月不得不面对的超额上费用，特别是对于我们这种穷学生和工薪阶层的人来说。为了改变这种现状，我便用VB编了一个控制上时间的小软件，其实原理很简单，就是根据自己设置的时间自动连通络和强制切断络。好了，废话少说，那就让我们开始吧。

一、添加控件并修改属性

首先打开VB，建立一个EXE文件，在该窗体上放置控件如下：三个Label控件，标题分别为\"当前时间\"、\"欢迎你使用络设置\"和\"使你能够轻松控制上\"。三个Button控件，标题分别为\"确定\"、\"取消\"和\"立即登陆\"。三个Text控件，两个Check控件，标题分别为\"上时间\"和\"下时间\"，Value的值都为1，就是被选中状态，最后是两个Timer控件，Timer1的Enabled值为True,Timer2的为False，两个的Interval值都为1。调整好后如图所示。

二、编写代码

为实现络的连接和断开需要在程序开头声明以下函数：

Const INTERNET_DIALSTATE_DISCONNECTED = 1

Const INTERNET_AUTODIAL_FORCE_ONLINE = 1

Const INTERNET_AUTODIAL_FORCE_UNATTENDED = 2

Const INTERNET_DIAL_UNATTENDED = H8000

Dim iHandle As Long

Private Declare Function InternetDial Lib \"l\" ( _ByVal hwndParent As Long, _ByVal lpszConnectoid As String, _ByVal dwFlags As Long, _lpdwConnection As Long, _ByVal dwReserved As Long) As Long

参数dwConnection指定拨号连接句柄

Private Declare Function InternetHangUp Lib \"l\" _

(ByVal dwConnection As Long, _

ByVal dwReserved As Long) As Long

Private Declare Function InternetAutodial Lib \"l\" _

(ByVal dwFlags As Long, ByVal dwReserved As Long) As Long

Private Declare Function InternetAutodialHangup Lib \"l\" _

(ByVal dwReserved As Long) As Long Private Sub Check1_Click()

判断用户的选择

If lue = 0 Then

abled = False

lue = 0

Else

abled = True

End If

End Sub

Private Sub Check2_Click()

判断用户的选择

If lue = 0 Then

abled = False

Else

abled = True

End If

End Sub

Private Sub Command1_Click()

使设置生效并显示设置信息

Dim alert1, alert2

If lue = 1 And lue = 1 Then

If Not IsDate(xt) Or Not IsDate(xt) Then

MsgBox (\"你输入的不是时间格式,请重试!\")

Else

alert1 = xt

alert2 = xt

ption = \"注意：计算机将在\" + xt + \"登陆络\"

ption = \"注意：计算机将在\" + xt + \"断开络\"

abled = True

End If

Else

If lue = 1 Then

If Not IsDate(xt) Then

MsgBox (\"你输入的不是时间格式,请重试!\")

Else

alert1 = xt

ption = \"注意：计算机将在\" + xt + \"登陆络\"

abled = True

End If

End If

End If

End Sub

Private Sub Command2_Click()

取消设置并显示取消信息

If lue = 1 And lue = 1 Then

xt = \"00:00:00\"

xt = \"00:00:00\"

abled = False

ption = \"注意：你已取消了定时登陆络\"

ption = \"注意：你已取消了定时断开络\"

Else

If lue = 1 Then

xt = \"00:00:00\"

abled = False

ption = \"注意：你已取消了定时登陆络\"

End If

End If

End Sub

Private Sub Command3_Click()

这里默认以163拨号方式实现登陆，其它拨号方式只需修改一下参数就可以了。

InternetDial nd, \"163\", INTERNET_AUTODIAL_FORCE_UNATTENDED, iHandle, 0

End Sub

Private Sub Form_Load()

初始化上和下的时间格式

xt = \"00:00:00\"

xt = \"00:00:00\"

End Sub

Private Sub Timer1_Timer()

根据用户的选择来判断实现定时上下

Dim A

If lue = 1 And lue = 1 Then

xt = Time

A = TimeValue(xt)

反而听起来有一种熟悉但又说不出来的新奇J-POP风味。歌词请来了当今华语乐坛词锋最犀利、笔触最诙谐的香港鬼才音乐人黄伟文填词 If xt = A Then

InternetDial nd, \"163\", INTERNET_AUTODIAL_FORCE_UNATTENDED, iHandle, 0

Else

If xt = A Then

If iHandle 0 Then

InternetHangUp iHandle, 0

iHandle = 0

End If

End If

End If

Else

If lue = 1 Then

xt = Time

A = TimeValue(xt)

If xt = A Then

InternetDial nd, \"163\", INTERNET_AUTODIAL_FORCE_UNATTENDED, iHandle, 0

End If

End If

End If

End Sub

Private Sub Timer2_Timer()

显示当前时间

xt = Time

End Sub

以上就是程序的全部源代码，编译后就是一个简单控制上的小软件，操作简单，非常实用，以上程序在Windows98+VB6.0中调试通过。其实通过这个小程序可以看出，很多的实用小软件都源于我们日常生活中的一些小问题，只要你善于发现和思考，相信你也一样能够做到。

查看本文来源

郑州卵巢炎治疗费用多少钱
北京医院白癜风哪家医院好
卒中高血压吃什么药效果好