基本信息

---

下载

   友情提示：（无需注册或充值，赞助后即可获取资源下载链接）

---

     嘿，亲！知识可是无价之宝呢，但咱这精心整理的资料也耗费了不少心血呀。小小地破费一下，绝对物超所值哦！如有下载和支付问题，请联系我们QQ(微信同号)：813200300

本次赞助数额为： 2 元　

支付宝支付

微信支付

   源码介绍

---

定时连接互联网，定时断开互联网。

Public Function LwDw()    '判断连网状态和执行连网断网操作
Dim KSsj, JSsj, DQsj
KSsj = Format(Int(TxtS1.Text) & ":" & Int(TxtF1), "hh:mm")
JSsj = Format(Int(TxtS2.Text) & ":" & Int(TxtF2), "hh:mm")
DQsj = Format(Time, "hh:mm")

            If Format(Time, "hh:mm") >= KSsj Then  ''''大于开始时间就进行连网
                If Format(Time, "hh:mm") <= JSsj Then   '''''小于结束时间就进行连网
                    If Not IsConnectedState Then
                          Command2_Click
                          'MsgBox "要连网了", vbOKOnly, "提示"
                    End If
                Else
                    If IsConnectedState Then
                            Command1_Click
                            'MsgBox "要断网了", vbOKOnly, "提示"
                    End If
                End If
            Else    '''''小于开始时间就进行断网
                If IsConnectedState Then
                        Command1_Click
                        'MsgBox "要断网了", vbOKOnly, "提示"
                End If
            End If
            'Sleep 5000
End Function

Private Sub Command4_Click()   '''''关闭系统
  CKBZ = "t"
  menuXT_Click (1)

End Sub

Private Sub menuXT_Click(Index As Integer)
    Dim xMSG As Integer
On Error Resume Next
    xMSG = MsgBox("关闭系统后，就不能自动断网连网了！" & Chr(13) & "    真的要关闭系统吗？", vbYesNo, "关闭系统")
    If xMSG = 6 Then
        CKBZ = "f"
                MsgBox "成功关闭系统！", vbInformation
                'CreateObject("Wscript.Shell").regdelete SubKey & "\"  '删除注册表的值
                RemoveFromTray  '托盘图标删除
                'Unload Me
                End
    
    End If
End Sub