私密：vb网页操作
摘自：http://www.fengfly.com/plus/view-79975-1.html
VB自动登陆网络站点详解（一）：得到参数名
时间:2009-09-19 00:00 点击:341次 字体：[大 中 小]
自动登陆站点有一个关键的地方就在于参数名的正确与否，因为各个WEB服务器接收的参数名都不可能相同，在程序中倘若参数名使用不正确，会误以为代码的错误而徒増烦恼，因此首先推荐一个很有用的工具“Visual Sniffer”：它可以拦截通过网络传输的TCP/IP/UDP/ICMP等数据包，利用这个工具可以很轻松的得到向服务器发送的相关参数。
以登陆CSDN为例，现在我们先用IE打开“http://www.csdn.net/member/login.asp”CSDN的登陆页面，输入帐号及密码，先不要登陆，将Visual Sniffer运行起来，点一下“开始拦截”这个按钮，再回到登陆页面，点击“登陆”，稍等片刻，登陆成功之后在Visual Sniffer上点一下“停止拦截”，现在就可以找一下刚才IE到底向外发送了些什么东西。（建议在做这些之前将多余的IE全都关掉，因为倘若其它IE窗口也在发送数据，你将会在Visual Sniffer受到不必要的干扰。）
注意现在在Visual Sniffer的左边有很多“+”号，这些便是被拦截到的数据，将它们一一展开，此时应注意查看右边的数据，倘若第一行没有“POST”这样的字符，那便迅速换一个“+”号，这已经是最快的找到向CSDN的服务器发送数据的方法了（我们的登陆是“POST”请求，如果看到的“GET”，那肯定不是）。请看实际的图片：
先对发出去的文件头稍加说明一下，有几个不是很重要，因此这里就不多说了：
“Accept：”表示能够收到的文件格式。
“Referer：”表示指向的文件地址。
“Accept_Language：”表示接受的语言。
“Host：”表示主机名。
图中的紫线部分合起来便是POST请求发往的地址，红线所示便是所有服务器需要接收的参数，四个等号表示共有四个参数用“&”连接起来。顺便提一句，你看到的那个Cookie：ASPSESSION……长长的这段就是Session，它是在IE与服务器请求连接的时候由服务器发给IE的，现在又被原样返回了。你可以在Visual Sniffer中其它地方查查，看一下它是什么时候得到的。由于在程序中，我们使用的是控件，实际上不需要考虑Cookie及Session的问题，因为VB的Inet、WebBrowser都封装的很好，关键只是如何正确的使用。
“login_name”、“password”这两个就是CSDN在登陆时接收的最主要的参数名；此外，还有一个“cookietime”告诉本地Cookie的有效时间，这三个是登陆CSDN时所必须发送的参数。帐号及密码是一般登陆站点都需要的参数，但有些服务器会接收三个以上的参数，除了帐号及密码我们可以把其它的参数统统算作第三参数，中间使用“&”连接即可。另外比较重要的是“Content-Type: application/x-www-form-urlencoded”，这里告诉服务器解码的方式，程序中要是少了这句，什么都干不了。
登陆其它论坛、邮箱、社区的时候，都可以通过Visual Sniffer来得到POST的所有重要信息，而且这也是我推荐给大家的方法，特别是在有些参数不那么容易从HTML源文件中分析的时候。不仅如此，你还可以用这种方法来拦截自己的程序，因为同样也是HTTP协议，Visual Sniffer也是能够拦截的。这样你就可以比较程序与IE登陆时到底有何异同，以达到除错的目的。
原文来自：雨枫技术教程网 http://www.fengfly.com
原文网址：http://www.fengfly.com/plus/view-79973-1.html
VB自动登陆网络站点详解（四）：在WebBrowser中发送POST请求
时间:2009-09-19 00:00 点击:566次 字体：[大 中 小]
本来这一部分内容也应该放在第二章，但一方面为了醒目，另一方面，这种方法实际上与Internet Explorer对象有很大的联系及相似性，所以特意将之放在Internet Explorer对象之后介绍。
现在我们要用到的也是WebBrowser的“Navigate”方法，其函数原型如下所示：
Sub Navigate(URL As String, [Flags], [TargetFrameName], [PostData], [Headers])
大家不妨与第三章中Internet Explorer对象的“Navigate”方法比较一下，一模一样，原来是同一个接口！！
新建一个工程，部件中勾选中 “Microsoft Internet Controls”，添加一个WebBrowser1、一个Command1在窗体上，可以把WebBrowser1适当拉大一点，Form1中添加以下代码：
Private Sub Command1_Click()
ReDim aByte(0) As Byte ‘ Array of bytes to hold data to post
cPostData = “login_name=帐号&password=密码&cookietime=0&x=42&y=10”
PackBytes aByte(), cPostData
Dim vPost As Variant
vPost = aByte ‘ Assign the byte array to a VARIANT
Dim vHeaders As Variant
vHeaders = “Content-Type: application/x-www-form-urlencoded” + Chr(10) + Chr(13)
WebBrowser1.Navigate “http://www.csdn.net/member/logon.asp”, , , vPost, vHeaders
End Sub
Private Sub PackBytes(ByteArray() As Byte, ByVal PostData As String)
iNewBytes = Len(PostData) – 1 ‘ Get rid of the null termination
If iNewBytes < 0 Then Exit Sub End If ReDim ByteArray(iNewBytes) For i = 0 To iNewBytes ch = Mid(PostData, i + 1, 1) If ch = Space(1) Then ch = "+" End If Debug.Print ch, Asc(ch) ByteArray(i) = Asc(ch) Next End Sub （请参考第三章中的代码。） 通过这四篇文章的介绍，我想读者一定不光是对VB登陆Web服务器有了更深的认识，而且同时对HTTP协议、Cookie、Session也加深了理解！ 全文完！！！ 注：本系列文章，请勿用于商业用途，有转载或发表行为的请务必事先与本人联系wshk_18@163.com 原文来自：雨枫技术教程网 http://www.fengfly.com 原文网址：http://www.fengfly.com/plus/view-79976-1.html VB自动登陆网络站点详解（三）：InternetExplorer对象 原文来自：雨枫技术教程网 http://www.fengfly.com 原文网址：http://www.fengfly.com/plus/view-79975-1.html 使用Internet Explorer对象可以使POST请求在IE中产生，从而脱离程序，远离了美化界面的工作。程序甚至可以隐藏或退出，免去了WebBrowser带来的烦恼，当然也不需要第四个参数。 下面我们还是以登陆CSDN为例，给出实际的代码，您可以根据前面文章中提供的参数换成你注册过的站点： 建新工程，在工程中“引用”Internet Explorer对象，点“浏览”，在系统文件夹下找到Shdocvw.dll（这个文件是IE自带的）， Form1中添加Command1，以下是代码—— Dim g_oIE As InternetExplorer Private Sub Command1_Click() Dim vPost As Variant Dim vHeaders As Variant Set g_oIE = New InternetExplorer g_oIE.Visible = True ReDim aByte(0) As Byte cPostData = "login_name=帐号&password=密码&cookietime=0" PackBytes aByte(), cPostData vPost = aByte vHeaders = "Content-Type: application/x-www-form-urlencoded" + Chr(10) + Chr(13) g_oIE.Navigate "http://www.csdn.net/member/logon.asp", , , vPost, vHeaders End Sub Private Sub PackBytes(ByteArray() As Byte, ByVal PostData As String) iNewBytes = Len(PostData) - 1 If iNewBytes < 0 Then Exit Sub ReDim ByteArray(iNewBytes) For i = 0 To iNewBytes ch = Mid(PostData, i + 1, 1) If ch = Space(1) Then ch = "+" End If ByteArray(i) = Asc(ch) Next End Sub （请输入自己的帐号及密码试运行。这种方法的好处是显而易见的，你可以按这个方法将前面的代码改造一下。） PackBytes函数将Post出去的数据转化为一个ASCII数组，另外vHeaders的值必须以“+ Chr(10) + Chr(13)”结束。 代码没有什么好解释的，现在已经进入到Shdocvw.dll这个“库”中去了，而前面所说的WebBrowser及Internet Explorer都是这个库中所包含的“类”。大家可以打开对象浏览器看看它们互相之间的关系。 原文来自：雨枫技术教程网 http://www.fengfly.com 原文网址：http://www.fengfly.com/plus/view-79975-1.html http://blog.sina.com.cn/s/blog_55f6471201019kst.html
网友评论