注:我的代码如下:
Option Explicit
Dim URL As String
Dim Cookies As String
Private Sub Form_Load()
Inet1.Execute "http://expert.csdn.net/member/logon.asp?name=用户&pass=密码&from=http://expert.csdn.net/expert", "POST"
End Sub
Private Sub Inet1_StateChanged(ByVal State As Integer)
Select Case State
Case 12
Cookies = Inet1.GetHeader("Set-Cookie")
Case Else
URL = "http://expert.csdn.net/Expert/member/MyExpertPoint.asp"
Inet2.Execute URL, "GET", "", "Cookie: " & Cookies & vbCrLf
End Select
End Sub
Private Sub Inet2_StateChanged(ByVal State As Integer)
Dim stemp As String, pagecode As String
stemp = Inet2.GetChunk(1024)
Do While stemp <> ""
pagecode = pagecode + stemp
stemp = Inet2.GetChunk(1024)
Loop
Text1.Text = pagecode
End Sub
Option Explicit
Dim URL As String
Dim Cookies As String
Private Sub Form_Load()
Inet1.Execute "http://expert.csdn.net/member/logon.asp", "POST", "name=姓名&pass=密码"
URL = "http://expert.csdn.net/Expert/member/MyExpertPoint.asp"
End Sub
Private Sub Inet1_StateChanged(ByVal State As Integer)
Select Case State
Case 12
Cookies = Inet1.GetHeader("Set-Cookie")
Case Else
End Select
Inet2.Execute URL, "GET", "", "Set-Cookie: " & Cookies
End Sub
Private Sub Inet2_StateChanged(ByVal State As Integer)
On Error Resume Next
Dim stemp As String
Dim PageCode As String
Select Case State
Case 12
stemp = Inet2.GetChunk(1024)
Do While stemp <> ""
PageCode = PageCode + stemp
stemp = Inet2.GetChunk(1024)
Loop
text1.text= PageCode
End Select
End Sub