<rt id="bn8ez"></rt>
<label id="bn8ez"></label>

  • <span id="bn8ez"></span>

    <label id="bn8ez"><meter id="bn8ez"></meter></label>

    隨筆 - 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 閱讀(661) 評論(0)  編輯  收藏 所屬分類: others
    主站蜘蛛池模板: 亚洲国产一成久久精品国产成人综合 | 亚洲中文字幕无码日韩| 欧洲美女大片免费播放器视频| 午夜a级成人免费毛片| 亚洲综合av一区二区三区不卡| 成在人线AV无码免费| 亚洲无人区码一二三码区别图片| 永久免费AV无码国产网站| 亚洲国产精品ⅴa在线观看| 日韩高清免费观看| 一级毛片a女人刺激视频免费| 亚洲成av人片不卡无码久久| 成人午夜影视全部免费看| 最新精品亚洲成a人在线观看| 亚洲精品偷拍视频免费观看| 亚洲AV无码乱码在线观看富二代| 久久青草精品38国产免费| 亚洲国产成人精品久久| 永久免费视频v片www| 一级毛片a免费播放王色电影| 国产亚洲精品a在线观看| 99精品视频在线免费观看| 久久精品亚洲AV久久久无码| 在线观看免费国产视频| 一级做a爰片久久毛片免费看| 亚洲av网址在线观看| 男人的好免费观看在线视频| 337P日本欧洲亚洲大胆艺术图 | 久久亚洲AV无码精品色午夜麻| 国内精品免费麻豆网站91麻豆| 亚洲国产成人无码AV在线影院| 亚洲区日韩区无码区| 一级毛片免费毛片一级毛片免费| 亚洲最大中文字幕无码网站 | 一区二区免费视频| 成人亚洲国产va天堂| 精品国产日韩亚洲一区| 精品国产sm捆绑最大网免费站| 日韩一区二区三区免费播放| 亚洲国产精品国自产电影| 国产黄色片在线免费观看|