读书人

求:vb6填表单,那种quot;隐藏(hidden)quot;属性

发布时间: 2012-01-16 23:36:52 作者: rapoo

求:vb6填表单,那种"隐藏(hidden)"属性的,怎么给它赋值呢?
google快讯订阅的那个页面最近改掉了,我原先都可以自动填表的,改掉以后两个下拉选择框改成type是hidden的了,我原先的getelementById方法就发现不行了.
-------------------------
页面:http://www.google.com/alerts
两个下拉选择框的网页源码:

发送频率:
<div class="goog-inline-block goog-menu-button-caption">As-it-happens</div>
<input id="email_freq_selector" name="f" type="hidden" value="1">
结果量:
<div class="goog-inline-block goog-menu-button-caption">All results</div>
<input id="volume_selector" name="l" type="hidden" value="0">
--------------------------------
这个代码已经失效了:
ie.Document.getElementById("volume_selector").Value = "1"
ie.Document.getElementById("email_freq_selector").Value = "0"
用这个试了下也不行:
Dim btn
For Each btn In ie.Document.All
If LCase(btn.tagName) = "input" Then
If LCase(btn.Type) = "hidden" Then

If btn.Id = "email_freq_selector" Then
btn.Value = "0"
End If
If btn.Id = "volume_selector" Then
btn.Value = "1"
End If
End If
End If
Next
-------------------------------------------------
要怎么样才能给它自动赋值呢?多谢高手!!!

[解决办法]
没办法的........

读书人网 >VB

热点推荐