<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
    主站蜘蛛池模板: 四虎在线播放免费永久视频| 小日子的在线观看免费| 国产在线jyzzjyzz免费麻豆| 伊人久久大香线蕉亚洲| 一区二区三区免费精品视频 | 久久免费福利视频| 久久久久国产成人精品亚洲午夜| 羞羞视频免费观看| 亚洲国产中文在线视频| 久久WWW免费人成一看片| 久久夜色精品国产噜噜噜亚洲AV | 日本视频一区在线观看免费| 亚洲午夜电影在线观看高清 | 亚洲色图黄色小说| 99久久99热精品免费观看国产| 婷婷亚洲综合五月天小说| 无码精品人妻一区二区三区免费看| 亚洲国产精品成人精品无码区| 叮咚影视在线观看免费完整版| 亚洲av无码一区二区三区不卡| 久久国产精品免费观看| 亚洲无线电影官网| 久久久久免费看黄A片APP| 亚洲日韩精品国产一区二区三区| 精品免费久久久久久成人影院| 亚洲av无一区二区三区| 亚洲av无码成人精品区在线播放 | 国产大片91精品免费观看不卡| 亚洲无吗在线视频| 一区二区三区精品高清视频免费在线播放 | 中文字幕亚洲综合久久| 日韩亚洲国产高清免费视频| 日日噜噜噜噜夜夜爽亚洲精品| 一二三区免费视频| 亚洲精品视频在线观看免费| 成年人在线免费看视频| 国产亚洲美女精品久久久久| 久久精品国产亚洲沈樵| 成年女人免费v片| 色www永久免费网站| 亚洲AV无码乱码在线观看代蜜桃 |