Option Explicit
Dim URL As String
Private Sub Form_Load()
Dim stemp As String, pagecode As String
Inet1.Execute "http://expert.csdn.net/member/logon.asp?login=用户&pass=密码", "POST"Do Until Inet1.StillExecuting = False
DoEvents
Loop
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为什么得到的总是
<script language="javascript">
window.alert("请输入登录名和密码!!!!!");
history.back();
</script>
<html>
<head>
<meta NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<meta http-equiv="Refresh" content="1;URL=">
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
<meta http-equiv="Content-Type" content="text/html" ; charset="gb2312">
<title>CSDN_Login……</title>
</head>
<body>
<br>
<p align="center"><FONT COLOR="#FF0000">正在登录…………</FONT>
</body>
</html>这样的东西???好象还在不停的刷新!
Dim URL As String
Private Sub Form_Load()
Dim stemp As String, pagecode As String
Inet1.Execute "http://expert.csdn.net/member/logon.asp?login=用户&pass=密码", "POST"Do Until Inet1.StillExecuting = False
DoEvents
Loop
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为什么得到的总是
<script language="javascript">
window.alert("请输入登录名和密码!!!!!");
history.back();
</script>
<html>
<head>
<meta NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<meta http-equiv="Refresh" content="1;URL=">
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
<meta http-equiv="Content-Type" content="text/html" ; charset="gb2312">
<title>CSDN_Login……</title>
</head>
<body>
<br>
<p align="center"><FONT COLOR="#FF0000">正在登录…………</FONT>
</body>
</html>这样的东西???好象还在不停的刷新!
高手在哪里????????/自己顶一下!!!
既然能够保存登录信息,肯定和cookie有关.