<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)

    收藏夾

    搜索

    •  

    最新評(píng)論

    閱讀排行榜

    評(píng)論排行榜

    XMLHTTP對(duì)象可以獲取某個(gè)網(wǎng)頁(yè)地址的信息,下面舉一個(gè)簡(jiǎn)單的例子說明
    首先在VB中新建一個(gè)工程,選擇Project->reference,把Microsoft XML V3.0和Microsoft ActiveX加進(jìn)來,這樣就可以進(jìn)行程序的編寫了。
    程序如下,程序中是用一個(gè)button來觸發(fā)這個(gè)事件的。

    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讀取狀態(tài)失敗"
        Exit Sub
    End If
    Dim szRet As String
    szRet 
    = XMLHTTP.responseText
    MsgBox szRet
    End Sub

    這樣就可以把該網(wǎng)頁(yè)上的原代碼在提示框中顯示出來。

     

    posted on 2005-08-05 16:40 kelly 閱讀(661) 評(píng)論(0)  編輯  收藏 所屬分類: others
    主站蜘蛛池模板: 午夜免费福利小电影| 国产成人综合久久精品亚洲| 久久精品无码免费不卡| 深夜国产福利99亚洲视频| 国产精品亚洲专区无码牛牛 | 国产免费久久精品丫丫| 波多野结衣免费视频观看 | 亚洲欧洲校园自拍都市| 99久久免费精品视频| 97se亚洲综合在线| 69式国产真人免费视频| 亚洲已满18点击进入在线观看| 国产香蕉九九久久精品免费| 亚洲乱妇老熟女爽到高潮的片| 日韩激情无码免费毛片| 男男gay做爽爽的视频免费| 国产成人精品曰本亚洲79ren| 精品国产呦系列在线观看免费| 国产精品亚洲成在人线| 99精品视频在线观看免费专区| 亚洲国产精品成人综合久久久| 无码人妻一区二区三区免费| jzzijzzij在线观看亚洲熟妇| 亚洲成a人片在线观看国产| 两个人看www免费视频| 亚洲精品456在线播放| 四虎影视免费在线| 久久久免费观成人影院| 亚洲理论片在线观看| 国产又粗又猛又爽又黄的免费视频| 一级毛片免费全部播放| 少妇中文字幕乱码亚洲影视| 成年女人喷潮毛片免费播放| 羞羞视频在线观看免费| 亚洲国产一区在线| 国产成人综合久久精品免费| 91免费国产视频| 日韩亚洲人成在线| 亚洲色无码一区二区三区| 99在线视频免费观看视频 | 777爽死你无码免费看一二区|