腾讯网申请QQ页面上的那些表单元都是些什么鸟东西啊!VB自动网页填表问题！

问题描述：

腾讯网申请QQ页面上的那些表单元都是些什么鸟东西啊，连个名字都没有。有什么方法法能对表单里的单元自动填表，麻烦附上VB重点代码。谢谢了。
表单里的那些文本框没name,id属性.可它们每个的后面都加一个奇怪的东西如输入"昵称"的全部html代码
"<td class="column1"><div><span>*</span><em id="t_nickname">昵称：</em></div></td>
<td class="column2"><input type="text" class="input-style1" maxlength="12" /></td>
<td class="column3"><div><span id="e_nickname" style="display:none;"></span></div></td>",我想请问后面的"<td class="column3"><div><spanid="e_nickname"style="display:none;"></span></div></td>"有什么特别的用处吗？
测试页面 http://freereg.qq.com/

别外问一下VB如何设置页面上的所有下拉列表框为任意一个非默认值，再次感谢！！
我的邮箱是rriiffjjpp@163.com, 谢谢你!

问题解答：

Private Function GetNowMaxDay(ByVal date1 As Date) As Date
Dim dateTemp As String, intTemp As Integer

intTemp = Day(date1)
dateTemp = Year(date1) & "/" & Month(date1) & "/" & Day(date1)
Do While 1
dateTemp = Left(dateTemp, InStrRev(dateTemp, "/")) & Day(dateTemp) + 1

If Not IsDate(dateTemp) Then
dateTemp = Left(dateTemp, InStrRev(dateTemp, "/")) & intTemp
Exit Do
Else
intTemp = intTemp + 1
End If
Loop
GetNowMaxDay = dateTemp
End Function

Private Sub ExecuDate(ByVal date1 As Date, ByVal date2 As Date)
Dim intYear As Integer
Dim intMonth As Integer

intYear = Year(date1)
intMonth = Month(date1)

List1.Clear

Do While 1
List1.AddItem GetNowMaxDay(CDate(intYear & "-" & intMonth & "-28"))

If intYear = Year(date2) And intMonth = Month(date2) Then
Exit Sub
Else
If intMonth = 12 Then
intYear = intYear + 1
intMonth = 1
Else
intMonth = intMonth + 1
End If
End If
Loop
End Sub

Private Sub Command1_Click()
ExecuDate CDate(Text1.Text), CDate(Text2.Text)
End Sub

上面这个回答果然很'行'

我前些天做了一个申请QQ的小软件，需要代码的话可以留下邮箱，我发给你

不用管它.