<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
    主站蜘蛛池模板: 国产一区二区三区在线免费| 日本高清不卡中文字幕免费| 四虎国产精品永免费| 国产亚洲AV手机在线观看| 亚洲国产综合AV在线观看| 亚洲精品国产精品乱码不卞| 亚洲一区免费观看| jzzijzzij在线观看亚洲熟妇| 久久精品免费一区二区喷潮 | 在线观看片免费人成视频播放| 女人18毛片a级毛片免费视频| 一区二区三区精品高清视频免费在线播放| 无码欧精品亚洲日韩一区| 你懂的在线免费观看| 亚洲午夜在线播放| 亚洲国产精品无码专区| 久久免费国产精品一区二区| 在线观看日本亚洲一区| 亚洲AV无码专区在线播放中文| 免费看美女被靠到爽| 老汉精品免费AV在线播放| 日韩久久无码免费毛片软件| 亚洲码在线中文在线观看| 2022中文字字幕久亚洲| 成年男女免费视频网站| 99久久免费观看| 福利免费在线观看| 亚洲成aⅴ人片久青草影院按摩| 亚洲午夜在线电影| 最近免费中文字幕大全| 久9热免费精品视频在线观看| 无码毛片一区二区三区视频免费播放 | 国产做国产爱免费视频| 亚洲av日韩专区在线观看| 免费一级一片一毛片| 黄色成人免费网站| 亚洲综合一区无码精品| 亚洲欧洲国产视频| 亚洲av色影在线| 亚洲精品成人片在线观看精品字幕| 国产婷婷高清在线观看免费|