250分,请教在VB6中用XMLHTTP读取远程服务器信息问题答:Private Sub Timer1_Timer()ret$ = Inet1.OpenURL("www.123.net/times.asp")Do While Inet1.StillExecuting = True DoEvents Loop d = Replace(ret, " ", "", , , vbBinaryCompare)p = InStr(1, d, "现在时间")d = Mid(d, p, 38)Dim a() As String a = Split(d, "")text...