隨筆 - 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 閱讀(664) 評論(0)  編輯  收藏 所屬分類: others
          主站蜘蛛池模板: 长沙市| 赣榆县| 祁阳县| 新巴尔虎右旗| 永嘉县| 铜川市| 蒲城县| 陆河县| 拉孜县| 萨迦县| 泰安市| 内乡县| 厦门市| 满洲里市| 长泰县| 宣化县| 马尔康县| 江山市| 彭阳县| 文成县| 鹤峰县| 临泉县| 布拖县| 门源| 上栗县| 襄樊市| 绥德县| 达孜县| 尼玛县| 舟曲县| 军事| 黑龙江省| 来宾市| 武穴市| 临武县| 宁德市| 怀安县| 库尔勒市| 北海市| 滕州市| 大厂|