隨筆 - 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 閱讀(667) 評論(0)  編輯  收藏 所屬分類: others
          主站蜘蛛池模板: 高台县| 清涧县| 互助| 谢通门县| 出国| 长白| 青岛市| 遂宁市| 大港区| 广灵县| 磐安县| 延寿县| 东阳市| 抚顺县| 通化市| 长垣县| 公安县| 建宁县| 宁波市| 西青区| 苗栗县| 安仁县| 抚松县| 大关县| 沅陵县| 武强县| 嵩明县| 福州市| 阿拉善左旗| 广西| 崇仁县| 宽城| 江都市| 仁寿县| 博客| 梨树县| 文成县| 江门市| 呈贡县| 麦盖提县| 图木舒克市|