求: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
-------------------------------------------------
要怎么样才能给它自动赋值呢?多谢高手!!!
[解决办法]
没办法的........