用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