UC知道200分，请教在VB6中用AJAX读取远程服务器信息问题
来源：百度知道 编辑：UC知道 时间：2024/07/05 20:59:47
写一个VB6程序，实时读取远程服务器中ASP程序的时间（无刷新，每隔一秒读一次），并按<br>为分隔将时间分为三行进行列表。
远程ASP程序如下：
times.asp
<%
response.write("现在时间：<br>")
response.write(date())&"<br>"
response.write(time())&"<br>"
%>
不能用VB控件直接写出不断更新的时间。
VB中显示的内容应如下样子(分三行显示远程服务器中返回信息):
现在时间:
2007-11-15
20:10:26
远程ASP程序如下：
times.asp
<%
response.write("现在时间：<br>")
response.write(date())&"<br>"
response.write(time())&"<br>"
%>
不能用VB控件直接写出不断更新的时间。
VB中显示的内容应如下样子(分三行显示远程服务器中返回信息):
现在时间:
2007-11-15
20:10:26
工程 部件 microsoft internet transfer control 6.0
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, "<br>")
Debug.Print a(0)
Debug.Print a(1)
Debug.Print a(2)
End Sub
你这个想法好似是不对的，方案不太对。
-------------------------
response.write date()
response.write now()
应该是response.write date()
response.write now()
在 VB 中 程序中引用 Internet Explorer 对象 ：在"工程"菜单中单击"引用"，在弹出对话框中选择"Microsoft Internet Controls"（SHDOCVW.DLL），就把对 Internet Explorer对象库的引用添加到了我们自己的工程文件中。
'使用IE对象打开一个网页 ：
Dim Browser As Object
Set Browser