Question

用VB的WebBrowser 来自动填表

用VB的WebBrowser 来自动填表，如下地址： http://chs.reg.qq.com/
表单源码： <input class=type1 maxlength=12 name="Input">

我从网上找了很多代码，但是不行，这个input是没有ID的，
有其他方法吗？

请您提供完整代码。 （请自己测试成功后，再发，谢谢您！）

回答的好，再追加分！

Answer 1

我的VB6不知道怎么WebBrowser不能用,我用.NET写了下测试没问题,你自己改成VB6代码吧
Dim Html As Windows.Forms.HtmlDocument
Dim Tag As Windows.Forms.HtmlElement
Dim I As Integer
Html = WebBrowser1.Document
For I = 0 To Html.All.Count - 1
Tag = Html.All(I)
If Tag.TagName = "INPUT" Then
Try
If Tag.GetAttribute("maxlength") = "12" Then
Tag.SetAttribute("value", "aaaaaaaaaa")
End If
Catch ex As Exception
End Try
End If
Next
------------------------------
还是我给改下吧,因为我这VB6不能用,所以上边的.NET代码肯定可以用,下边的是我写的,没测试你试试!
Dim Html ,Tag
Dim I As Integer
Html = WebBrowser1.Document
For I = 0 To Html.All.Count - 1
Tag = Html.All(I)
If Tag.TagName = "INPUT" Then
If Tag.GetAttribute("maxlength") = "12" Then
Tag.SetAttribute("value", "aaaaaaaaaa")
End If
End If
XXX:
Next
on error goto XXX

Answer 2

自动填写表单似乎并不适合QQ申请