请举个例子.

解决方案 »

  1.   

    inet控件
    Option Explicit
    Dim URL As StringPrivate Sub Form_Load()
    Dim stemp As String, pagecode As String
    '提交
    Inet1.Execute "http://login.cn.yahoo.com/config/mail?.intl=cn", "post", "login=12345667&passwd=sdfovd"Do Until Inet1.StillExecuting = False
        DoEvents
    LoopURL = "http://cn.f151.mail.yahoo.com/ym/ShowFolder?YY=53682&box=Inbox&YN=1"
    Inet1.Execute URL, "GET"
    Do Until Inet1.StillExecuting = False
        DoEvents
    Loop
        stemp = Inet1.GetChunk(1024)
        Do While stemp <> ""
            pagecode = pagecode + stemp
            stemp = Inet1.GetChunk(1024)
        Loop
    Text1.Text = pagecode
    End Sub
      

  2.   

    这个是不是你需要的:
    http://www.applevb.com/qa/qa000257.htm