主题：连接被终止

以下内容为程序代码:

1 Static dt_Last As Date '静态变量,用于保存上次备份的时间
2 Dim tp As TimeSpan
3 tp = Date.Now - dt_Last
4
5 If tp.TotalHours ＞= 1 AndAlso Date.Now.Hour = 12 Then '如果距离上次备份已经超过一个小时,并且是12点
6 dt_Last = Date.Now
7 If Forms("主界面").Opened Then
8 Dim btnBom As WinForm.Button = Forms("主界面").Controls("btnExWp")
9 btnBom.PerformClick()
10     End If
11 End If