Private Sub disconnect()'断开网络 Dim xmlHTTP1 Dim jieguo As String Set xmlHTTP1 = CreateObject("Microsoft.XMLHTTP") xmlHTTP1.Open "get", "http://192.168.1.1/userRpm/StatusRpm.htm?Disconnect=%B6%CF+%CF%DF", False xmlHTTP1.setRequestHeader "Authorization", "YWRtaW46YWRtaW4=" xmlHTTP1.Send While xmlHTTP1.ReadyState <> 4 DoEvents