250分，请教在VB6中用XMLHTTP读取远程服务器信息问题
写一个VB6程序，用XMLHTTP实时读取远程服务器中ASP程序中的时间（用XMLHTTP实现无刷新，每隔一秒读一次），并按<br>为分隔将时间分为三行进行列表于一个文本框text1.text内,并去除其它HTML代码。
远程ASP程序如下：
times.asp
<html>
<head><!-- -->
<title>VB6中用AJAX实现无刷新更新远程数据</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="/iknow1_0.css" rel="stylesheet" type="text/css">
</head>
<body>
<%
response.write("现在时间：<br>")
response.write(date())&"<br>"
response.write(time())&"<br>"
%>
</body>
</html>
不能用VB控件直接写出不断更新的时间。
VB中文本框text1.text中显示的内容应如下样子(分三行实时显示远程服务器中返回信息):
现在时间:
2007-11-15
20:10:26
求的是XMLHTTP实现的方法.谢谢.
不能让整个窗口随同内容刷新.
请用XMLHTTP实现无闪刷新谢谢.
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>")
text1.text=a(0) & VbCrLF & a(1) & VbCrLF & a(2)
End Sub
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...
250分最高分,请高手解答VB6程序读取网页文本及其链接的方法
Public Function QueryValue(lPredefinedKey As Long, sKeyName As _String, sValueName As String)Dim lRetVal As Long Dim hKey As Long Dim vValue As Variant lRetVal = RegOpenKeyEx(lPredefinedKey, sKeyName, 0, _KEY_ALL_ACCESS, hKey)lRetVal = QueryValueEx(hKey, sValueName, vValue...
关于.net 4.0中的XMLHTTPRequest.OnReadyStateChange问题
既然是用的 VB.NET 可以直接使用 System.Net.WebClient来实现远程调用Web资源 不需要手动处理这个。。
如何用vb在VB的网页中截取指定的字符,并显示在text1.text中 百度牛人多...
在窗体中放置一个Text1和Text2，其中Text2.Multiline=True，代码如下：Option Explicit Private Function GetWebTxt(Url)Dim objWMD As Object: Set objWMD = CreateObject("Microsoft.XMLHTTP")objWMD.Open "GET", Url, False objWMD.Send GetWebTxt = StrConv(objWMD.responseBody, vbUnicode)End...
执行错误如何处理?
msxml3.dll 错误 800c0005系统未找到指定的资源”方法一:这个情况以前也遇到过,一般出现在采集信息或用XMLHTTP静态更新网页的时候会出现这个问题,以前出现类似的错误我都是用 set objXmlHttp = Server.CreateObject("Microsoft.XMLHTTP") '一般在msxml2.6以下版本使用 ' set objXmlHttp = Server.CreateObject("MSXML...
vb post\/get 区别
FORM POST方法的区别表格GET和POST方法，数据传输过程中，分别，相应的GET和POST方法的HTTP协议。两个主要的差异如下：1，用于从服务器获取数据，而邮政是用来传输数据到服务器。2，获取的行动所指向的URL后面添加变量=值的形式按照表格中的数据，都使用了“？”之间的连接使用“＆”连接的每个变量;发表中...
如何让网页在指定的几点几分几秒的时候自动刷新?有代码吗
XMLHTTP无刷新自动实时更新数据 传统上,我们浏览网页,如果加入最新的数据.只能是等我们重新向服务器端请求时才能显示出来.但是,对于一些时效性很强的网站.传统的这种做法是不能满足的. 我们可以让程序自动刷新.定时向服务器请求数据.5秒取一次数据,10秒取一次数据.利用XMLHTTP发出请求并取得数据.传到客户...
前端开发需要学什么啊?
需要学习如下内容：1、HTML语言 掌握HTML是网页的核心，是一种制作万维网页面的标准语言，是万维网浏览器使用的一种语言，它消除了不同计算机之间信息交流的障碍。因此，它是网络上应用最为广泛的语言，也是构成网页文档的主要语言，学好HTML是成为Web开发人员的基本条件。HTML是一种标记语言，能够实现Web...
