《2022年用VB设计控制上网时间程序Java教程.docx》由会员分享，可在线阅读，更多相关《2022年用VB设计控制上网时间程序Java教程.docx（8页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、2022年用VB设计控制上网时间程序Java教程可能有很多跟我一样用小猫上网的挚友都有过这样的苦恼，那就是每个月不得不面对的超额上网费用，特殊是对于我们这种穷学生和工薪阶层的人来说。为了变更这种现状，我便用VB编了一个限制上网时间的小软件，其实原理很简洁，就是依据自己设置的时间自动连通网络和强制切断网络。好了，废话少说，那就让我们起先吧。一、添加控件并修改属性首先打开VB，建立一个EXE文件，在该窗体上放置控件如下：三个Label控件，标题分别为当前时间、欢迎你运用网络设置和使你能够轻松限制上网。三个Button控件，标题分别为确定、取消和马上登陆。三个Text控件，两个Check控件，标题分
2、别为上网时间和下网时间，Value的值都为1，就是被选中状态，最终是两个Timer控件，Timer1的Enabled值为True,Timer2的为False，两个的Interval值都为1。调整好后如图所示。二、编写代码为实现网络的连接和断开须要在程序开头声明以下函数：Const INTERNET_DIALSTATE_DISCONNECTED = 1Const INTERNET_AUTODIAL_FORCE_ONLINE = 1Const INTERNET_AUTODIAL_FORCE_UNATTENDED = 2Const INTERNET_DIAL_UNATTENDED = &H8000D
3、im iHandle As LongPrivate Declare Function InternetDial Lib wininet.dll ( _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 wininet.dll _(ByV
4、al dwConnection As Long, _ByVal dwReserved As Long) As LongPrivate Declare Function InternetAutodial Lib wininet.dll _(ByVal dwFlags As Long, ByVal dwReserved As Long) As LongPrivate Declare Function InternetAutodialHangup Lib wininet.dll _(ByVal dwReserved As Long) As Long Private Sub Check1_Click(
5、)推断用户的选择If Check1.Value = 0 ThenText2.Enabled = FalseCheck2.Value = 0ElseText2.Enabled = TrueEnd IfEnd SubPrivate Sub Check2_Click()推断用户的选择If Check2.Value = 0 ThenText3.Enabled = FalseElseText3.Enabled = TrueEnd IfEnd SubPrivate Sub Command1_Click()使设置生效并显示设置信息Dim alert1, alert2If Check1.Value = 1 A
6、nd Check2.Value = 1 ThenIf Not IsDate(Text2.Text) Or Not IsDate(Text3.Text) ThenMsgBox (你输入的不是时间格式,请重试!)Elsealert1 = Text2.Textalert2 = Text3.TextLabel2.Caption = 留意：计算机将在 + Text2.Text + 登陆网络Label3.Caption = 留意：计算机将在 + Text3.Text + 断开网络Timer1.Enabled = TrueEnd IfElseIf Check1.Value = 1 ThenIf Not Is
7、Date(Text2.Text) ThenMsgBox (你输入的不是时间格式,请重试!)Elsealert1 = Text2.TextLabel2.Caption = 留意：计算机将在 + Text2.Text + 登陆网络Timer1.Enabled = TrueEnd IfEnd IfEnd IfEnd SubPrivate Sub Command2_Click()取消设置并显示取消信息If Check1.Value = 1 And Check2.Value = 1 ThenText2.Text = 00:00:00Text3.Text = 00:00:00Timer1.Enabled
8、= FalseLabel2.Caption = 留意：你已取消了定时登陆网络Label3.Caption = 留意：你已取消了定时断开网络ElseIf Check1.Value = 1 ThenText2.Text = 00:00:00Timer1.Enabled = FalseLabel2.Caption = 留意：你已取消了定时登陆网络End IfEnd IfEnd SubPrivate Sub Command3_Click()这里默认以163拨号方式实现登陆，其它拨号方式只需修改一下参数就可以了。InternetDial Me.hWnd, 163, INTERNET_AUTODIAL_F
9、ORCE_UNATTENDED, iHandle, 0End SubPrivate Sub Form_Load()初始化上网和下网的时间格式Text2.Text = 00:00:00Text3.Text = 00:00:00End SubPrivate Sub Timer1_Timer()依据用户的选择来推断实现定时上下网Dim AIf Check1.Value = 1 And Check2.Value = 1 ThenText1.Text = TimeA = TimeValue(Text1.Text)If Text2.Text = A ThenInternetDial Me.hWnd, 16
10、3, INTERNET_AUTODIAL_FORCE_UNATTENDED, iHandle, 0ElseIf Text3.Text = A ThenIf iHandle 0 ThenInternetHangUp iHandle, 0iHandle = 0End IfEnd IfEnd IfElseIf Check1.Value = 1 ThenText1.Text = TimeA = TimeValue(Text1.Text)If Text2.Text = A ThenInternetDial Me.hWnd, 163, INTERNET_AUTODIAL_FORCE_UNATTENDED, iHandle, 0End IfEnd IfEnd IfEnd SubPrivate Sub Timer2_Timer()显示当前时间Text1.Text = TimeEnd Sub以上就是程序的全部源代码，编译后就是一个简洁限制上网的小软件，操作简洁，特别好用，以上程序在Windows98+VB6.0中调试通过。其实通过这个小程序可以看出，许多的好用小软件都源于我们日常生活中的一些小问题，只要你擅长发觉和思索，信任你也一样能够做到。