当前位置:编程学习 > C#/ASP.NET >>

用VB.NET设计一个软件,要求软件提取一个网站的识别码,识别码用一个控件显示出来,然后在文本框中输入该识别码,回车后能提交到该网站,如何做

用VB.NET设计一个软件,要求软件提取一个网站的识别码,识别码用一个控件显示出来,然后在文本框中输入该识别码,回车后能提交到该网站,如何做?
请指教 --------------------编程问答-------------------- 图片显示可以用image框也显示,,但是如何回车就能提交呢? --------------------编程问答-------------------- 网站每次请求都有相应SESSION的对应,这个要看POST包是怎么组织的
建议先用软件截包分析
地址和请求流程分析对了怎么都好说,识别码有地址,提交也有地址,这不是一个回车可以说清楚的 --------------------编程问答-------------------- 加入个 WebBrowser,URL 为你要识别的网站

WebBrowser1.Document.All("username").InnerText = Log.Name '向网页的ID为 USERNAME的控件写入值
WebBrowser1.Document.All("userpass").InnerText = Log.Pwd '同上
Dim HTML As String = Me.WebBrowser1.Document.InvokeScript("showCaptcha", New Object() {}) '执行页面的函数 SHOWCAPTCHA 以获取验证码的图片,这个看网站而异
PictureBox1.Image = GetRegCodePic(WebBrowser1, "captchaimage") 将获取的验证码图片赋给PICTUREBOX1。
WebBrowser1.Document.All("usercode").InnerText = TextBox1.Text.Trim '将TEXTBOX1里的验证码值赋给USERCODE,USERCODE为验证码的页面控件。
WebBrowser1.Document.All("usercode").Focus()'获取焦点
SendKeys.Send("{enter}") 'ENTER,提交页面。


'获取图片并返回,不解释
Public Function GetRegCodePic(ByVal wbMail As WebBrowser, ByVal ImgName As String) As Image  
        Dim doc As HTMLDocument = DirectCast(wbMail.Document.DomDocument, HTMLDocument)
        Dim body As HTMLBody = DirectCast(doc.body, HTMLBody)
        Dim rang As IHTMLControlRange = DirectCast(body.createControlRange(), IHTMLControlRange)
        Dim Img As IHTMLControlElement
        Img = DirectCast(wbMail.Document.All(ImgName).DomElement, IHTMLControlElement)

        rang.add(Img)
        rang.execCommand(("Copy"), False, Nothing)
        Dim RegImg As Image = Clipboard.GetImage()
        Clipboard.Clear()
        Return RegImg
    End Function --------------------编程问答--------------------
补充:.NET技术 ,  VB.NET
CopyRight © 2012 站长网 编程知识问答 www.zzzyk.com All Rights Reserved
部份技术文章来自网络,