<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 閱讀(667) 評論(0)  編輯  收藏 所屬分類: others
    主站蜘蛛池模板: 免费乱码中文字幕网站| 四虎国产精品免费久久| 在线亚洲精品自拍| 美女被暴羞羞免费视频| 国产精品免费综合一区视频| 亚洲女子高潮不断爆白浆| 啦啦啦中文在线观看电视剧免费版| 亚洲电影一区二区| 免费人成视频在线观看网站| 久久久久久久亚洲Av无码| 久久久久久久岛国免费播放| 久久亚洲sm情趣捆绑调教| 久久午夜夜伦鲁鲁片免费无码影视| 亚洲邪恶天堂影院在线观看| 999任你躁在线精品免费不卡| 亚洲理论精品午夜电影| 国产高清不卡免费在线| 亚洲国产区男人本色| 亚洲成a人片在线观看老师| 色多多A级毛片免费看| 国产亚洲大尺度无码无码专线 | 久久aa毛片免费播放嗯啊| 亚洲丁香色婷婷综合欲色啪| 亚洲精品在线免费观看| 中文字幕在线日亚洲9| 免费看少妇作爱视频| 一级做受视频免费是看美女| 国产亚洲精品精华液| 毛色毛片免费观看| 美女视频黄a视频全免费网站色| 国产亚洲自拍一区| 1000部羞羞禁止免费观看视频| 亚洲中文无码卡通动漫野外| 国产亚洲一区二区三区在线不卡 | 亚洲精品国产精品乱码视色| 久久久久高潮毛片免费全部播放| 亚洲午夜精品久久久久久app| 亚洲av成人一区二区三区在线观看 | 亚洲精品麻豆av| 一级毛片在线观看免费| 亚洲国产日韩a在线播放|