<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 閱讀(669) 評論(0)  編輯  收藏 所屬分類: others
    主站蜘蛛池模板: 久久久久久A亚洲欧洲AV冫| 亚洲国产成人五月综合网 | 叮咚影视在线观看免费完整版| 久久亚洲精品无码观看不卡| 亚洲中文字幕久久精品无码VA | 久久国产乱子伦精品免费午夜 | 春意影院午夜爽爽爽免费| 日日狠狠久久偷偷色综合免费| 岛国岛国免费V片在线观看| 欧洲人成在线免费| 猫咪社区免费资源在线观看| 免费人成网站7777视频| 亚洲2022国产成人精品无码区| 免费一级毛片女人图片| 亚洲成AV人片在WWW| 精品久久久久久无码免费| 久久精品国产亚洲Aⅴ蜜臀色欲| 亚洲制服在线观看| 日韩毛片一区视频免费| 亚洲免费福利视频| 亚洲国产精品狼友中文久久久 | yellow免费网站| 999久久久免费精品国产| 亚洲国产精品成人AV无码久久综合影院| 亚洲男人的天堂在线播放| 亚洲 欧洲 自拍 另类 校园| 中文字幕免费在线看线人动作大片| 国内精自视频品线六区免费| 亚洲kkk4444在线观看| 国产又粗又长又硬免费视频| 亚洲精品在线不卡| 亚欧国产一级在线免费| 国产色爽女小说免费看| 国产高潮久久免费观看| 久久久久亚洲精品天堂| a毛片在线还看免费网站| 国产亚洲视频在线播放| 免费人成动漫在线播放r18| 亚洲国产精品久久久天堂| 一级毛片a免费播放王色| 久久久久亚洲精品日久生情 |