我一直在谷歌上搜索一些VB.Net代码,用POST方法对Web服务器进行身份验证,在cookie中接收会话ID,然后将此cookie与所有GET查询一起发送......但我找到的只是是半工作代码或C#代码,即。很难用于VB.Net新手。
有人会有一些方便的代码或一些我可以用来开始使用的指针吗?
谢谢。
答案 0 :(得分:0)
对于那些有兴趣进行屏幕抓取的人,这里有一些工作代码来发布登录/密码,在cookie中获取会话ID,以及从网站获取其他页面:
Imports System.Net
Imports System.IO
Imports System.Text
Public Class Form1
Const ConnectURL = "http://www.acme.com/logon.php"
Const HomeURL = "http://www.acme.com"
Private Function RegularPage(ByVal URL As String, ByVal CookieJar As CookieContainer) As String
Dim reader As StreamReader
Dim Request As HttpWebRequest = HttpWebRequest.Create(URL)
Request.UserAgent = "Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.1.14) Gecko/20080404 Firefox/2.0.0.14"
Request.AllowAutoRedirect = False
Request.CookieContainer = CookieJar
Dim Response As HttpWebResponse = Request.GetResponse()
reader = New StreamReader(Response.GetResponseStream())
Return reader.ReadToEnd()
Response.Close()
End Function
Private Sub LogonPage(ByVal URL As String, ByRef CookieJar As CookieContainer, ByVal PostData As String)
Dim reader As StreamReader
Dim Request As HttpWebRequest = HttpWebRequest.Create(URL)
Request.UserAgent = "Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.1.14) Gecko/20080404 Firefox/2.0.0.14"
Request.CookieContainer = CookieJar
Request.AllowAutoRedirect = False
Request.ContentType = "application/x-www-form-urlencoded"
PostData = "username=isiria&password=ceciestunmdp"
Request.Method = "POST"
Request.ContentLength = PostData.Length
Dim requestStream As Stream = Request.GetRequestStream()
Dim postBytes As Byte() = Encoding.ASCII.GetBytes(PostData)
requestStream.Write(postBytes, 0, postBytes.Length)
requestStream.Close()
Dim Response As HttpWebResponse = Request.GetResponse()
For Each tempCookie In Response.Cookies
CookieJar.Add(tempCookie)
Next
reader = New StreamReader(Response.GetResponseStream())
Response.Close()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim CookieJar As New CookieContainer
Dim PostData As String
Try
'Logon
PostData = "username=jdoe&password=test"
LogonPage(ConnectURL, CookieJar, PostData)
'Homepage
RichTextBox1.AppendText(RegularPage(HomeURL, CookieJar))
Catch ex As Exception
MsgBox(ex.Message.ToString)
End Try
End Sub
End Class