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
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
http://www.applevb.com/qa/qa000257.htm