vb代码，如何用vb webbrowser控件1 对页面标签 <div Name="mysend" id="my-send" class="my2-sen

来源：蜘蛛抓取(WebSpider) 时间：2012-06-15 16:11 标签： vb webbrowser控件
WebBrowser 获取页面标签class值_百度知道怎么用VB对下面的网页代码的表单进行自动填写_百度知道请问用VB怎么取&td&&td&间内容，中间还有&div&_百度知道3234人阅读
发贴者&Jing
使用&WebBrowser&控件可以在&Windows&窗体应用程序中承载网页以及支持浏览器的其他文档。例如，可以使用&WebBrowser&控件在应用程序中提供基于&HTML&的集成用户帮助或&Web&浏览功能。此外，还可以使用&WebBrowser&控件向&Windows&窗体客户端应用程序添加基于&Web&的现有控件。
&&& WebBrowser的Navigate函数提供了向网页Post数据的功能:&
&&&&public&void&Navigate(string&urlString,string&targetFrameName,byte[]&postData,string&additionalHeaders)& 将指定的统一资源定位符&(URL)&处的文档加载到&&控件中，使用指定&HTTP&数据请求该文档并替换具有指定名称的网页框架的内容。
&&& 其中postData为HTTP&POST&数据，例如窗体数据。additionalHeaders要添加到默认标头中的&HTTP标头。一般Http表头设为&Content-Type:&application/x-www-form-urlencoded&&即可.
&&& 如果要正确地向网页Post数据,并须使用以上两个参数.登陆的&Post数据可以通过Fiddler监测获得,如下图：
&&& 如变为字符则格式如下:&&__VIEWSTATE=%2FwEPDwULLTExNTc2NTI3OTlkZFQGow3nzBFSYeWWyfo%2FOEXT8w5j&UserName=admin&Password=admin123&AuthenButton=%E7%94%A8%E6%88%B7%E7%99%BB%E5%BD%95&__EVENTVALIDATION=%2FwEWBALUudTOCwKvruq2CALSxeCRDwKGkaOOC8PpQ8Wk8rGROWhMJioW342WQkVO&
&&& 则现在如果要WebBrowser打开一个登陆页面,但是向网页Post数据而自动登陆的话只需要步骤:
& String&PostData=&__VIEWSTATE=%2FwEPDwULLTExNTc2NTI3OTlkZFQGow3nzBFSYeWWyfo%2FOEXT8w5j&UserName=admin&Password=admin123&AuthenButton=%E7%94%A8%E6%88%B7%E7%99%BB%E5%BD%95&__EVENTVALIDATION=%2FwEWBALUudTOCwKvruq2CALSxeCRDwKGkaOOC8PpQ8Wk8rGROWhMJioW342WQkVO&;
& byte[]&b;&
& b&=&System.Text.Encoding.UTF8.GetBytes(PostData);&
& string&header&=&&Content-Type:&application/x-www-form-urlencoded&&;&
& WebBrowser.Navigate(&http://****/login.aspx&,&&,b,header);
VB使用WebBrowser控件POST数据：
Private Sub Form_Load()
&&& ReDim aByte(0) As Byte
&&& PackBytes aByte(), &id=111&ps=222&
&&& WebBrowser1.Navigate &http://127.0.0.1:90/test.cgi&, , , aByte, &Content-Type: application/x-www-form-urlencoded& + Chr(10) + Chr(13)
Private Sub PackBytes(ByteArray() As Byte, ByVal PostData As String)
&&& 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)
参考知识库
* 以上用户言论只代表其个人观点，不代表CSDN网站的观点或立场
访问：425573次
积分：7183
积分：7183
排名：第2083名
原创：250篇
转载：327篇
评论：65条
(15)(15)(4)(4)(12)(6)(9)(12)(7)(9)(21)(21)(7)(9)(8)(6)(24)(1)(51)(1)(2)(11)(15)(10)(16)(22)(9)(1)(23)(4)(2)(4)(10)(15)(9)(1)(1)(10)(30)(4)(12)(1)(2)(1)(1)(2)(18)(12)(7)(1)(1)(8)(17)(3)(3)(7)(5)(2)(18)(18)(3)(1)vb关于WebBrowser1点击网页按扭问题_百度知道

我要回帖

更多关于 vb webbrowser控件 的文章

 

随机推荐