定时连网断网

【实例截图】

【核心代码】

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