<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
    主站蜘蛛池模板: 亚洲高清不卡视频| 亚洲熟妇无码另类久久久| 亚洲国产人成在线观看| 18禁黄网站禁片免费观看不卡| 久久国产精品亚洲综合| 十九岁在线观看免费完整版电影| 亚洲AV福利天堂一区二区三| 免费人妻无码不卡中文字幕系| 亚洲精品美女在线观看| 亚洲综合免费视频| 亚洲精品女同中文字幕| 在线jyzzjyzz免费视频| 粉色视频免费入口| 亚洲中文久久精品无码ww16| a级毛片高清免费视频就| 亚洲国产精品国自产电影| 亚洲黄色免费电影| 亚洲欧美日韩综合俺去了| 亚洲国产成人久久综合野外| aa在线免费观看| 67pao强力打造67194在线午夜亚洲 | 亚洲国产av玩弄放荡人妇 | 日韩免费电影网址| 亚洲国产成人精品青青草原| 蜜桃精品免费久久久久影院| 曰批全过程免费视频免费看| 久久夜色精品国产嚕嚕亚洲av| 99re热免费精品视频观看| 国产成人亚洲综合无| 欧洲亚洲国产清在高| 免费人成网站在线观看10分钟| 日韩色日韩视频亚洲网站| 亚洲最大激情中文字幕| www.免费在线观看| 99久久免费国产香蕉麻豆| 亚洲欧美aⅴ在线资源| 亚洲欧洲国产成人综合在线观看 | 亚洲第一成年网站视频| 国产aⅴ无码专区亚洲av麻豆| 黄色永久免费网站| 日韩在线视频播放免费视频完整版 |