随笔 - 72  文章 - 28  trackbacks - 0
<2005年8月>
31123456
78910111213
14151617181920
21222324252627
28293031123
45678910

常用链接

留言簿(4)

随笔分类(66)

随笔档案(72)

文章档案(19)

收藏夹

搜索

  •  

最新评论

阅读排行榜

评论排行榜

XMLHTTP对象可以获取某个网页地址的信息,下面举一个简单的例子说明
首先在VB中新建一个工程,选择Project->reference,把Microsoft XML V3.0和Microsoft ActiveX加进来,这样就可以进行程序的编写了。
程序如下,程序中是用一个button来触发这个事件的。

Private Sub Command1_Click()
Dim XMLHTTP As New XMLHTTP
Dim m_queryURL As String
m_queryURL 
= "http://bookreg.sina.com.cn/serialize/chapter.php?id=42164"
m_queryURL = m_queryURL
XMLHTTP.Open 
"GET", m_queryURL, False
'XMLHTTP.setRequestHeader "Content-Type", "text/html"
'
XMLHTTP.setRequestHeader "Content-Type", "charset=gb2312"
XMLHTTP.send
If XMLHTTP.readyState <> 4 Then
    
MsgBox "HTTP读取状态失败"
    Exit Sub
End If
Dim szRet As String
szRet 
= XMLHTTP.responseText
MsgBox szRet
End Sub

这样就可以把该网页上的原代码在提示框中显示出来。

 

posted on 2005-08-05 16:40 kelly 阅读(639) 评论(0)  编辑  收藏 所属分类: others

只有注册用户登录后才能发表评论。


网站导航: